--- loncom/interface/londocs.pm 2002/09/05 19:37:00 1.20
+++ 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.20 2002/09/05 19:37:00 www Exp $
+# $Id: londocs.pm,v 1.26 2002/10/11 18:06:32 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;
}
@@ -224,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\//);
@@ -234,8 +248,11 @@ sub handler {
my $events='';
my $showdoc=0;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['folder','foldername','showdoc']);
- unless ($ENV{'form.showdoc'}) { # got called from remote
+ ['folder','foldername']);
+ if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) {
+ $showdoc=$1;
+ }
+ unless ($showdoc) { # got called from remote
$forcestandard=($ENV{'form.folder'}=~/^default_/);
$forcesupplement=($ENV{'form.folder'}=~/^supplemental_/);
@@ -247,8 +264,7 @@ sub handler {
}
} else { # got called in sequence from course
$allowed=0;
- $showdoc=1;
- $script=&Apache::lonxml::registerurl(1,undef);
+ $script=''.&Apache::lonxml::registerurl(1,undef).'