INTRO project 2002
Fyll i grupptillhörighet (K12, K34, K56, Kf123, Bt12, Bt34 eller Bt56), namn och projekttitel.
END
$agent=$ENV{'HTTP_USER_AGENT'};
}
sub PrintForm {
print " \n";
}
sub ProcessForm {
$nygrupp = $input{'grupp'};
$nynamn1 = $input{'namn1'};
$nynamn2 = $input{'namn2'};
$nynamn3 = $input{'namn3'};
$nynamn4 = $input{'namn4'};
$nytitel = $input{'titel'};
if($nygrupp eq '') {
print "Ej angett grupptillhörighet. ";
print "";
print "Försök igen!\n\n";
&PrintFoot;
exit;
}
if($nynamn1 eq '') {
print "Ange era namn. ";
print "";
print "Försök igen!\n \n";
&PrintFoot;
exit;
}
if($nytitel eq '') {
print "Ange en projekttitel. ";
print "";
print "Försök igen!\n \n";
&PrintFoot;
exit;
}
open(FIL,"<$namnfil");
@data=();
$count = 0;
for(@data) {
if($count == 0) {
$count += s!^\|\|!|$nygrupp|$nynamn1|$nynamn2|$nynamn3|$nynamn4|$nytitel!o;
}
}
unless($count == 1) {
print "Något gick fel. :(\n";
print "";
print "Försök igen!\n \n";
&PrintFoot;
exit;
}
close(FIL);
open(FIL,">$namnfil");
print FIL @data;
close(FIL);
print "Er projektanmälan är nu registrerad.\n";
print "OBS! Kontrollera nedan att ni kom med.\n";
print "\n \n";
print "Tillbaka till \n";
print "kursens ";
print "hemsida.\n \n";
}
sub PrintList {
open(FIL,"<$namnfil");
print "
\n";
print " Lista över projekt:\n";
print "
";
$enrad = ;
($slask, $grupp, $namn1, $namn2, $namn3, $namn4, $titel) = split(/\|/, $enrad);
until ($grupp eq "") {
print "$grupp \n";
print "$namn1";
unless ($namn2 eq "") {
print ", $namn2";
}
unless ($namn3 eq "") {
print ", $namn3";
}
unless ($namn4 eq "") {
print ", $namn4";
}
print "
\n";
print "$titel";
print "
\n";
$enrad = ;
($slask, $grupp, $namn1, $namn2, $namn3, $namn4, $titel) = split(/\|/, $enrad);
}
close(FIL);
}
sub PrintFoot {
print <
|