<% #das hier braucht es immer für die verschiedenen aufgaben der vorlage. bitte auch die variablen- # bezeichnungen so lassen! if ($value[12]) { $value[12] = qq(width="$value[12]"); } if ($in{step} eq "abholen") { #@ecard = &file_getline("$in{ecard_id}",0,"${appdir}/_ecards/_karten.txt"); require "se_mysql.pl"; my $dbh = &connectDatenbank( global => 1, readonly => 1); @ecard = (); my $sql = qq( SELECT *, UNIX_TIMESTAMP(timestamp) AS timestamp FROM ecards_karten WHERE mandant_id = "$SE{mandant}" AND id = "$in{ecard_id}" ); my $sth = $dbh->prepare($sql); $sth->execute || return $sth->errstr; while (my $karte = $sth->fetchrow_hashref) { my $DatensatzKarte = "$karte->{id}\t$karte->{timestamp}\t$karte->{text}\t$karte->{absenderName}\t$karte->{absenderEmail}\t$karte->{empfaengerName}\t$karte->{empfaengerEmail}\t$karte->{ecardID}\t$karte->{briefmarkeID}\t\t$karte->{benachrichtigung}\t\t$karte->{REMOTE_ADDR}\t$karte->{benachrichtigungSent}\t\n"; #push @ecard, $DatensatzKarte; @ecard = split(/\t/,$DatensatzKarte); } $sth->finish; @bilder = &file_getline("$ecard[7]",0,"${appdir}/_ecards/_motive.txt"); @briefmarken = &file_getline("$ecard[8]",0,"${appdir}/_ecards/_briefmarken.txt"); $motiv = $bilder[1]; if ($value[14] eq "ja") { $briefmarke_neu = "cgi-bin/siteengine.pl?page=ecards&subpage=public&action=abholen&briefmarke=$ecard[8]×tamp=$ecard[1]"; } else { $briefmarke_neu = "se_data/_filebank/" . $briefmarken[1]; #$briefmarke_neu =~ s/(\w)*\.jpg//; $briefmarke2 = "st_" . $&; } $motiv_text = $bilder[2]; $text = $ecard[2]; $absender_name = $ecard[3]; $empfaenger_name = $ecard[5]; $versendedatum = &systime_to_date("$ecard[1]"); $out = qq(); } elsif ($in{step} eq "voransicht") { @bilder = &file_getline("$in{ecard}",0,"${appdir}/_ecards/_motive.txt"); @briefmarke = &file_getline("$in{briefmarke}",0,"${appdir}/_ecards/_briefmarken.txt"); #return @briefmarke; $motiv = $bilder[1]; if ($value[14] eq "ja") { $briefmarke_neu = "cgi-bin/siteengine.pl?page=ecards&subpage=public&action=voransicht&briefmarke=$in{briefmarke}×tamp=$ecard[1]"; } else { $briefmarke_neu = "se_data/_filebank/" . $briefmarke[1]; #$briefmarke_neu =~ s/(\w)*\.jpg//; $briefmarke2 = "st_" . $&; } $motiv_text = $bilder[2]; $text = $in{text}; $absender_name = $in{absender_name}; $empfaenger_name = $in{empfaenger_name}; $versendedatum = &systime_to_date(time); $out = qq(); } %> <% #my $stempelpfad = $SEPATH . "/data/templates/stempel.png" %>

alt="<% $motive[2] %>" border="0" > <% $motiv_text %> <% $text %>     <% $LANG{"voransicht_von"} %>: <% $absender_name %> <% $LANG{"voransicht_an"} %>: <% $empfaenger_name %> <% $LANG{"voransicht_datum"} %>: <% $versendedatum %>

<% #das hier braucht es immer für die verschiedenen aufgaben der vorlage. bitte auch die variablen- #bezeichnungen so lassen! my $links; if ($in{step} eq "abholen") { $links .= qq( $LANG{"ansicht_link_antworten"} >>     ); } elsif ($in{step} eq "voransicht") { $links .= qq( < $LANG{"voransicht_bearbeiten"}     $LANG{"voransicht_abschicken"} >

  ); } $links; %>