search.pl G^ 8"^" DЗGhGFvH ^ HCTEXTMcPL h ~ƭq #!/usr/bin/perl
# AUTEUR : Alain TOMASIAN #
# DATE : 04 octobre 1999 #
# DESCRIPTION : Ce programme effectue une recherche dans la table produits. #
# Les donnes en provenance de la page HTML sont : #
# - Echelle : l'echelle du modle #
# - Type : le type de kit #
# - Fabricant : le fabricant du modle. #
# - Marque : la marque du modle. #
# - Description : un mot clef contenu dans la description du modle. #
# note: Les valeurs de ces entres dpendent de la table. Le script ne les interprte pas. #
# exception: si valeur='ALL', toutes les valeurs sont acceptes. #
################################################################################################
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
require "./look.pm"; # apparence html dfinie par le client
require "./data.pm"; # Routines utiles pour l'accs la base
$query = new CGI;
$QUERY_SEARCH = 'select * from Produits ';
$dbh = DBI->connect( $main::db_base , $main::db_user, $main::db_pass ) || die $DBI::errstr;
$Echelle = $query->param('Echelle');
$Type = $query->param('Type');
$Fabricant = $query->param('Fabricant');
$Marque = $query->param('Marque');
$MotCle = $query->param('MotCle');
$MaxSearch = 100 ;
$Flag=0 ;
if (($Echelle ne 'All') || ($Type ne 'All') || ($Fabricant ne 'All') || ($Marque ne 'All') || ($MotCle ne '')) { $QUERY_SEARCH .= "where " } ;
if ($Echelle ne 'All')
{
$QUERY_SEARCH .= "Echelle=\'$Echelle\' ";
$Flag=1;
}
if ($Type ne 'All')
{
if ($Flag == 1) { $QUERY_SEARCH .= "and " }
$QUERY_SEARCH .= "Type=\'$Type\' ";
$Flag=1;
}
if ($Fabricant ne 'All')
{
if ($Flag == 1) { $QUERY_SEARCH .= "and " }
$QUERY_SEARCH .= "Fabricant=\'$Fabricant\' ";
$Flag=1;
}
if ($Marque ne 'All')
{
if ($Flag == 1) { $QUERY_SEARCH .= "and " }
$QUERY_SEARCH .= "Marque=\'$Marque\' ";
$Flag=1;
}
if ($MotCle ne '')
{
if ($Flag == 1) { $QUERY_SEARCH .= "and " }
$QUERY_SEARCH .= "Description LIKE \'%$MotCle%\'";
}
$sth = $dbh->prepare( $QUERY_SEARCH ) || die $dbh->errstr;
$rv = $sth->execute || die $dbh->errstr;
$rows = $sth->rows;
&html_begin;
print << "EOT";
EOT
if ($rows == 0)
{
$MessageFR = "Aucune référence n'a été trouvée. Veuillez recommencer S.V.P.";
$MessageEN = "Mafma found no item matching your query. Please try again.";
&html_tryagain;
$dbh->disconnect;
exit;
}
if ($rows > $MaxSearch)
{
$MessageFR = "Plus de $MaxSearch références ont été trouvé. Voici les $MaxSearch première référence.";
$MessageEN = "We found more than $MaxSearch items. Here are the $MaxSearch first items.";
$NbItem = $MaxSearch ;
}
else
{
$MessageFR = "Nous avons trouvé $rows références.";
$MessageEN = "We found $rows items.";
$NbItem = $rows ;
}
print << "EOT" ;
EOT
&html_end;
$dbh->disconnect;
exit;
L L 2 H Monaco $
p" H' ( G? ( G? L L 2 2 MPSR
: