|
version 1.31, 2001/01/11 15:20:58
|
version 1.34, 2001/01/15 21:44:21
|
|
Line 17 use Apache::Constants qw(:common);
|
Line 17 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'); |
|
Line 95 sub check_date {
|
Line 95 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 117 sub check_date {
|
Line 117 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(); |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhomework.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework