version 1.25, 2002/10/10 17:17:11
|
version 1.26, 2002/10/11 18:06:32
|
Line 225 sub handler {
|
Line 225 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
|
if ($ENV{'form.verify'}) { |
|
|
|
my $loaderror=&Apache::lonnet::overloaderror($r); |
|
if ($loaderror) { return $loaderror; } |
|
|
|
$r->print('<html><head><title>Verify Content</title></head>'. |
|
&Apache::loncommon::bodytag('Verify Course Documents')); |
|
|
|
} elsif ($ENV{'form.versions'}) { |
|
$r->print('<html><head><title>Check Versions</title></head>'. |
|
&Apache::loncommon::bodytag('Check Course Document Versions')); |
|
|
|
} else { |
# is this a standard course? |
# is this a standard course? |
|
|
my $standard=($ENV{'request.course.uri'}=~/^\/uploaded\//); |
my $standard=($ENV{'request.course.uri'}=~/^\/uploaded\//); |
Line 329 ENDNEWSCRIPT
|
Line 342 ENDNEWSCRIPT
|
unless ($showdoc) { |
unless ($showdoc) { |
if ($allowed) { |
if ($allowed) { |
$r->print(<<ENDCOURSEVERIFY); |
$r->print(<<ENDCOURSEVERIFY); |
<form name="courseverify"> |
<form action="/adm/coursedocs" method="post" name="courseverify"> |
<input type="submit" name="verify" value="Verify Content" /> |
<input type="submit" name="verify" value="Verify Content" /> |
<input type="submit" name="versions" value="Check Resource Versions" /> |
<input type="submit" name="versions" value="Check Resource Versions" /> |
</form> |
</form> |
Line 512 ENDSUPFORM
|
Line 525 ENDSUPFORM
|
$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>". |
$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>". |
&entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'</table></p>'); |
&entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'</table></p>'); |
} |
} |
$r->print('</body></html>'); |
} |
return OK; |
$r->print('</body></html>'); |
|
return OK; |
} |
} |
|
|
1; |
1; |