version 1.28, 2001/01/08 13:51:10
|
version 1.38, 2001/02/19 14:53:54
|
Line 12 use Apache::inputtags;
|
Line 12 use Apache::inputtags;
|
use Apache::structuretags; |
use Apache::structuretags; |
use Apache::response; |
use Apache::response; |
use Apache::hint; |
use Apache::hint; |
|
use Apache::outputtags; |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if ( $ENV{'request.state'} eq "published") { |
if ( defined $ENV{'form.submit'}) { |
if ( defined $ENV{'form.submitted'}) { |
return ('grade', 'web'); |
return ('grade', 'web'); |
} else { |
} else { |
return ('web'); |
return ('web'); |
} |
} |
} elsif ($ENV{'request.state'} eq "construct") { |
} elsif ($ENV{'request.state'} eq "construct") { |
if ( defined $ENV{'form.preview'}) { |
if ( defined $ENV{'form.preview'}) { |
if ( defined $ENV{'form.submit'}) { |
if ( defined $ENV{'form.submitted'}) { |
return ('grade', 'web'); |
return ('grade', 'web'); |
} else { |
} else { |
return ('web'); |
return ('web'); |
} |
} |
} else { |
} else { |
return ('edit'); |
#return ('edit'); |
|
#edit is currently broken |
|
return ('web'); |
} |
} |
} |
} |
return (); |
return (); |
Line 48 sub send_header {
|
Line 51 sub send_header {
|
# $request->print('<form name='.$ENV{'form.request.prefix'}.'lonhomework method="POST" action="'.$request->uri.'">'); |
# $request->print('<form name='.$ENV{'form.request.prefix'}.'lonhomework method="POST" action="'.$request->uri.'">'); |
} |
} |
|
|
|
sub createmenu { |
|
my ($which,$request)=@_; |
|
if ($which eq 'grade') { |
|
$request->print('<script language="JavaScript"> |
|
hwkmenu=window.open("/res/adm/pages/homeworkmenu.html","homeworkremote", |
|
"height=350,width=150,menubar=no"); |
|
</script>'); |
|
} |
|
} |
|
|
sub send_footer { |
sub send_footer { |
my ($request)= @_; |
my ($request)= @_; |
# $request->print('</form>'); |
# $request->print('</form>'); |
$request->print(&Apache::lontexconvert::footer()); |
$request->print(&Apache::lontexconvert::footer()); |
} |
} |
|
|
#@Apache::lonhomework::date_status=(); |
$Apache::lonxml::browse=''; |
#@Apache::lonhomework::date_msg=(); |
|
sub check_date { |
sub check_date { |
my ($id) = @_; |
my ($id) = @_; |
my $date =''; |
my $date =''; |
Line 72 sub check_date {
|
Line 84 sub check_date {
|
&Apache::lonxml::debug("found :$date: for :$temp:"); |
&Apache::lonxml::debug("found :$date: for :$temp:"); |
if ($date eq '') { |
if ($date eq '') { |
$date = "an unknown date"; $passed = 0; |
$date = "an unknown date"; $passed = 0; |
|
} elsif ($date eq 'con_lost') { |
|
$date = "an indeterminate date"; $passed = 0; |
} else { |
} else { |
if (time < $date) { $passed = 0; } else { $passed = 1; } |
if (time < $date) { $passed = 0; } else { $passed = 1; } |
$date = localtime $date; |
$date = localtime $date; |
Line 90 sub check_date {
|
Line 104 sub check_date {
|
$datemsg = "is due at $date"; |
$datemsg = "is due at $date"; |
} elsif ($type eq 'answerdate') { |
} elsif ($type eq 'answerdate') { |
$status='CLOSED'; |
$status='CLOSED'; |
$datemsg = "was due as $lastdate, and answers will be available at $date"; |
$datemsg = "was due on $lastdate, and answers will be available on $date"; |
} |
} |
if ($status eq 'CAN_ANSWER') { |
if ($status eq 'CAN_ANSWER') { |
#check #tries |
#check #tries |
Line 101 sub check_date {
|
Line 115 sub check_date {
|
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
} |
} |
&Apache::lonxml::debug("sending back :$status:$datemsg:"); |
&Apache::lonxml::debug("sending back :$status:$datemsg:"); |
|
if (($Apache::lonhomework::browse eq 'F') && ($status eq 'CLOSED')) { |
|
&Apache::lonxml::debug("should be allowed to browse a resource when closed"); |
|
$status='CAN_ANSWER'; |
|
$datemsg='is closed but you are allowed to view it'; |
|
} |
if ($ENV{'request.state'} eq "construct") { |
if ($ENV{'request.state'} eq "construct") { |
&Apache::lonxml::debug("in construction ignoring dates"); |
&Apache::lonxml::debug("in construction ignoring dates"); |
$status='CAN_ANSWER'; |
$status='CAN_ANSWER'; |
Line 111 sub check_date {
|
Line 130 sub check_date {
|
|
|
sub handler { |
sub handler { |
my $request=$_[0]; |
my $request=$_[0]; |
|
|
if ( $ENV{'user.name'} eq 'albertel' ) { $Apache::lonxml::debug=1; } |
if ( $ENV{'user.name'} eq 'albertel' ) {$Apache::lonxml::debug=1;} else {$Apache::lonxml::debug=0;} |
|
|
my (@targets) = &get_target(); |
my (@targets) = &get_target(); |
|
|
Line 123 sub handler {
|
Line 142 sub handler {
|
} |
} |
$request->send_http_header; |
$request->send_http_header; |
return OK if $request->header_only; |
return OK if $request->header_only; |
|
|
|
#setup permissions |
|
$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'}); |
|
$Apache::lonhomework::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
|
&Apache::lonxml::debug("Permissions:$Apache::lonhomework::browse:$Apache::lonhomework::viewgrades:"); |
|
|
|
#check if we know where we are |
|
if ($ENV{'request.course.fn'} && !&Apache::lonnet::symbread()) { |
|
# if we are browsing we might not be able to know where we are |
|
if ($Apache::lonhomework::browse ne 'F') { |
|
#should know where we are, so ask |
|
$request->internal_redirect('/adm/ambiguous'); return; |
|
} |
|
} |
|
|
&Apache::lonhomework::send_header($request); |
&Apache::lonhomework::send_header($request); |
|
|
#check if allowed to see |
|
|
|
foreach my $target (@targets) { |
foreach my $target (@targets) { |
my $file=&Apache::lonnet::filelocation("",$request->uri); |
my $file=&Apache::lonnet::filelocation("",$request->uri); |
my $problem=&Apache::lonnet::getfile($file); |
my $problem=&Apache::lonnet::getfile($file); |
Line 144 sub handler {
|
Line 175 sub handler {
|
#ignore error conditions |
#ignore error conditions |
my ($temp)=keys %Apache::lonhomework::history ; |
my ($temp)=keys %Apache::lonhomework::history ; |
if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); } |
if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); } |
if ($target eq 'web' && &Apache::lonnet::symbread() eq '') { |
if ($target eq 'web') { |
$request->print("Vieiwing this problem as not a student, submissions will be ignored."); |
if (&Apache::lonnet::symbread() eq '') { |
|
if ($ENV{'request.state'} eq "construct") { |
|
$request->print("In construction space, submissions ignored<br>"); |
|
} else { |
|
$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br>"); |
|
} |
|
} |
|
if ($Apache::lonhomework::viewgrades eq 'F') {&createmenu('grade',$request); } |
} |
} |
if ($target eq 'grade') { |
if ($target eq 'grade') { |
my $resultkey; |
my $resultkey; |