#!/usr/bin/perl require "cfg.pl"; ######################################### # # marques.pl v1.0 le 28/02/2000 # Arnaud.C / Agence PCV # All right reserved # Copyright (C) 2000 # ######################################### &GetFormInput; print "Content-type: text/html\n\n"; print "Guide Produit$style\n"; print "\n"; print ""; $action=$field{"action"}; $morceau=$field{"morceau"}; $sf=$field{"sf"}; $page=$field{"page"}; $selection=$field{"selection"}; $lastfiche=$field{"lastfiche"}; $file=4; ######### AFFICHAGE DES CALQUES COMMUN ######### &Calque_menu_principal; &Calque_search; ### Affiche le calque search haut de page $texte_type="Produits élaborés
de charcuterie"; &Calque_gris; ### Affiche le calque gris haut de page $noir=4; &Calque_menu_gauche; ### Affiche CALQUE MENUS TYPE CATALOGUE (130 à 135) &Calque_cadre_noir; $inter=3; &Intercalaire; ### Affiche les calques intercalaires &Calque_cochon_gris; @tab=( ["Yves Le Pape", "Andouilles","Andouillettes","Tripes"], ["Les Eleveurs d'Armor", "Lardons","Patés","Saucissons cuits","Andouilles-Andouillettes","Jambon cuit choix","Epaule cuite standard","Rôti cuit","Produits de tête"] ); if($action ne 'map') # alors accueil { print "\n
\n Selectionner une famille de produits :

"; print " 1. ",$tab[0][0],"
\n"; print " 2. ",$tab[1][0],"
\n"; print "
"; } else { print "\n
\n Selectionner une gamme de produits :

"; if($morceau eq '2'){for($x=1;$x<4;$x++){print " $x. ",$tab[0][$x],"
\n";}} if($morceau eq '4') { for($x=1;$x<9;$x++) { if($x==2 or $x==3) {print " $x. ",$tab[1][$x],"
\n";} else {print " $x. ",$tab[1][$x],"
\n";} } } print "
"; } ###### GRILLE SELECTION + Affichage des Gammes ###### print "
\n"; if($morceau eq '2') { print "
"; } else { print "
\n"; } if($morceau eq '4') { print "
"; } else { print "
\n"; } &Calque_commentaire; if($action eq "map") # Determine longueur de la page { $nbdegrade=70; $offset=685; } else { $nbdegrade=116; $offset=1090; } &Calque_menu_bas; ### Affiche CALQUE BAS DE PAGE (1 et18) &Calque_degrade; ### Affiche le degrade sous menu gauche print ""; ############################################################################################ sub Calque_commentaire ###### CADRES COMMENTAIRES { $texte[2]="Yves Le Pape, est le spécialiste en France des produits
de tradition comme l’andouillette et l’andouille.
Ses spécialités sont une référence d’un savoir-faire
reconnu et apprécié par le consommateur.
L'atelier est doté de plusieurs complexes dédiés aux différents process :
- Saumurage
- Fabrication de pâtes fines ou pâtes à grains
- De 12 cellules de cuisson automatisées
- Salle de refroidissement

Les principaux produits issues de la salaison sont de poitrines, lardons, saucisses, pâtes, saucissons cuits, andouille-andouillettes."; $texte[4]="Des producteurs de porcs bretons, depuis leurs élevages
jusqu’à l’élaboration des produits de charcuterie
à la marque \"les Eleveurs d’Armor\" prennent
un véritable engagement de qualité. Ils mettent tout
leur savoir-faire pour offrir à travers cette marque
le meilleur de leurs 37 années d’expérience."; if($action eq "map") # Affiche le bon logo en bas { print "
",$texte[$morceau],"
"; } else { print "
Notre gamme de produits élaborés offre
une palette diversifiée qui répond à tous
les besoins des différents marchés GMS,
en unités de vente consommateur,
que ce soit en viande comme
en charcuterie-salaison.
$texte[4]
$texte[2]
\n"; } }