Return to grades.pm CVS log | Up to [LON-CAPA] / loncom / homework |
- trying to add some support for viewing submissions
1: # The LON-CAPA Grading handler 2: # Guy Albertelli 3: # 11/30 Gerd Kortemeyer 4: # 6/1 Gerd Kortemeyer 5: 6: package Apache::grades; 7: use strict; 8: use Apache::style; 9: use Apache::lonxml; 10: use Apache::lonnet; 11: use Apache::lonhomework; 12: use Apache::Constants qw(:common); 13: 14: sub handler { 15: my $request=$_[0]; 16: 17: if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} else {$Apache::lonxml::debug=0;} 18: 19: if ($ENV{'browser.mathml'}) { 20: $request->content_type('text/xml'); 21: } else { 22: $request->content_type('text/html'); 23: } 24: $request->send_http_header; 25: return OK if $request->header_only; 26: my $url=$ENV{'form.url'}; 27: if ($url eq '') { 28: $request->print("Non-Contextual Access Unsupported"); 29: } else { 30: $Apache::grades::viewgrades=&Apache::lonnet::allowed('vgr',$url); 31: } 32: 33: return OK; 34: } 35: 36: 1; 37: 38: __END__;