#!/usr/local/gnu/bin/perl


#
# erzeugt ein Formular, das alle Einstellungen anzeigt
#

require "./veranstaltungen.ph";

print "Content-Type: text/html\n";
print "\n";
print "<HTML>\n";
print "<HEAD>\n";
print "  <TITLE>Datenbank-Eigenschaften Veranstaltungen im Institut f&uuml;r Informatik</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";

# Datenbank einlesen
readDatabase("veranstaltungen.db","HTML");

print "<H1>Datenbank-Eigenschaften (Veranstaltung) ändern</H1>\n";
print "\n";
print "Auf dieser Seite finden Sie Formulare, um allgemeine Angeben zu den\n";
print "Veranstaltungen zu &auml;ndern.\n";
print "<P>In der <A HREF=\"liste.cgi\">Liste aller Veranstaltungen</A> k&ouml;nnen\n";
print "Sie Veranstaltungen &auml;ndern, l&ouml;schen und neu anlegen.</P>\n";
print "<P>In der <A HREF=\"dozListe.cgi\">Liste aller Dozenten</A> k&ouml;nnen\n";
print "Sie Dozenten &auml;ndern, l&ouml;schen und neu anlegen.</P>\n";
print "\n";
print "<H3>Aktuelles/N&auml;chstes Semester &auml;ndern</H3><BLOCKQUOTE>\n";
print "<P>Sie k&ouml;nnen hier den Namen des aktuellen und n&auml;chsten Semesters\n";
print "&auml;ndern - diese beiden Semester werden auf der Startseite angezeigt.</P>\n";
print "\n";
print "<FORM ACTION=\"admin.cgi?setup\" METHOD=POST>\n";
print "   <INPUT TYPE=HIDDEN NAME=OLD_ACT_SEMESTER VALUE=\"$ACT_SEMESTER\"></INPUT>\n";
print "   <INPUT TYPE=HIDDEN NAME=OLD_NEXT_SEMESTER VALUE=\"$NEXT_SEMESTER\"></INPUT>\n";
print "   <TABLE BORDER CELLPADDING=5>\n";
print "     <TR>\n";
print "        <TD VALIGN=TOP><STRONG>Aktuelles Semester:</STRONG></TD>\n";
print "        <TD VALIGN=TOP><INPUT TYPE=TEXT NAME=ACT_SEMESTER SIZE=20 VALUE=\"$ACT_SEMESTER\"></INPUT>\n";
print "        <TD VALIGN=TOP><EM>SS 1999</EM></TD>\n";
print "     </TR><TR>\n";
print "        <TD VALIGN=TOP><STRONG>N&auml;chstes Semester:</STRONG></TD>\n";
print "        <TD VALIGN=TOP><INPUT TYPE=TEXT NAME=NEXT_SEMESTER SIZE=20 VALUE=\"$NEXT_SEMESTER\"></INPUT>\n";
print "        <TD VALIGN=TOP><EM>WS 1999/2000</EM></TD>\n";
print "     </TR><TR>\n";
print "        <TD COLSPAN=3 ALIGN=CENTER><INPUT TYPE=SUBMIT VALUE=\"Änderungen speichern\"></INPUT></TD>\n";
print "     </TR>\n";
print "   </TABLE>\n";
print "</FORM></BLOCKQUOTE>\n";
print "</BODY>\n";
print "</HTML>\n";
