--- loncom/homework/Attic/lonproblem.pm 2001/08/06 18:35:51 1.4 +++ loncom/homework/Attic/lonproblem.pm 2001/08/06 20:33:23 1.5 @@ -1,10 +1,7 @@ -# The LON-CAPA problem handler -# +# The LearningOnline Network with CAPA # Problem Handler # # 12/15-01/21,01/24 Gerd Kortemeyer -# 4/12 Guy Albertelli -# 8/6 Scott Harrison package Apache::lonproblem; @@ -14,198 +11,201 @@ use Safe; 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 "