--- loncom/homework/grades.pm 2001/02/07 00:29:30 1.1 +++ loncom/homework/grades.pm 2001/02/09 03:24:45 1.2 @@ -11,6 +11,49 @@ use Apache::lonnet; use Apache::lonhomework; use Apache::Constants qw(:common); +sub moreinfo { + my ($request,$reason) = @_; + $request->print("Unable to process request: $reason"); + $request->print('
'."\n"); + $request->print(''."\n"); + $request->print(''."\n"); + $request->print("Student:".''."
\n"); + $request->print("Domain:".''."
\n"); + $request->print(''."
\n"); + $request->print('
'); +} + + +sub finduser { + my ($name) = @_; + +} + +sub submission { + my ($request) = @_; + if ($ENV{'form.student'} eq '') { &moreinfo($request,"Need student login id"); return ''; } + my ($uname,$udom) = &finduser($ENV{'form.student'}); + if ($uname eq '') { &moreinfo($request,"Unable to find student"); return ''; } +# my $answer=&Apache::lonnet::reply( +# "restore:$udom:$uname:". +# $ENV{'request.course.id'}.':'. +# &Apache::lonnet::escape($symb), +# &Apache::lonnet::homeserver($uname,$udom)); + return ''; +} + +sub send_header { + my ($request)= @_; + $request->print(&Apache::lontexconvert::header()); + $request->print(''); +} + +sub send_footer { + my ($request)= @_; + $request->print(''); + $request->print(&Apache::lontexconvert::footer()); +} + sub handler { my $request=$_[0]; @@ -24,12 +67,20 @@ sub handler { $request->send_http_header; return OK if $request->header_only; my $url=$ENV{'form.url'}; + my $command=$ENV{'form.command'}; + + &send_header($request); if ($url eq '') { - $request->print("Non-Contextual Access Unsupported"); + $request->print("Non-Contextual Access Unsupported:$command:$url:"); } else { $Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$url); + if ($command eq 'submission') { + &submission($request); + } else { + $request->print("Unknown action:$command:"); + } } - + &send_footer($request); return OK; }