lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Rodolphe Quiedeville 2002-05-24 09:17:40 +00:00
parent 4407054abe
commit 3874f5b6cf
1 changed files with 60 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

83
htdocs/fichinter/tex-fichinter.pl
View File

@ -59,11 +59,11 @@ print "Output in : $outputdir\n" if $verbose > 1;
# Fetch datas # Fetch datas
# #
Sys::Syslog::syslog('info', '['.$idfiche.'] Fetch data'); Sys::Syslog::syslog('info', '['.$idfiche.'] Fetch data');
my ($numfiche, $societe, $date, $ville, $destinataire, $address); my ($numfiche, $societe, $date, $ville, $destinataire, $address, $note, $duree);
my $dbh = DBI->connect("","","") || die $DBI::errstr ; my $dbh = DBI->connect("","","") || die $DBI::errstr ;
my $sql = "SELECT f.rowid, f.ref, s.nom, s.address, s.cp, s.ville, unix_timestamp(f.datei) as di"; my $sql = "SELECT f.rowid, f.ref, s.nom, s.address, s.cp, s.ville, unix_timestamp(f.datei) as di, f.duree, f.note";
$sql .= " FROM llx_fichinter as f, societe as s"; $sql .= " FROM llx_fichinter as f, societe as s";
$sql .= " WHERE s.idp = f.fk_soc AND f.rowid = $idfiche"; $sql .= " WHERE s.idp = f.fk_soc AND f.rowid = $idfiche";
@ -83,6 +83,8 @@ if ( $sth->execute ) {
$societe = $hsr->{"nom"}; $societe = $hsr->{"nom"};
$destinataire = $hsr->{"firstname"} . " " . $hsr->{"name"}; $destinataire = $hsr->{"firstname"} . " " . $hsr->{"name"};
$date = $hsr->{"di"}; $date = $hsr->{"di"};
$duree = $hsr->{"duree"};
$note = $hsr->{"note"};
$address = $hsr->{"address"}; $address = $hsr->{"address"};
$ville = $hsr->{"cp"} . " " . $hsr->{"ville"}; $ville = $hsr->{"cp"} . " " . $hsr->{"ville"};
} }
@ -111,11 +113,18 @@ if (/^(.*)\n(.*)/) {
print "|$adresse1|\n"; print "|$adresse1|\n";
print "|$adresse2|\n"; print "|$adresse2|\n";
} }
print "|$address|\n"; print "|$address|\n";
# #
# #
my $tempfilename = "$outputdir/temp";
open (FT, ">$tempfilename") || die "can't open $tempfilename: $!";
print FT $note;
close (FT);
# #
my $bodyfilename = "$templatesdir/fichinter.tex";
unless (open (FC, ">$outputdir/$numfiche.tex") ) { unless (open (FC, ">$outputdir/$numfiche.tex") ) {
print "can't write in $outputdir/$numfiche.tex: $!"; print "can't write in $outputdir/$numfiche.tex: $!";
@ -128,20 +137,52 @@ $date = strftime("%A %d %B %Y", localtime($date));
# #
# Body # Body
# #
my $bodyfilename = "$templatesdir/header.tex";
open (FH, "<$bodyfilename") || die "can't open $bodyfilename: $!"; open (FH, "<$bodyfilename") || die "can't open $bodyfilename: $!";
while (<FH>) { while (<FH>) {
s|\#SOCIETE\#|$societe|g; s|\_SOCIETE\_|$societe|g;
s|\#ADRESSE1\#|$adresse1|g; s|\_ADRESSE1\_|$adresse1|g;
s|\#ADRESSE2\#|$adresse2|g; s|\_ADRESSE2\_|$adresse2|g;
s|\#VILLE\#|$ville|g; s|\_VILLE\_|$ville|g;
s|\#DATE\#|$date|g; s|\_DATE\_|$date|g;
s|\#NUMFICHE\#|$numfiche|g; s|\_DUREE\_|$duree|g;
s|\_NUMFICHE\_|$numfiche|g;
print FC $_; print FC $_;
} }
close (FH); close (FH);
#
# Body
#
open (FH, "<$tempfilename") || die "can't open $tempfilename: $!";
while (<FH>) {
print FC $_;
print FC "\\\\\n";
}
close (FH);
#
# Footer
#
my $footfilename = "$templatesdir/footer.tex";
open (FH, "<$footfilename") || die "can't open $footfilename: $!";
while (<FH>) {
s|\_SOCIETE\_|$societe|g;
s|\_ADRESSE1\_|$adresse1|g;
s|\_ADRESSE2\_|$adresse2|g;
s|\_VILLE\_|$ville|g;
s|\_DATE\_|$date|g;
s|\_NUMFICHE\_|$numfiche|g;
print FC $_;
}
close (FH);
# #
# #
# #
@ -162,18 +203,14 @@ system("cd $outputdir/ ; latex recode-$numfiche.tex ");
if ($do_pdf) {
print "<p>Generate pdf file<br>\n"; print "<p>Generate pdf file<br>\n";
system("cd $outputdir/ ; pdflatex recode-$numfiche.tex > /dev/null"); system("cd $outputdir/ ; pdflatex recode-$numfiche.tex > /dev/null");
system("cd $outputdir/ ; mv recode-$numfiche.pdf $numfiche.pdf > /dev/null"); system("cd $outputdir/ ; mv recode-$numfiche.pdf $numfiche.pdf > /dev/null");
}
# print "Generate ps file\n";
# system("cd $outputdir/ ; dvips recode-$numfiche.dvi -o $numfiche.ps ");
#
if ($do_ps) {
print "Generate ps file\n";
system("cd $outputdir/ ; dvips recode-$numfiche.dvi -o $numfiche.ps > /dev/null");
}
# #
# $outputdir/$numfiche.tex # $outputdir/$numfiche.tex
# #