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

Diff for /loncom/interface/lonparmset.pm between versions 1.178 and 1.181

version 1.178, 2004/11/24 14:57:07 version 1.181, 2005/02/02 19:23:59
Line 628  sub extractResourceInformation { Line 628  sub extractResourceInformation {
  if ($mapid eq '1') {   if ($mapid eq '1') {
     $$maptitles{$mapid}='Main Course Documents';      $$maptitles{$mapid}='Main Course Documents';
  } else {   } else {
     $$maptitles{$mapid}=      $$maptitles{$mapid}=&Apache::lonnet::gettitle(&Apache::lonnet::clutter($$mapp{$id}));
  $$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}};  
  }   }
  $$maptitles{$$mapp{$id}}=$$maptitles{$mapid};   $$maptitles{$$mapp{$id}}=$$maptitles{$mapid};
  $$symbp{$id}=$$mapp{$id}.   $$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf);
  '___'.$resid.'___'.  
     &Apache::lonnet::declutter($srcf);  
                 $$symbp{$mapid}=$$mapp{$id}.'___(all)';                  $$symbp{$mapid}=$$mapp{$id}.'___(all)';
     }      }
  }   }
Line 1219  ENDTABLEHEADFOUR Line 1216  ENDTABLEHEADFOUR
                     my $totalparms=scalar keys %name;                      my $totalparms=scalar keys %name;
                     if ($totalparms>0) {                      if ($totalparms>0) {
                         my $firstrow=1;                          my $firstrow=1;
  my $title=$bighash{'title_'.$rid};   my $title=&Apache::lonnet::gettitle($uri);
  $title=~s/\:/:/g;  
                         $r->print('<tr><td bgcolor='.$defbgone.                          $r->print('<tr><td bgcolor='.$defbgone.
                              ' rowspan='.$totalparms.                               ' rowspan='.$totalparms.
                              '><tt><font size=-1>'.                               '><tt><font size=-1>'.
Line 1551  sub crsenv { Line 1547  sub crsenv {
                 if ($name eq 'cloners') {                  if ($name eq 'cloners') {
                     &change_clone($value,\@oldcloner);                      &change_clone($value,\@oldcloner);
                 }                  }
                   # Flush the course logs so course description is immediately updated
                   if ($name eq 'description' && defined($value)) {
                       &Apache::lonnet::flushcourselogs();
                   }
             } else {              } else {
                 $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').                  $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
     ' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';      ' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';
Removed from v.1.178  
changed lines
  Added in v.1.181

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