--- loncom/interface/londocs.pm 2002/10/09 20:16:12 1.24
+++ loncom/interface/londocs.pm 2002/10/11 18:06:32 1.26
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.24 2002/10/09 20:16:12 www Exp $
+# $Id: londocs.pm,v 1.26 2002/10/11 18:06:32 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -225,6 +225,19 @@ sub handler {
$r->send_http_header;
return OK if $r->header_only;
+ if ($ENV{'form.verify'}) {
+
+ my $loaderror=&Apache::lonnet::overloaderror($r);
+ if ($loaderror) { return $loaderror; }
+
+ $r->print('
Verify Content'.
+ &Apache::loncommon::bodytag('Verify Course Documents'));
+
+ } elsif ($ENV{'form.versions'}) {
+ $r->print('Check Versions'.
+ &Apache::loncommon::bodytag('Check Course Document Versions'));
+
+ } else {
# is this a standard course?
my $standard=($ENV{'request.course.uri'}=~/^\/uploaded\//);
@@ -327,6 +340,14 @@ ENDNEWSCRIPT
$r->print(''.
&Apache::loncommon::bodytag('Course Documents','',$events));
unless ($showdoc) {
+ if ($allowed) {
+ $r->print(<
+
+
+
+ENDCOURSEVERIFY
+ }
# --------------------------------------------------------- Standard documents
$r->print('');
if (($standard) && ($allowed) && (!$forcesupplement)) {
@@ -504,8 +525,9 @@ ENDSUPFORM
$r->print("Uploaded Document
It is recommended that you use an up-to-date virus scanner before handling this file.
".
&entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'
');
}
- $r->print('