#!/usr/local/gnu/bin/perl
#
# erzeugt eine Liste aller eingetragenen Veranstaltungen als
# HTML-Datei
#
require "./veranstaltungen.ph";
$CHANGE_CGI = "form.cgi?change=";
$DELETE_CGI = "form.cgi?delete=";
# Datenbank einlesen
readDatabase("veranstaltungen.db","HTML");
my @INDEX = sortDatabase("Name");
print "Content-Type: text/html\n";
print "\n";
print "\n";
print "\n";
print " Liste aller Veranstaltungen im Institut für Informatik\n";
print "\n";
print "\n\n";
print "Liste aller Veranstaltungen
\n\n";
print "\n";
print "Eine neue Veranstaltung können Sie hier eingeben.\n";
print "\n";
print "
Zurück zur Administrationsseite\n";
print "
\n";
print " | Name der Veranstaltung | Semester | Typ | ";
print " Aktionen |
|---|
\n";
for (my $i=0 ; $i<=$last ; ++$i) {
my $idx = $INDEX[$i];
print "| $NAME[$idx] | ";
print "$SEMESTER[$idx] | ";
print "$TYP[$idx] | ";
print "ändern | ";
print "löschen |
\n";
}
print "
\n\n";
print "\n";
print "\n";