--- loncom/interface/londocs.pm 2002/09/10 19:01:09 1.22
+++ loncom/interface/londocs.pm 2002/10/10 17:17:11 1.25
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.22 2002/09/10 19:01:09 www Exp $
+# $Id: londocs.pm,v 1.25 2002/10/10 17:17:11 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -211,9 +211,10 @@ END
$foldertitle;
}
if ($isfolder) { $url.='&foldername='.$foldertitle; }
- $line.='
  | '.
- "$title | ";
+ "$title | ";
return $line;
}
@@ -326,9 +327,18 @@ ENDNEWSCRIPT
$r->print(''.
&Apache::loncommon::bodytag('Course Documents','',$events));
unless ($showdoc) {
+ if ($allowed) {
+ $r->print(<
+
+
+
+ENDCOURSEVERIFY
+ }
# --------------------------------------------------------- Standard documents
+ $r->print('');
if (($standard) && ($allowed) && (!$forcesupplement)) {
- $r->print('Main Course Documents
');
+ $r->print('Main Course Documents');
my $folder=$ENV{'form.folder'};
unless ($folder=~/^default/) { $folder='default'; }
&editor($r,$coursenum,$coursedom,$folder,$allowed);
@@ -416,11 +426,12 @@ value="$plainname=/adm/$udom/$uname/abou
|
ENDFORM
- $r->print('
');
+ $r->print('');
}
# ----------------------------------------------------- Supplemental documents
if (!$forcestandard) {
- $r->print('Supplemental Course Documents
');
+ $r->print(
+ 'Supplemental Course Documents');
my $folder=$ENV{'form.folder'};
unless ($folder=~/supplemental/) { $folder='supplemental'; }
&editor($r,$coursenum,$coursedom,$folder,$allowed);
@@ -488,13 +499,14 @@ value="$plainname=/adm/$udom/$uname/abou
|
-
+
ENDSUPFORM
}
}
if ($allowed) {
$r->print('');
}
+ $r->print('');
} else {
# -------------------------------------------------------- This is showdoc mode
$r->print("Uploaded Document
It is recommended that you use an up-to-date virus scanner before handling this file.