--- loncom/interface/londocs.pm 2004/10/26 15:24:20 1.148 +++ 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.148 2004/10/26 15:24:20 www Exp $ +# $Id: londocs.pm,v 1.150 2004/12/10 19:21:21 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1193,8 +1193,8 @@ END $line.=(< - + + $parameterset @@ -1623,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'). '