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

renee
 2004-04-28 18:05
#2210 #2210
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
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
<html>                                                                          
<title>Bedarfsmeldung</title>                                                   
<body>                                                                          
  <FORM action="/cgi-franz-kahl/bedarfsmeldung2.pl" method="post">             
 <h1>Bedarfsmeldung</h1>                                                       
<table>                                                                         
<tr>                                                                            
<td><FONT face=Arial>Name des Empfaengers:</FONT>
<INPUT size=20 name="EMPFAENGER" value="<!-- TMPL_VAR NAME=EMPFAENGER 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="KST" value="<!-- TMPL_VAR NAME=KST 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>


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
54
#! /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/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 => $pa
rams{EURO});                                                                    
my $alte = $params{alt}.";$params{ARTIKEL}#$params{STUECK}#$params{EURO}";     
$template->param(ALT => $alte,                                                 
                       ARTIKELLISTE => \@loop,                                                 
                       ABTEILUNG => $params{ABTEILUNG},                                                 
                       KST => $params{KST},                                                 
                       DATUM => $params{DATUM},
                       EMPFAENGER => $params{EMPFAENGER});                                
}                                                                               
else{                                                                           
my $sendmail = '/usr/bin/sendmail -t';
my $sender = 'Piero <deine_adresse@domain.tld>';
my $empfaenger = 'Du <mail@adresse.tld>';
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();                                                      
\n\n

<!--EDIT|renee|1083161313-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Hinzufügen von Spalten in einer Tabelle