--- loncom/interface/londocs.pm 2004/09/27 15:20:23 1.147 +++ loncom/interface/londocs.pm 2004/12/10 19:21:21 1.150 @@ -1,7 +1,7 @@ # The LearningOnline Network # Documents # -# $Id: londocs.pm,v 1.147 2004/09/27 15:20:23 matthew Exp $ +# $Id: londocs.pm,v 1.150 2004/12/10 19:21:21 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -989,15 +989,17 @@ sub editor { # ---------------------------------------------------------------- End commands # ---------------------------------------------------------------- Print screen my $idx=0; + my $shown=0; $r->print(''); foreach (@Apache::lonratedt::order) { my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]); unless ($name) { $name=(split(/\//,$url))[-1]; } - unless ($name) { next; } + unless ($name) { $idx++; next; } $r->print(&entryline($idx,$name,$url,$folder,$allowed,$_,$coursenum)); $idx++; + $shown++; } - unless ($idx) { + unless ($shown) { $r->print(''); } $r->print('
'.&mt('Currently no documents.').'
'); @@ -1191,8 +1193,8 @@ END $line.=(< - + + $parameterset @@ -1621,11 +1623,17 @@ sub is_hash_old { sub changewarning { my ($r,$postexec)=@_; if (!&is_hash_old()) { return; } + my $pathvar='folderpath'; + my $path=&Apache::lonnet::escape($ENV{'form.folderpath'}); + if (defined($ENV{'form.pagepath'})) { + $pathvar='pagepath'; + $path=&Apache::lonnet::escape($ENV{'form.pagepath'}); + } $r->print( ''. '
'. -'

'. &mt('Changes will become active for your current session after'). '