#!/usr/bin/perl require "cfg.pl"; ######################################### # # produits.pl version anglaise # v1.0 le 05/01/2001 # Arnaud.C / Agence PCV # All right reserved # Copyright (C) 2000 # # English - kvr - 02-02-2001 # ######################################### &GetFormInput; print "Content-type: text/html\n\n"; print "Product Guide$style\n"; &javascript; print "\n"; print ""; $action=$field{"action"}; $search=$field{"search"}; $morceau=$field{"morceau"}; $page=$field{"page"}; $selection=$field{"selection"}; $lastfiche=$field{"lastfiche"}; $epure=$search; ### Epurage accent &Epure; $search=$epure; ######### AFFICHAGE DES CALQUES COMMUN ######### &Calque_menu_principal; &Calque_search; ### Affiche le calque search haut de page $num_etape=1; &Calque_gris; ### Affiche le calque gris haut de page $offset=750; &Calque_menu_bas; ### Affiche CALQUE BAS DE PAGE (1 et18) &Calque_menu_gauche; ### Affiche CALQUE MENUS TYPE CATALOGUE (130 à 135) $nbdegrade=78; &Calque_degrade; ### Affiche le degrade sous menu gauche $offset=245; ###### SEARCH PRODUIT ###### print "
Search: PRODUCT GUIDE  
\n"; ###### COCHON FOND ECRAN ###### print "
\n"; ###### Commentaires ###### print "
\n"; print "
To better increase consumer food safety,
Cooperl Hunaudaye not only applies today's norms
but also anticipates and creates new quality assurance
standards to keep with its philosophy of it pioneering origin traceability.
\n"; print "
Our clients' clients are consumers.
With sophisticated technological means of inspection, we can assure optimal control over microbiological and health risks on all of our production sites.
\n"; ###### CALQUE CHOISSISEZ ... ###### print "
Please select a product family
\n"; print "
The product guide will allow you to send us a request for information on the products that interest you.
\n"; ###### LES IMAGES ###### print "
\n"; print "
\n"; print "
\n"; ###### LES TEXTES SOUS LES IMAGES ###### print "
\n"; print "
\n"; print "
\n"; ###### LES BARRES GRISES ###### print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
"; print "
"; print "
\n"; print "
\n"; ###### LE NB DE REFERENCES ###### open(fref,"; close(fref); print "
($fref[0] réf.)
\n"; print "
($fref[1] réf.)
\n"; print ""; exit;