[BACK]Return to lonhomework.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework
File:  [LON-CAPA] / loncom / homework / lonhomework.pm
Revision 1.1: download - view: text, annotated - select for diffs
Tue Jul 25 17:45:40 2000 UTC (23 years, 9 months ago) by albertel
Branches: MAIN
CVS tags: HEAD
- early homework handler

    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>