--- 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(''); - return OK; + } + $r->print(''); + return OK; } 1;