#!/usr/local/gnu/bin/perl
#
# erzeugt eine Liste, das alle Dozenten anzeigt
#
require "./veranstaltungen.ph";
print "Content-Type: text/html\n";
print "\n";
print "\n";
print "\n";
print " Liste aller Dozenten im Institut für Informatik\n";
print "\n";
print "\n";
print "Liste aller Dozenten
\n\n";
$CHANGE_CGI = "form.cgi?change=";
$DELETE_CGI = "form.cgi?delete=";
# Datenbank einlesen
readDatabase("veranstaltungen.db","HTML");
# Sortierte Liste der Dozenten erzeugen
sub dozSort {
my $erg = ($DOZENTTYP{$a} cmp $DOZENTTYP{$b});
if ($erg==0) {$erg = ($DOZENT{$a} cmp $DOZENT{$b}); }
return $erg;
}
@DOZKEYS = sort dozSort keys %DOZENT;
print "Einen neuen Dozenten können Sie hier eingeben.\n";
print "\n";
print "
Zurück zur Administrationsseite\n";
print "
\n";
print " | Name des Dozenten | Typ | Aktionen |
|---|
";
foreach $key (@DOZKEYS) {
print "| $DOZENT{$key} | ";
print "$DOZENTTYPDESC[$DOZENTTYP{$key}] | ";
print "ändern | \n";
print "löschen | \n";
print "
";
}
print "
\n\n";
print "\n";
print "\n";