version 1.17, 2002/09/04 14:50:53
|
version 1.27, 2002/10/15 20:50:19
|
Line 35 use Apache::loncommon;
|
Line 35 use Apache::loncommon;
|
use Apache::lonratedt; |
use Apache::lonratedt; |
use Apache::lonratsrv; |
use Apache::lonratsrv; |
use Apache::lonxml; |
use Apache::lonxml; |
|
use GDBM_File; |
|
|
my $iconpath; |
my $iconpath; |
|
|
|
my %hash; |
|
|
|
my $hashtied; |
|
|
# Mapread read maps into lonratedt::global arrays |
# Mapread read maps into lonratedt::global arrays |
# @order and @resources, determines status |
# @order and @resources, determines status |
# sets @order - pointer to resources in right order |
# sets @order - pointer to resources in right order |
Line 198 END
|
Line 203 END
|
$url=&Apache::lonnet::tokenwrapper($url); |
$url=&Apache::lonnet::tokenwrapper($url); |
} |
} |
} |
} |
|
$url=~s/^http\&colon\;\/\//\/adm\/wrapper\/ext\//; |
# Title |
# Title |
$title=&Apache::lonnet::unescape($title); |
$title=&Apache::lonnet::unescape($title); |
my $foldertitle=$title; |
my $foldertitle=$title; |
Line 210 END
|
Line 216 END
|
$foldertitle; |
$foldertitle; |
} |
} |
if ($isfolder) { $url.='&foldername='.$foldertitle; } |
if ($isfolder) { $url.='&foldername='.$foldertitle; } |
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="/adm/lonIcons/'. |
$line.='<td bgcolor="#FFFFBB"><a href="'.$url.'" target="cat_'.$folder. |
|
'"><img src="/adm/lonIcons/'. |
$icon.'.gif" border="0"></a></td>'. |
$icon.'.gif" border="0"></a></td>'. |
"<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td></tr>"; |
"<td bgcolor='#FFFFBB'><a href='$url' target='cat_$folder'>$title</a></td></tr>"; |
return $line; |
return $line; |
} |
} |
|
|
|
# ---------------------------------------------------------------- tie the hash |
|
|
|
sub tiehash { |
|
$hashtied=0; |
|
if ($ENV{'request.course.fn'}) { |
|
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.".db", |
|
&GDBM_READER(),0640)) { |
|
$hashtied=1; |
|
} |
|
} |
|
} |
|
|
|
sub untiehash { |
|
if ($hashtied) { untie %hash; } |
|
$hashtied=0; |
|
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 223 sub handler {
|
Line 247 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')); |
|
$hashtied=0; |
|
&tiehash(); |
|
foreach (keys %hash) { |
|
if ($_=~/^src\_(.+)$/) { |
|
my $resid=$1; |
|
$r->rflush(); |
|
if ($hash{$_}) { |
|
my $fn=$hash{$_}; |
|
$r->print('<br /><a href="'.$fn.'" target="cat">'. |
|
($hash{'title_'.$resid}?$hash{'title_'.$resid}:$fn).'</a> '); |
|
if ($fn=~/^\/res\//) { |
|
my $result=&Apache::lonnet::repcopy($fn); |
|
if ($result eq OK) { |
|
$r->print('<font color="green">ok</font>'); |
|
$r->rflush(); |
|
my $dependencies= |
|
&Apache::lonnet::metadata($_,'dependencies'); |
|
$r->print('Dependencies: '.$dependencies.'<br>'); |
|
} elsif ($result eq HTTP_SERVICE_UNAVAILABLE) { |
|
$r->print( |
|
'<font color="red"><b>connection down</b></font>'); |
|
} elsif ($result eq HTTP_NOT_FOUND) { |
|
$r->print('<font color="red"><b>not found</b></font>'); |
|
} else { |
|
$r->print( |
|
'<font color="red"><b>access denied</b></font>'); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
&untiehash(); |
|
} elsif ($ENV{'form.versions'}) { |
|
$r->print('<html><head><title>Check Versions</title></head>'. |
|
&Apache::loncommon::bodytag('Check Course Document Versions')); |
|
$hashtied=0; |
|
&tiehash(); |
|
|
|
&untiehash(); |
|
} 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 231 sub handler {
|
Line 303 sub handler {
|
my $script=''; |
my $script=''; |
my $allowed; |
my $allowed; |
my $events=''; |
my $events=''; |
|
my $showdoc=0; |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['folder','foldername','showdoc']); |
['folder','foldername']); |
unless ($ENV{'form.showdoc'}) { # got called from remote |
if ($r->uri=~/^\/adm\/coursedocs\/showdoc\/(.*)$/) { |
|
$showdoc=$1; |
|
} |
|
unless ($showdoc) { # got called from remote |
$forcestandard=($ENV{'form.folder'}=~/^default_/); |
$forcestandard=($ENV{'form.folder'}=~/^default_/); |
$forcesupplement=($ENV{'form.folder'}=~/^supplemental_/); |
$forcesupplement=($ENV{'form.folder'}=~/^supplemental_/); |
|
|
Line 245 sub handler {
|
Line 321 sub handler {
|
} |
} |
} else { # got called in sequence from course |
} else { # got called in sequence from course |
$allowed=0; |
$allowed=0; |
$forcestandard=1; |
$script='</script>'.&Apache::lonxml::registerurl(1,undef).'<script>'; |
$forcesupplement=0; |
|
$script=&Apache::&Apache::lonxml::registerurl(1,undef); |
|
$events='onLoad="'.&Apache::lonxml::loadevents. |
$events='onLoad="'.&Apache::lonxml::loadevents. |
'" onUnload="'.&Apache::lonxml::unloadevents.'"'; |
'" onUnload="'.&Apache::lonxml::unloadevents.'"'; |
} |
} |
Line 267 sub handler {
|
Line 341 sub handler {
|
|
|
$iconpath = $r->dir_config('lonIconsURL') . "/"; |
$iconpath = $r->dir_config('lonIconsURL') . "/"; |
|
|
|
my $now=time; |
|
|
# print screen |
# print screen |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
Line 274 sub handler {
|
Line 350 sub handler {
|
<title>The LearningOnline Network with CAPA</title> |
<title>The LearningOnline Network with CAPA</title> |
<script> |
<script> |
$script |
$script |
|
</script> |
|
ENDDOCUMENT |
|
if ($allowed) { |
|
$r->print(<<ENDNEWSCRIPT); |
|
<script> |
function makenewfolder(targetform,folderseq) { |
function makenewfolder(targetform,folderseq) { |
var foldername=prompt('Name of New Folder','New Folder'); |
var foldername=prompt('Name of New Folder','New Folder'); |
if (foldername) { |
if (foldername) { |
Line 283 function makenewfolder(targetform,folder
|
Line 363 function makenewfolder(targetform,folder
|
} |
} |
} |
} |
|
|
function makenewext(targetform) { |
function makenewext(targetname) { |
|
this.document.forms.extimport.useform.value=targetname; |
|
window.open('/adm/rat/extpickframe.html'); |
|
} |
|
|
|
function makesmppage() { |
|
var title=prompt('Listed Title for the Page'); |
|
this.document.forms.newsmppg.importdetail.value= |
|
title+'=/adm/$udom/$uname/$now/smppg'; |
|
this.document.forms.newsmppg.submit(); |
|
} |
|
|
|
function makebulboard() { |
|
var title=prompt('Listed Title for the Bulletin Board'); |
|
this.document.forms.newbul.importdetail.value= |
|
title+'=/adm/$udom/$uname/$now/bulletinboard'; |
|
this.document.forms.newbul.submit(); |
|
} |
|
|
|
function finishpick() { |
|
var title=this.document.forms.extimport.title.value; |
|
var url=this.document.forms.extimport.url.value; |
|
var form=this.document.forms.extimport.useform.value; |
|
eval |
|
('this.document.forms.'+form+'.importdetail.value="'+title+'='+url+ |
|
'";this.document.forms.'+form+'.submit();'); |
} |
} |
</script> |
</script> |
</head> |
ENDNEWSCRIPT |
ENDDOCUMENT |
} |
$r->print(&Apache::loncommon::bodytag('Course Documents','',$events)); |
# -------------------------------------------------------------------- Body tag |
|
$r->print('</head>'. |
|
&Apache::loncommon::bodytag('Course Documents','',$events)); |
|
unless ($showdoc) { |
|
if ($allowed) { |
|
$r->print(<<ENDCOURSEVERIFY); |
|
<form action="/adm/coursedocs" method="post" name="courseverify"> |
|
<input type="submit" name="verify" value="Verify Content" /> |
|
<input type="submit" name="versions" value="Check Resource Versions" /> |
|
</form> |
|
ENDCOURSEVERIFY |
|
} |
# --------------------------------------------------------- Standard documents |
# --------------------------------------------------------- Standard documents |
|
$r->print('<table>'); |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
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'}; |
my $folder=$ENV{'form.folder'}; |
unless ($folder=~/^default/) { $folder='default'; } |
unless ($folder=~/^default/) { $folder='default'; } |
&editor($r,$coursenum,$coursedom,$folder,$allowed); |
&editor($r,$coursenum,$coursedom,$folder,$allowed); |
Line 338 value="New Folder" />
|
Line 455 value="New Folder" />
|
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<input name="newext" type="button" onClick="javascript:makenewext(this.form);" |
<input name="newext" type="button" onClick="javascript:makenewext('newext');" |
value="External Resource" /> |
value="External Resource" /> |
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newsyl"> |
<form action="/adm/coursedocs" method="post" name="newsyl"> |
Line 349 value="Syllabus=/public/$coursedom/$cour
|
Line 466 value="Syllabus=/public/$coursedom/$cour
|
<input name="newsyl" type="submit" value="Syllabus" /> |
<input name="newsyl" type="submit" value="Syllabus" /> |
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newnav"> |
<form action="/adm/coursedocs" method="post" name="newnav"> |
|
<input type="hidden" name="folder" value="$folder"> |
|
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type=hidden name="importdetail" |
<input type=hidden name="importdetail" |
value="Navigate Content=/adm/navmaps"> |
value="Navigate Content=/adm/navmaps"> |
<input name="newsyl" type="submit" value="Navigate Content" /> |
<input name="newnav" type="submit" value="Navigate Content" /> |
|
</form> |
|
<form action="/adm/coursedocs" method="post" name="newsmppg"> |
|
<input type="hidden" name="folder" value="$folder"> |
|
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
|
<input type=hidden name="importdetail" value=""> |
|
<input name="newsmppg" type="button" value="Simple Page" |
|
onClick="javascript:makesmppage();" /> |
|
</form> |
|
<form action="/adm/coursedocs" method="post" name="newbul"> |
|
<input type="hidden" name="folder" value="$folder"> |
|
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
|
<input type=hidden name="importdetail" value=""> |
|
<input name="newbulletin" type="button" value="Bulletin Board" |
|
onClick="javascript:makebulboard();" /> |
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newaboutme"> |
<form action="/adm/coursedocs" method="post" name="newaboutme"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="folder" value="$folder"> |
Line 363 value="$plainname=/adm/$udom/$uname/abou
|
Line 496 value="$plainname=/adm/$udom/$uname/abou
|
</td></tr> |
</td></tr> |
</table> |
</table> |
ENDFORM |
ENDFORM |
$r->print('<hr />'); |
$r->print('</td></tr>'); |
} |
} |
# ----------------------------------------------------- Supplemental documents |
# ----------------------------------------------------- Supplemental documents |
if (!$forcestandard) { |
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'}; |
my $folder=$ENV{'form.folder'}; |
unless ($folder=~/supplemental/) { $folder='supplemental'; } |
unless ($folder=~/supplemental/) { $folder='supplemental'; } |
&editor($r,$coursenum,$coursedom,$folder,$allowed); |
&editor($r,$coursenum,$coursedom,$folder,$allowed); |
Line 404 ENDFORM
|
Line 538 ENDFORM
|
"javascript:groupimport();" value="Import"> |
"javascript:groupimport();" value="Import"> |
</form> |
</form> |
</td><td bgcolor="#DDDDDD"> |
</td><td bgcolor="#DDDDDD"> |
<form action="/adm/coursedocs" method="post" name="newfolder"> |
<form action="/adm/coursedocs" method="post" name="supnewfolder"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
Line 412 ENDFORM
|
Line 546 ENDFORM
|
onClick="javascript:makenewfolder(this.form,'$folderseq');" |
onClick="javascript:makenewfolder(this.form,'$folderseq');" |
value="New Folder" /> |
value="New Folder" /> |
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newext"> |
<form action="/adm/coursedocs" method="post" name="supnewext"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<input name="newext" type="button" onClick="javascript:makenewext(this.form);" |
<input name="newext" type="button" |
|
onClick="javascript:makenewext('supnewext');" |
value="External Resource" /> |
value="External Resource" /> |
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newsyl"> |
<form action="/adm/coursedocs" method="post" name="supnewsyl"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type=hidden name="importdetail" |
<input type=hidden name="importdetail" |
value="Syllabus=/public/$coursedom/$coursenum/syllabus"> |
value="Syllabus=/public/$coursedom/$coursenum/syllabus"> |
<input name="newsyl" type="submit" value="Syllabus" /> |
<input name="newsyl" type="submit" value="Syllabus" /> |
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newaboutme"> |
<form action="/adm/coursedocs" method="post" name="subnewaboutme"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="folder" value="$folder"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type=hidden name="importdetail" |
<input type=hidden name="importdetail" |
Line 434 value="$plainname=/adm/$udom/$uname/abou
|
Line 569 value="$plainname=/adm/$udom/$uname/abou
|
<input name="newaboutme" type="submit" value="My Personal Info" /> |
<input name="newaboutme" type="submit" value="My Personal Info" /> |
</form> |
</form> |
</td></tr> |
</td></tr> |
</table> |
</table></td></tr> |
ENDSUPFORM |
ENDSUPFORM |
} |
} |
} |
} |
|
if ($allowed) { |
$r->print('</body></html>'); |
$r->print('<form name="extimport"><input type="hidden" name="title"><input type="hidden" name="url"><input type="hidden" name="useform"></form>'); |
return OK; |
} |
|
$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>". |
|
&entryline(0,"Click to download or use your browser's Save Link function",$showdoc).'</table></p>'); |
|
} |
|
} |
|
$r->print('</body></html>'); |
|
return OK; |
} |
} |
|
|
1; |
1; |