--- loncom/interface/lonnavmaps.pm 2001/01/06 20:17:33 1.5
+++ loncom/interface/lonnavmaps.pm 2001/01/16 22:19:18 1.7
@@ -45,8 +45,20 @@ sub tracetable {
$beenhere.=$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}})) &&
- (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}};
$sofar=
&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},
@@ -55,10 +67,14 @@ sub tracetable {
if ($hash{'src_'.$frid}) {
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid});
if (($brepriv eq '2') || ($brepriv eq 'F')) {
+ my $pprefix='';
+ if ($hash{'src_'.$frid}=~/\.problem$/) {
+ $pprefix='p1';
+ }
if (defined($rows[$sofar])) {
- $rows[$sofar].='&'.$frid;
+ $rows[$sofar].='&'.$pprefix.$frid;
} else {
- $rows[$sofar]=$frid;
+ $rows[$sofar]=$pprefix.$frid;
}
}
}
@@ -68,10 +84,14 @@ sub tracetable {
if ($hash{'src_'.$rid}) {
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid});
if (($brepriv eq '2') || ($brepriv eq 'F')) {
+ my $pprefix='';
+ if ($hash{'src_'.$rid}=~/\.problem$/) {
+ $pprefix='p1';
+ }
if (defined($rows[$sofar])) {
- $rows[$sofar].='&'.$rid;
+ $rows[$sofar].='&'.$pprefix.$rid;
} else {
- $rows[$sofar]=$rid;
+ $rows[$sofar]=$pprefix.$rid;
}
}
}
@@ -179,6 +199,7 @@ sub handler {
'Navigate LON-CAPA Maps');
$r->print(''.
+ '
'.
'Navigate Course Map
');
$r->rflush();
# ----------------------------------------------------------------- Start table
@@ -190,10 +211,32 @@ sub handler {
my $avespan=$lcm/($#colcont+1);
for ($j=0;$j<=$#colcont;$j++) {
my $rid=$colcont[$j];
- $r->print(''.
- $hash{'title_'.$rid}.'');
- $r->print(' | ');
+ my $add=' ';
+ my $adde=' | ';
+ my $hwk='';
+ my $hwke='';
+ if ($rid=~/^h(.+)/) {
+ $rid=$1;
+ $add='';
+ $adde=' | ';
+ }
+ if ($rid=~/^p(\d)(.+)/) {
+ my $code=$1;
+ $rid=$2;
+ $hwk='';
+ if ($code eq '2') {
+ $hwk='';
+ $hwke='';
+ }
+ if ($code eq '3') {
+ $hwk='';
+ } elsif ($code eq '4') {
+ $hwk='';
+ }
+ }
+ $r->print($add.''.$hwk.
+ $hash{'title_'.$rid}.$hwke.''.$adde);
}
$r->print('');
}