#include /projects/centre-inffo/www/bib/form/addValueNaf.js #include /projects/centre-inffo/www/bib/form/addValueSignataire.js #include /projects/centre-inffo/www/bib/form/addValueOpca.js #include /projects/centre-inffo/www/bib/form/addValueCcn.js #include /projects/centre-inffo/www/bib/form/addValueActi.js ) { $_ =~ s/TYPE/acti/; print $_; } close FICIN; open FICIN,"<$REP/fic/AC_$initiale" || die "Pas de fichier : AC_$initiale\n"; print "

"; while () { chomp; $value = $_; $value =~ s/'/\\'/g; $value =~ s/"/\\"/g; print "\n"; print " $_
\n"; } close FICIN; } elsif ($field =~ "sign"){ open FICIN,"<$REP/form/S_abc.html" || die "Pas de fichier : S_abc.html\n"; while () { $_ =~ s/TYPE/sign/; print $_; } close FICIN; open FICIN,"<$REP/fic/S_$initiale" || die "Pas de fichier : R_$initiale\n"; print "

"; while () { chomp; $value = $_; $value =~ s/'/\\'/g; $value =~ s/"/\\"/g; print "\n"; print " $_
\n"; } close FICIN; } elsif ($field =~ "opca"){ open FICIN,"<$REP/form/O_abc.html" || die "Pas de fichier : O_abc.html\n"; while () { $_ =~ s/TYPE/opca/; print $_; } close FICIN; open FICIN,"<$REP/fic/O_$initiale" || die "Pas de fichier : O_$initiale\n"; print "

"; while () { chomp; $value = $_; $value =~ s/'/\\'/g; $value =~ s/"/\\"/g; print "\n"; print " $_
\n"; } close FICIN; } elsif ($field =~ "ccn"){ open FICIN,"<$REP/form/C_3abc.html" || die "Pas de fichier : C_3abc.html\n "; while () { $_ =~ s/TYPE/ccn/; print $_; } close FICIN; open FICIN,"<$REP/fic/C_$initiale" || die "Pas de fichier : C_$initiale\ n"; print "

"; while () { chomp; ($value) = split / -/,$_; $value =~ s/'/\\'/g; $value =~ s/"/\\"/g; print "\n"; print " $_
\n"; } close FICIN; } elsif ($field =~ "naf") { # Naf open FICIN,"<$REP/form/N_123.html" || die "Pas de fichier : N_123.html\n"; while () { $_ =~ s/TYPE/naf/; print $_; } close FICIN; if ($initiale eq "A") {$initiale = "0"} open FICIN,"<$REP/fic/N_$initiale" || die "Pas de fichier : N_$initiale\ n"; print "

"; while () { chomp; ($value,$lib) = split /\t/; $value =~ s/'/\\'/g; $value =~ s/"/\\"/g; print "\n"; print " $_
\n"; } close FICIN; } else { #glossaire open FICIN,"<$REP/form/G_abc.html"|| die "Pas de fichier : G_abc.html\n"; while () { print $_; } close FICIN; open FICIN,"<$REP/fic/G_$initiale" || die "Pas de fichier : G_$initiale\n"; print "

"; while () { print "\n"; print " $_
\n"; } close FICIN; } if ($field !~ "glos"){ !>


Retour vers le formulaire d'interrogation