Wie schließe ich Table-Tags in ActivePerl ab?

[Jörg Dutschke]

Hallo und einen taufrischen guten Morgen.

Ich brauche dringend eure Hilfe bei folgendem Script. Die Problemzone ist gekennzeichnet.

In den wichtigsten Auszügen:
($cursor enthält meine Ergebnisse aus der Datenbankabfrage.)

use DBI qw(:sql_types);
use CGI qw(:standard);
use POSIX qw(strftime);

$http_header = "Content-type: text/html\n\n";
  $q = new CGI;
  print $q->header;
  print $q->start_html,
$q->h1({-style=>'font-size: x-large; font-family: Arial; font-weight: bold; font-style: normal; color: Navy;'},'Software
Management Schulungsplan '),
$q->br,
$q->start_form(-method=>"post",-action=>"/perl/egw/schulungmail.pl");

print $q->table({-border=>1});
print $q->Tr;
print $q->td({-align=>CENTER});

while (@row = $cursor->fetchrow_array)
{
       print $q->checkbox_group(-name=>"hallo",-value=>"$row[0] $row[1]",-label=>"  $row[0], $row[1]"),br;
    }

#---------------------------------------------------------------- Problemzone --------------------------->
print $q->end_td;
print $q->end_Tr;
print $q->end_Table;
#---------------------------------------------------------------- Problemzone ---------------------------<

print $q->br;
print $q->br;
print $q->br,

print $q->"Vorname: ",textfield('name'),p,

$q->"Nachname: ",textfield('nachname'),p,

$q->"Firma: ",textfield('firma'),p,p,

$q->"Teilnehmer;",p,

$q->textfield('teilnehmer1'),br,textfield('teilnehmer2'),br,textfield('teilnehmer3'),br,textfield('teilnehmer4'),br,textfield('teilnehmer5'),br,textfield('teilnehmer6'),br,

$q->submit,
    $q->end_form,
    $q->end_html;

Ziel des Ganzen ist es, aus einer Datenbank einen Schulungsplan auszulesen und sogleich in Form eines Formulars als Webseite auszugeben. Leider akzeptiert ActivePerl alle meine Versuche, die Table-Tags abzuschließen nicht. Kennt einer von euch die entsprechenden Befehle?

Ach ja -...... Das Teil soll in einer WindowsNT Umgebung mit IIS4 laufen ...

Wäre also für konstruktive Hilfe dankbar ....

Ciao
Jörg

[Calocybe]

Hallo und einen taufrischen guten <strike>Morgen.</strike>  Mittag!

#---------------------------------------------------------------- Problemzone --------------------------->
print $q->end_td;
print $q->end_Tr;
print $q->end_Table;
#---------------------------------------------------------------- Problemzone ---------------------------<

Ziel des Ganzen ist es, aus einer Datenbank einen Schulungsplan auszulesen und sogleich in Form eines Formulars als Webseite auszugeben. Leider akzeptiert ActivePerl alle meine Versuche, die Table-Tags abzuschließen nicht. Kennt einer von euch die entsprechenden Befehle?

Weiss zwar nicht genau, was Du meinst, aber ich wuerde einfach schreiben:
print "</TD>\n";
print "</TR>\n";
print "</TABLE>\n";

Ach ja -...... Das Teil soll in einer WindowsNT Umgebung mit IIS4 laufen ...

Das duerfte ziemlich egal sein. Ein Ziel von Perl ist plattformunabhaengigkeit, und das klappt auch oft ganz gut.

Calocybe