version 1.4, 2001/01/06 20:08:10
|
version 1.9, 2001/01/30 00:35:24
|
Line 9
|
Line 9
|
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer) |
# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer) |
# |
# |
# 3/1/1,6/1 Gerd Kortemeyer |
# 3/1/1,6/1,17/1,29/1 Gerd Kortemeyer |
|
|
package Apache::lonnavmaps; |
package Apache::lonnavmaps; |
|
|
Line 36 sub euclid {
|
Line 36 sub euclid {
|
return $b; |
return $b; |
} |
} |
|
|
|
# ------------------------------------------------------------- Find out status |
|
|
|
sub astatus { |
|
my $rid=shift; |
|
my $code=1; |
|
my $ctext=''; |
|
$rid=~/(\d+)\.(\d+)/; |
|
my $symb=&Apache::lonnet::escape( |
|
&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'. |
|
&Apache::lonnet::declutter($hash{'src_'.$rid})); |
|
my $answer=&Apache::lonnet::reply( |
|
"restore:$ENV{'user.domain'}:$ENV{'user.name'}:". |
|
$ENV{'request.course.id'}.":$symb", |
|
"$ENV{'user.home'}"); |
|
my %returnhash=(); |
|
map { |
|
my ($name,$value)=split(/\=/,$_); |
|
$returnhash{&Apache::lonnet::unescape($name)}= |
|
&Apache::lonnet::unescape($value); |
|
} split(/\&/,$answer); |
|
if ($returnhash{'version'}) { |
|
my $version; |
|
for ($version=1;$version<=$returnhash{'version'};$version++) { |
|
map { |
|
$returnhash{$_}=$returnhash{$version.':'.$_}; |
|
} split(/\:/,$returnhash{$version.':keys'}); |
|
} |
|
map { |
|
if (($_=~/\.(\w+)\.solved$/) && ($_!~/^\d+\:/)) { |
|
my $part=$1; |
|
if ($returnhash{$_} eq 'correct_by_student') { |
|
unless ($code==2) { $code=3; } |
|
$ctext.='Part '.$part.': solved'; |
|
} elsif ($returnhash{$_} eq 'correct_by_override') { |
|
unless ($code==2) { $code=3; } |
|
$ctext.='Part '.$part.': override'; |
|
} elsif ($returnhash{$_} eq 'incorrect_attempted') { |
|
$code=2; |
|
$ctext.='Part '.$part.': '. |
|
$returnhash{'resource.'.$part.'.tries'}.' attempt(s)'; |
|
} elsif ($returnhash{$_} eq 'incorrect_by_override') { |
|
$code=2; |
|
$ctext.='Part '.$part.': override'; |
|
} elsif ($returnhash{$_} eq 'excused') { |
|
unless ($code==2) { $code=3; } |
|
$ctext.='Part '.$part.': excused'; |
|
} |
|
} |
|
} keys %returnhash; |
|
} |
|
return 'p'.$code.'"'.$ctext.'"'; |
|
} |
|
|
# ------------------------------------------------------------ Build page table |
# ------------------------------------------------------------ Build page table |
|
|
sub tracetable { |
sub tracetable { |
Line 45 sub tracetable {
|
Line 98 sub tracetable {
|
$beenhere.=$rid.'&'; |
$beenhere.=$rid.'&'; |
|
|
if (defined($hash{'is_map_'.$rid})) { |
if (defined($hash{'is_map_'.$rid})) { |
|
$sofar++; |
|
my $tprefix=''; |
|
if ($hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$rid}}} |
|
eq 'sequence') { |
|
$tprefix='h'; |
|
} |
|
if (defined($rows[$sofar])) { |
|
$rows[$sofar].='&'.$tprefix.$rid; |
|
} else { |
|
$rows[$sofar]=$tprefix.$rid; |
|
} |
if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) && |
if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) && |
(defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) { |
(defined($hash{'map_finish_'.$hash{'src_'.$rid}})) && |
|
($tprefix eq 'h')) { |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
$sofar= |
$sofar= |
&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, |
&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, |
Line 55 sub tracetable {
|
Line 120 sub tracetable {
|
if ($hash{'src_'.$frid}) { |
if ($hash{'src_'.$frid}) { |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid}); |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid}); |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
|
my $pprefix=''; |
|
if ($hash{'src_'.$frid}=~ |
|
/\.(problem|exam|quiz|assess|survey|form)$/) { |
|
$pprefix=&astatus($frid); |
|
|
|
} |
if (defined($rows[$sofar])) { |
if (defined($rows[$sofar])) { |
$rows[$sofar].='&'.$frid; |
$rows[$sofar].='&'.$pprefix.$frid; |
} else { |
} else { |
$rows[$sofar]=$frid; |
$rows[$sofar]=$pprefix.$frid; |
} |
} |
} |
} |
} |
} |
Line 68 sub tracetable {
|
Line 139 sub tracetable {
|
if ($hash{'src_'.$rid}) { |
if ($hash{'src_'.$rid}) { |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid}); |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid}); |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
if (($brepriv eq '2') || ($brepriv eq 'F')) { |
|
my $pprefix=''; |
|
if ($hash{'src_'.$rid}=~ |
|
/\.(problem|exam|quiz|assess|survey|form)$/) { |
|
$pprefix=&astatus($rid); |
|
} |
if (defined($rows[$sofar])) { |
if (defined($rows[$sofar])) { |
$rows[$sofar].='&'.$rid; |
$rows[$sofar].='&'.$pprefix.$rid; |
} else { |
} else { |
$rows[$sofar]=$rid; |
$rows[$sofar]=$pprefix.$rid; |
} |
} |
} |
} |
} |
} |
Line 149 sub handler {
|
Line 225 sub handler {
|
# ------------------------------------------------------------------ Page parms |
# ------------------------------------------------------------------ Page parms |
|
|
my $j; |
my $j; |
|
my $i; |
my $lcm=1; |
my $lcm=1; |
my $contents=0; |
my $contents=0; |
|
|
Line 161 sub handler {
|
Line 238 sub handler {
|
$lcm*=($#colcont+1)/euclid($lcm,($#colcont+1)); |
$lcm*=($#colcont+1)/euclid($lcm,($#colcont+1)); |
} |
} |
} |
} |
} |
|
|
|
unless ($contents) { |
unless ($contents) { |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
Line 178 sub handler {
|
Line 255 sub handler {
|
'<html><head><title>Navigate LON-CAPA Maps</title></head>'); |
'<html><head><title>Navigate LON-CAPA Maps</title></head>'); |
|
|
$r->print('<body bgcolor="#FFFFFF">'. |
$r->print('<body bgcolor="#FFFFFF">'. |
|
'<script>window.focus();</script>'. |
|
'<img align=right src=/adm/lonIcons/lonlogos.gif>'. |
'<h1>Navigate Course Map</h1>'); |
'<h1>Navigate Course Map</h1>'); |
$r->rflush(); |
$r->rflush(); |
# ----------------------------------------------------------------- Start table |
# ----------------------------------------------------------------- Start table |
Line 189 sub handler {
|
Line 268 sub handler {
|
my $avespan=$lcm/($#colcont+1); |
my $avespan=$lcm/($#colcont+1); |
for ($j=0;$j<=$#colcont;$j++) { |
for ($j=0;$j<=$#colcont;$j++) { |
my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
$r->print('<td><a href="'. |
my $add='<td> '; |
$hash{'src_'.$rid}.'">'. |
my $adde='</td>'; |
$hash{'title_'.$rid}.'</a>'); |
my $hwk='<font color="#223322">'; |
$r->print('</td>'); |
my $hwke='</font>'; |
|
if ($rid=~/^h(.+)/) { |
|
$rid=$1; |
|
$add='<th bgcolor="#AAFF55">'; |
|
$adde='</th>'; |
|
} |
|
if ($rid=~/^p(\d)\"([\w\: \(\)]*)\"(.+)/) { |
|
my $code=$1; |
|
my $ctext=$2; |
|
$rid=$3; |
|
$hwk='<font color="#888811"><b>'; |
|
$hwke='</b></font>'; |
|
if ($code eq '2') { |
|
$hwk='<font color="#992222"><b>'; |
|
$hwke='</b> ('.$ctext.')</font>'; |
|
} |
|
if ($code eq '3') { |
|
$hwk='<font color="#229922"><b>'; |
|
$hwke='</b> ('.$ctext.')</font>'; |
|
} |
|
} |
|
$r->print($add.'<a href="'.$hash{'src_'.$rid}. |
|
'">'.$hwk. |
|
$hash{'title_'.$rid}.$hwke.'</a>'.$adde); |
} |
} |
$r->print('</tr>'); |
$r->print('</tr>'); |
} |
} |