--- loncom/interface/londocs.pm 2002/12/04 14:02:49 1.38
+++ loncom/interface/londocs.pm 2003/01/23 19:00:06 1.46
@@ -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.46 2003/01/23 19:00:06 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);
@@ -163,6 +166,7 @@ sub editor {
my $ext='false';
if ($url=~/^http\:\/\//) { $ext='true'; }
$url=~s/\:/\:/g;
+ $name=~s/\:/\:/g;
$Apache::lonratedt::resources[$idx]=
$name.':'.$url.':'.$ext.':normal:res';
}
@@ -272,7 +276,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,11 +561,7 @@ function changename(folder,index,oldtitl
}
}
-