--- loncom/homework/Attic/lonproblem.pm 2000/01/21 20:01:28 1.1 +++ loncom/homework/Attic/lonproblem.pm 2000/04/12 20:06:16 1.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Problem Handler # -# 12/15-01/21 Gerd Kortemeyer +# 12/15-01/21,01/24 Gerd Kortemeyer package Apache::lonproblem; @@ -13,415 +13,464 @@ use Apache::File; # ================================================================ Main Handler sub handler { -my $r=shift; -my @parsecontents; -my $parsestring; -my $outstring; - -{ - my $fh=Apache::File->new($r->filename); - @parsecontents=<$fh>; -} - -$parsestring=join('',@parsecontents); - -print "