|< 1 2 3 4 5 ... 11 >| | 106 Einträge, 11 Seiten |
push(@loop,{ARTIKEL => $params{ARTIKEL}, STUECK => $params{STUECK}, EURO => $params{EURO});
push(@loop,{ARTIKEL => $params{ARTIKEL}, STUECK => $params{STUECK}, EURO => $params{EURO}});
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#! /usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template;
my $cgi = CGI->new();
my %params = $cgi->Vars();
print $cgi->header(-type => 'text/html');
my $template = HTML::Template->new(filename => '/home/webmaster/docs/deutsch/Bed
arfsmeldung/bedarfsmeldung2.htm');
if($params{add}){ # wenn artikel hinzugefügt werden soll
my @loop = ();
if($params{alt}){
my @artikel = split(/;/,$params{alt});
foreach(@artikel){
my ($art_name,$stueck,$euro) = split(/#/,$_);
push(@loop,{ARTIKEL => $art_name, STUECK => $stueck, EURO => $euro});
}
}
push(@loop,{ARTIKEL => $params{ARTIKEL}, STUECK => $params{STUECK}, EURO => $pa
rams{EURO});
my $alte = $params{alt}.";$params{ARTIKEL}#$params{STUECK}#$params{EURO}";
$template->param(ALT => $alte,
ARTIKELLISTE => \@loop);
}
else{
# Mail versenden
}
print $template->output();
|< 1 2 3 4 5 ... 11 >| | 106 Einträge, 11 Seiten |