--- loncom/homework/Attic/lonproblem.pm 2000/02/22 21:32:17 1.2 +++ loncom/homework/Attic/lonproblem.pm 2000/04/12 20:06:16 1.3 @@ -13,28 +13,28 @@ 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 "