--- loncom/interface/lonparmset.pm 2004/11/24 14:57:07 1.178 +++ loncom/interface/lonparmset.pm 2005/02/02 19:23:59 1.181 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to set parameters for assessments # -# $Id: lonparmset.pm,v 1.178 2004/11/24 14:57:07 raeburn Exp $ +# $Id: lonparmset.pm,v 1.181 2005/02/02 19:23:59 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -628,13 +628,10 @@ sub extractResourceInformation { if ($mapid eq '1') { $$maptitles{$mapid}='Main Course Documents'; } else { - $$maptitles{$mapid}= - $$bighash{'title_'.$$bighash{'ids_'.&Apache::lonnet::clutter($$mapp{$id})}}; + $$maptitles{$mapid}=&Apache::lonnet::gettitle(&Apache::lonnet::clutter($$mapp{$id})); } $$maptitles{$$mapp{$id}}=$$maptitles{$mapid}; - $$symbp{$id}=$$mapp{$id}. - '___'.$resid.'___'. - &Apache::lonnet::declutter($srcf); + $$symbp{$id}=&Apache::lonnet::encode_symb($$mapp{$id},$resid,$srcf); $$symbp{$mapid}=$$mapp{$id}.'___(all)'; } } @@ -1219,8 +1216,7 @@ ENDTABLEHEADFOUR my $totalparms=scalar keys %name; if ($totalparms>0) { my $firstrow=1; - my $title=$bighash{'title_'.$rid}; - $title=~s/\:/:/g; + my $title=&Apache::lonnet::gettitle($uri); $r->print(''. @@ -1551,6 +1547,10 @@ sub crsenv { if ($name eq 'cloners') { &change_clone($value,\@oldcloner); } + # Flush the course logs so course description is immediately updated + if ($name eq 'description' && defined($value)) { + &Apache::lonnet::flushcourselogs(); + } } else { $setoutput.=&mt('Unable to set').' '.$name.' '.&mt('to'). ' '.$value.' '.&mt('due to').' '.$put_result.'.
';