[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, 8 months ago) by albertel
Branches: MAIN
CVS tags: HEAD
- early homework handler

# The LON-CAPA Homework handler
# Guy Albertelli

package Apache::lonhomework;
use strict;
use Apache::style;
use Apache::lonxml;

sub handler {
  my $request=shift;

  my @parsecontents;
  {
    my $fh=Apache::File->new($request->filename);
    @parsecontents=<$fh>;
  }
  
  my $parsestring=join('',@parsecontents);
  
  $request->content_type('text/html');
  $request->send_http_header;
  $request->print('<html>
<form method="post" action="'.$request->uri.'"<input type="hidden" name="TARGET" value="edit"><input type="submit" value="Submit">');
}

1;
__END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>