--- loncom/interface/londocs.pm 2002/12/04 16:19:05 1.39
+++ loncom/interface/londocs.pm 2002/12/26 16:13:11 1.43
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.39 2002/12/04 16:19:05 www Exp $
+# $Id: londocs.pm,v 1.43 2002/12/26 16:13:11 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(' ');
@@ -557,15 +560,6 @@ function changename(folder,index,oldtitl
}
}
-