--- 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(''.&mt('Currently no documents.').' |
');
}
$r->print('
');
@@ -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(
''.
' |