[BACK]Return to lonnavmaps.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonnavmaps.pm between versions 1.43 and 1.45

version 1.43, 2002/08/21 17:18:08 version 1.45, 2002/09/02 18:25:55
Line 339  sub tracetable { Line 339  sub tracetable {
     my ($sofar,$rid,$beenhere,$showtypes,$indent,$linkid)=@_;      my ($sofar,$rid,$beenhere,$showtypes,$indent,$linkid)=@_;
     my $newshowtypes=$showtypes;      my $newshowtypes=$showtypes;
     my $further=$sofar;      my $further=$sofar;
     #$Apache::lonxml::debug=1;  # $Apache::lonxml::debug=1;
     &Apache::lonxml::debug("$rid ; $linkid ; $sofar ; $beenhere ; ".$hash{'src_'.$rid});      &Apache::lonxml::debug("$rid ; $linkid ; $sofar ; $beenhere ; ".$hash{'src_'.$rid});
     if ($beenhere=~/\&$rid\&/) { return $further; }      if ($beenhere=~/\&$rid\&/) { return $further; }
     $beenhere.=$rid.'&';      $beenhere.=$rid.'&';
Line 491  sub handler { Line 491  sub handler {
   
  @rows=();   @rows=();
   
  &tracetable(0,$firstres,'&'.$lastres.'&','',0);   &tracetable(0,$firstres,'&','',0);
  if ($hash{'src_'.$lastres}) {  
     my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$lastres});  
     if (($brepriv eq '2') || ($brepriv eq 'F')) {  
  $rows[$#rows+1]=''.$lastres;  
     }  
  }  
   
 # ------------------------------------------------------------------ Page parms  # ------------------------------------------------------------------ Page parms
   
Line 613  sub handler { Line 607  sub handler {
     $r->print("\n<tr>");      $r->print("\n<tr>");
     my @colcont=split(/\&/,$rows[$i]);      my @colcont=split(/\&/,$rows[$i]);
     my $avespan=$lcm/($#colcont+1);      my $avespan=$lcm/($#colcont+1);
   
       # for each item I wish to print on this row...
     for ($j=0;$j<=$#colcont;$j++) {      for ($j=0;$j<=$#colcont;$j++) {
  my $indent;my $indentstr;   my $indent;my $indentstr;
  my $linkid;   my $linkid;
  my $rid=$colcont[$j];   my $rid=$colcont[$j];
   
    # bug? $rid can't accept a list of two elements
                         $rid=~/(\d+)\.(\d+)$/;                          $rid=~/(\d+)\.(\d+)$/;
  my $src=   my $src=
    &Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2});     &Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2});
Line 654  sub handler { Line 652  sub handler {
     } elsif ($code eq '4') {      } elsif ($code eq '4') {
  $add='<td bgcolor="#E0FFAA">';   $add='<td bgcolor="#E0FFAA">';
     } else {      } else {
  $add='<td bgcolor="#FFAAAA">';   $add='<td bgcolor="#CCCCFF">';
  if ($tcode eq '2') {   if ($tcode eq '2') {
     $add='<td bgcolor="#FFFFAA">';      $add='<td bgcolor="#FFFFAA">';
  }   }
Removed from v.1.43  
changed lines
  Added in v.1.45

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>