Thread Hinzufügen von Spalten in einer Tabelle (105 answers)
Opened by piero at 2004-04-26 12:59

piero
 2004-05-07 16:30
#2215 #2215
User since
2004-03-03
98 Artikel
BenutzerIn
[default_avatar]
Hallo,
das ist meine .htm datei:

Code: (dl )
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
34
35
36
37
38
39
40
41
42
43
44
45
<html>
<title>Bedarfsmeldung</title>
<body bgcolor = #689cd0>
<FORM action="/cgi-franz-kahl/bedarfsmeldung2.pl" method="post">             
<h1>Bedarfsmeldung</h1>   
<h2><!-- TMPL_IF NAME=MESSAGE --> <!-- TMPL_VAR NAME=MESSAGE --> <!-- /TMPL_IF -->
<table>
<tr>
<td><FONT face=Arial>Name des Empfaengers:</FONT>
<INPUT size=20 name="BENUTZER" value="<!-- TMPL_VAR NAME=BENUTZER ESCAPE=HTML -->"></td>
<table>
<tr>
<td><FONT face=Arial>Abteilung:</FONT>
<INPUT size=20 name="ABTEILUNG" value="<!-- TMPL_VAR NAME=ABTEILUNG ESCAPE=HTML  -->"></td>     
<td><FONT face=Arial>Kostenstelle:</FONT>
<INPUT size=20 name="KOSTENSTELLE" value="<!-- TMPL_VAR NAME=KOSTENSTELLE ESCAPE=HTML -->"></td>        
<td><FONT face=Arial>Datum:</FONT>
<INPUT size=10 name="DATUM" value="<!-- TMPL_VAR NAME=DATUM ESCAPE=HTML -->"></td>
</tr>
<table>
  <tr>
    <td width="5%">Stueck</td>
    <td width="80%">Artikel</td>
    <td width="15%">EURO</td>
  </tr>
  <!-- TMPL_LOOP NAME=ARTIKELLISTE -->
    <tr>
      <td><!-- TMPL_VAR NAME=STUECK --></td>
      <td><!-- TMPL_VAR NAME=ARTIKEL --></td>
      <td><!-- TMPL_VAR NAME=EURO --></td>
    </tr>
  <!-- /TMPL_LOOP -->
    <tr>
      <td><INPUT size=5 name="STUECK"></td>
      <td><INPUT size=90 name="ARTIKEL"></td>
      <td><INPUT size=5 name="EURO"></td>
    </tr>
  <tr>
</table>
<input name="add" type="submit" value="Artikel hinzufügen"> * 
<input type=submit value=Senden name=submit>
<input type="hidden" value="<!-- TMPL_VAR NAME=ALT ESCAPE=HTML -->" name="alt"> 
</form>
</body>
</html>


Das ist meine .pl datei:

Code: (dl )
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
#! /usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use HTML::Template; # musst Du Dir evtl. noch installieren

my $cgi = CGI->new(); 
my %params = $cgi->Vars();     
print $cgi->header(-type => 'text/html');       

my $template = HTML::Template->new(filename =>  '/home/webmaster/docs/deutsch/Bedarfsmeldung/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 => $params{EURO}});
my $alte = $params{alt}.";$params{ARTIKEL}#$params{STUECK}#$params{EURO}";     
$template->param(ALT => $alte,                                                 
                     ARTIKELLISTE => \@loop,                                                 
                     ABTEILUNG => $params{ABTEILUNG},                                                 
                     KOSTENSTELLE => $params{KOSTENSTELLE},                                                 
                     DATUM => $params{DATUM},
                     BENUTZER => $params{BENUTZER});                                
}
elsif($params{submit}){
my $sendmail = '/usr/sbin/sendmail -t';
my $sender = 'Piero <gior@imap.de>';
my $empfaenger = 'Du <gior@imap>';
my $betreff = 'Artikelliste';
my $body = "Artikel\tStueck\tPreis\n";

my @artikel = split(/;/,$params{alt});
foreach(@artikel){
 my ($art,$st,$eur) = split(/#/,$_);
 $body .= $art."\t".$st."\t".$eur."\n";
}

open(MAIL,"| $sendmail") or print $!;
print MAIL "To: $empfaenger\n";
print MAIL "From: $sender\n";
print MAIL "Subject: $betreff\n\n";
print MAIL $body;
close MAIL;
$template->param(MESSAGE => 'E-Mail wurde abgeschickt');
}
print $template->output();

View full thread Hinzufügen von Spalten in einer Tabelle