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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.35 and 1.36

version 1.35, 2002/03/26 23:14:39 version 1.36, 2002/06/24 14:28:10
Line 278  sub addresource { Line 278  sub addresource {
     }      }
     my $brepriv=&Apache::lonnet::allowed('bre',$resource);      my $brepriv=&Apache::lonnet::allowed('bre',$resource);
     if ($hash{'src_'.$rid}) {      if ($hash{'src_'.$rid}) {
  if (($brepriv eq '2') || ($brepriv eq 'F')) {   if ((($brepriv eq '2') && (!$hash{'randomout_'.$rid})) 
             || ($brepriv eq 'F')) {
     my $pprefix='';      my $pprefix='';
     if ($resource=~/\.(problem|exam|quiz|assess|survey|form)$/) {      if ($resource=~/\.(problem|exam|quiz|assess|survey|form)$/) {
  $pprefix=&astatus($rid);   $pprefix=&astatus($rid);
Line 612  sub handler { Line 613  sub handler {
  my $indent;my $indentstr;   my $indent;my $indentstr;
  my $linkid;   my $linkid;
  my $rid=$colcont[$j];   my $rid=$colcont[$j];
                           $rid=~/(\d+)\.(\d+)$/;
    my $src=
      &Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2});
    my $symb=
     &Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src;
  my $add='<td>';   my $add='<td>';
  my $adde='</td>';   my $adde='</td>';
  my $hwk='<font color="#223322">';   my $hwk='<font color="#223322">';
Line 622  sub handler { Line 628  sub handler {
     $rid=$1;      $rid=$1;
     $add='<th bgcolor="#AAFF55"><a name="'.$rid.'">';      $add='<th bgcolor="#AAFF55"><a name="'.$rid.'">';
     $adde='</th>';      $adde='</th>';
                               if (($ENV{'user.adv'}) && 
    ($parmhash{$symb.'.0.parameter_randompick'})) {
                                  $adde=' (randomly select '.
      $parmhash{$symb.'.0.parameter_randompick'}.
                                      ')</th>';
                               }
  }   }
  if ($rid=~/^j(.+)/) { $rid=$1; }   if ($rid=~/^j(.+)/) { $rid=$1; }
  if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) {   if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) {
Line 667  sub handler { Line 679  sub handler {
     $adde=      $adde=
  '<font color=red size=+2><b> &lt;</b></font>'.$adde;   '<font color=red size=+2><b> &lt;</b></font>'.$adde;
  }   }
  my $src=  
     &Apache::lonnet::declutter($hash{'src_'.$rid});  
  $rid=~/^(\d+)\.(\d+)$/;  
  my $symb=  
     &Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src;  
  if ($discussiontimes{$symb}>$lastcheck) {   if ($discussiontimes{$symb}>$lastcheck) {
     $adde=      $adde=
  '<img border=0 src="/adm/lonMisc/chat.gif">'.   '<img border=0 src="/adm/lonMisc/chat.gif">'.
Removed from v.1.35  
changed lines
  Added in v.1.36

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