--- loncom/interface/londocs.pm 2002/12/04 14:02:49 1.38 +++ loncom/interface/londocs.pm 2002/12/12 18:14:32 1.41 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.38 2002/12/04 14:02:49 www Exp $ +# $Id: londocs.pm,v 1.41 2002/12/12 18:14:32 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -45,6 +45,8 @@ my %hash; my $hashtied; my %alreadyseen=(); +my $hadchanges; + # Mapread read maps into lonratedt::global arrays # @order and @resources, determines status # sets @order - pointer to resources in right order @@ -60,6 +62,7 @@ sub mapread { sub storemap { my ($coursenum,$coursedom,$map)=@_; + $hadchanges=1; return &Apache::lonratedt::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'. $map,1); @@ -272,7 +275,7 @@ sub checkonthis { my ($r,$url,$level,$title)=@_; $alreadyseen{$url}=1; $r->rflush(); - if ($url) { + if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) { $r->print('
'); for (my $i=0;$i<=$level*5;$i++) { $r->print(' '); @@ -562,6 +565,11 @@ function changename(folder,index,oldtitl +
+ + +
+ ENDNEWSCRIPT } # -------------------------------------------------------------------- Body tag @@ -582,7 +590,11 @@ ENDCOURSEVERIFY $r->print('

Main Course Documents

'); my $folder=$ENV{'form.folder'}; unless ($folder=~/^default/) { $folder='default'; } + $hadchanges=0; &editor($r,$coursenum,$coursedom,$folder,$allowed); + if ($hadchanges) { + $r->print('

Changes will become active after re-initializing course or at next login.

'); + } my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. '.sequence'; $r->print(< -
- - + +"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="Search"> +"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="Import">
@@ -700,13 +710,12 @@ ENDFORM
-
- + +"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="Search"> +"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="Import">