[LON-CAPA-cvs] cvs: loncom /interface londocs.pm
www
lon-capa-cvs@mail.lon-capa.org
Wed, 09 Oct 2002 20:16:12 -0000
www Wed Oct 9 16:16:12 2002 EDT
Modified files:
/loncom/interface londocs.pm
Log:
Better visuals. However, londocs now completely dysfunctional. Wondering if
something changed somewhere else.
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.23 loncom/interface/londocs.pm:1.24
--- loncom/interface/londocs.pm:1.23 Fri Sep 13 16:01:04 2002
+++ loncom/interface/londocs.pm Wed Oct 9 16:16:12 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.23 2002/09/13 20:01:04 www Exp $
+# $Id: londocs.pm,v 1.24 2002/10/09 20:16:12 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -328,8 +328,9 @@
&Apache::loncommon::bodytag('Course Documents','',$events));
unless ($showdoc) {
# --------------------------------------------------------- Standard documents
+ $r->print('<table>');
if (($standard) && ($allowed) && (!$forcesupplement)) {
- $r->print('<h2>Main Course Documents</h2>');
+ $r->print('<tr><td bgcolor="#FFFFBB"><h2>Main Course Documents</h2>');
my $folder=$ENV{'form.folder'};
unless ($folder=~/^default/) { $folder='default'; }
&editor($r,$coursenum,$coursedom,$folder,$allowed);
@@ -417,11 +418,12 @@
</td></tr>
</table>
ENDFORM
- $r->print('<hr />');
+ $r->print('</td></tr>');
}
# ----------------------------------------------------- Supplemental documents
if (!$forcestandard) {
- $r->print('<h2>Supplemental Course Documents</h2>');
+ $r->print(
+ '<tr><td bgcolor="#BBFFFF"><h2>Supplemental Course Documents</h2>');
my $folder=$ENV{'form.folder'};
unless ($folder=~/supplemental/) { $folder='supplemental'; }
&editor($r,$coursenum,$coursedom,$folder,$allowed);
@@ -489,13 +491,14 @@
<input name="newaboutme" type="submit" value="My Personal Info" />
</form>
</td></tr>
-</table>
+</table></td></tr>
ENDSUPFORM
}
}
if ($allowed) {
$r->print('<form name="extimport"><input type="hidden" name="title"><input type="hidden" name="url"><input type="hidden" name="useform"></form>');
}
+ $r->print('</table>');
} else {
# -------------------------------------------------------- This is showdoc mode
$r->print("<h1>Uploaded Document</h1><p>It is recommended that you use an up-to-date virus scanner before handling this file.</p><p><table>".