[BACK]Return to lonhomework.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Annotation of loncom/homework/lonhomework.pm, revision 1.1

1.1     ! albertel    1: # The LON-CAPA Homework handler
        !             2: # Guy Albertelli
        !             3: 
        !             4: package Apache::lonhomework;
        !             5: use strict;
        !             6: use Apache::style;
        !             7: use Apache::lonxml;
        !             8: 
        !             9: sub handler {
        !            10:   my $request=shift;
        !            11: 
        !            12:   my @parsecontents;
        !            13:   {
        !            14:     my $fh=Apache::File->new($request->filename);
        !            15:     @parsecontents=<$fh>;
        !            16:   }
        !            17:   
        !            18:   my $parsestring=join('',@parsecontents);
        !            19:   
        !            20:   $request->content_type('text/html');
        !            21:   $request->send_http_header;
        !            22:   $request->print('<html>
        !            23: <form method="post" action="'.$request->uri.'"<input type="hidden" name="TARGET" value="edit"><input type="submit" value="Submit">');
        !            24: }
        !            25: 
        !            26: 1;
        !            27: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>