version 1.10, 2001/01/30 19:31:32
|
version 1.11, 2001/01/30 20:04:54
|
Line 154 sub astatus {
|
Line 154 sub astatus {
|
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
&Apache::lonnet::declutter($hash{'src_'.$rid}); |
my $duedate=&parmval('0.duedate',$symb); |
my $duedate=&parmval('0.duedate',$symb); |
if ($duedate) { |
my $opendate=&parmval('0.opendate',$symb); |
$ctext.='Due: '.localtime($duedate); |
my $answerdate=&parmval('0.answerdate',$symb); |
|
my $now=time; |
|
my $tcode=0; |
|
if ($now<$duedate) { |
|
$tcode=2; |
|
$ctext='Due: '.localtime($duedate); |
|
if ($now<$opendate) { |
|
$tcode=1; |
|
$ctext='Open: '.localtime($opendate); |
|
} |
|
if ($duedate-$now<86400) { |
|
$tcode=4; |
|
$ctext='Due: '.localtime($duedate); |
|
} |
|
} else { |
|
$tcode=3; |
|
if ($now<$answerdate) { |
|
$ctext='Answer: '.localtime($duedate); |
|
} |
} |
} |
my $answer=&Apache::lonnet::reply( |
my $answer=&Apache::lonnet::reply( |
"restore:$ENV{'user.domain'}:$ENV{'user.name'}:". |
"restore:$ENV{'user.domain'}:$ENV{'user.name'}:". |
Line 191 sub astatus {
|
Line 209 sub astatus {
|
} elsif ($returnhash{$_} eq 'incorrect_attempted') { |
} elsif ($returnhash{$_} eq 'incorrect_attempted') { |
$code=2; |
$code=2; |
$ctext.= |
$ctext.= |
$returnhash{'resource.'.$part.'.tries'}.' attempt(s)'; |
$returnhash{'resource.'.$part.'.tries'}.'/'. |
|
&parmval($part.'.maxtries',$symb).' tries'; |
} elsif ($returnhash{$_} eq 'incorrect_by_override') { |
} elsif ($returnhash{$_} eq 'incorrect_by_override') { |
$code=2; |
$code=2; |
$ctext.='override'; |
$ctext.='override'; |
Line 202 sub astatus {
|
Line 221 sub astatus {
|
} |
} |
} keys %returnhash; |
} keys %returnhash; |
} |
} |
return 'p'.$code.'"'.$ctext.'"'; |
return 'p'.$code.$tcode.'"'.$ctext.'"'; |
} |
} |
|
|
# ------------------------------------------------------------ Build page table |
# ------------------------------------------------------------ Build page table |
Line 444 sub handler {
|
Line 463 sub handler {
|
$add='<th bgcolor="#AAFF55">'; |
$add='<th bgcolor="#AAFF55">'; |
$adde='</th>'; |
$adde='</th>'; |
} |
} |
if ($rid=~/^p(\d)\"([\w\: \(\)\,]*)\"(.+)/) { |
if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) { |
my $code=$1; |
my $code=$1; |
my $ctext=$2; |
my $tcode=$2; |
$rid=$3; |
my $ctext=$3; |
|
$rid=$4; |
|
if ($tcode eq '1') { |
|
$add='<td bgcolor="#AAAAAA">'; |
|
} |
|
if ($code eq '3') { |
|
$add='<td bgcolor="#AAFFAA">'; |
|
} else { |
|
$add='<td bgcolor="#FFAAAA">'; |
|
if ($tcode eq '2') { |
|
$add='<td bgcolor="#FFFFAA">'; |
|
} |
|
if ($tcode eq '4') { |
|
$add='<td bgcolor="#FFFF33"><blink>'; |
|
$adde='</blink></td>'; |
|
} |
|
} |
$hwk='<font color="#888811"><b>'; |
$hwk='<font color="#888811"><b>'; |
$hwke='</b></font>'; |
$hwke='</b></font>'; |
if ($code eq '1') { |
if ($code eq '1') { |