version 1.97, 2003/12/30 20:47:23
|
version 1.110, 2004/03/16 22:46:59
|
Line 68 sub mapread {
|
Line 68 sub mapread {
|
|
|
sub storemap { |
sub storemap { |
my ($coursenum,$coursedom,$map)=@_; |
my ($coursenum,$coursedom,$map)=@_; |
$hadchanges=1; |
my ($outtext,$errtext)= |
return |
|
&Apache::lonratedt::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'. |
&Apache::lonratedt::storemap('/uploaded/'.$coursedom.'/'.$coursenum.'/'. |
$map,1); |
$map,1); |
|
if ($errtext) { return ($errtext,2); } |
|
|
|
$hadchanges=1; |
|
return ($errtext,0); |
} |
} |
|
|
# ----------------------------------------- Return hash with valid author names |
# ----------------------------------------- Return hash with valid author names |
Line 94 sub authorhosts {
|
Line 97 sub authorhosts {
|
} else { |
} else { |
($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/); |
($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/); |
} |
} |
if (&Apache::lonnet::homeserver($ca,$cd) eq |
my $allowed=0; |
$Apache::lonnet::perlvar{'lonHostID'}) { |
my $myhome=&Apache::lonnet::homeserver($ca,$cd); |
|
my @ids=&Apache::lonnet::current_machine_ids(); |
|
foreach my $id (@ids) { if ($id eq $myhome) { $allowed=1; } } |
|
if ($allowed) { |
$home++; |
$home++; |
$outhash{'home_'.$ca.'@'.$cd}=1; |
$outhash{'home_'.$ca.'@'.$cd}=1; |
} else { |
} else { |
$outhash{'otherhome_'.$ca.'@'.$cd}= |
$outhash{'otherhome_'.$ca.'@'.$cd}=$myhome; |
&Apache::lonnet::homeserver($ca,$cd); |
|
$other++; |
$other++; |
} |
} |
} |
} |
Line 250 sub group_import {
|
Line 255 sub group_import {
|
join ':', ($name, $url, $ext, 'normal', 'res'); |
join ':', ($name, $url, $ext, 'normal', 'res'); |
} |
} |
} |
} |
&storemap($coursenum, $coursedom, $folder.'.sequence'); |
return &storemap($coursenum, $coursedom, $folder.'.sequence'); |
} |
} |
|
|
sub editor { |
sub editor { |
Line 295 sub editor {
|
Line 300 sub editor {
|
$comment.':'.$url.':'.$ext.':normal:res'; |
$comment.':'.$url.':'.$ext.':normal:res'; |
$Apache::lonratedt::order[$#Apache::lonratedt::order+1]= |
$Apache::lonratedt::order[$#Apache::lonratedt::order+1]= |
$newidx; |
$newidx; |
&storemap($coursenum,$coursedom,$folder.'.sequence'); |
|
|
($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.sequence'); |
|
if ($fatal) { |
|
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
|
return; |
|
} |
} |
} |
} |
} |
if ($ENV{'form.cmd'}) { |
if ($ENV{'form.cmd'}) { |
Line 335 sub editor {
|
Line 345 sub editor {
|
|
|
} |
} |
# Store the changed version |
# Store the changed version |
&storemap($coursenum,$coursedom,$folder.'.sequence'); |
($errtext,$fatal)=&storemap($coursenum,$coursedom, |
|
$folder.'.sequence'); |
|
if ($fatal) { |
|
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
|
return; |
|
} |
} |
} |
# Group import/search |
# Group import/search |
if ($ENV{'form.importdetail'}) { |
if ($ENV{'form.importdetail'}) { |
Line 349 sub editor {
|
Line 364 sub editor {
|
} |
} |
} |
} |
# Store the changed version |
# Store the changed version |
group_import($coursenum, $coursedom, $folder, @imports); |
($errtext,$fatal)=group_import($coursenum, $coursedom, $folder, |
|
@imports); |
|
if ($fatal) { |
|
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
|
return; |
|
} |
} |
} |
# Loading a complete map |
# Loading a complete map |
if (($ENV{'form.importmap'}) && ($ENV{'form.loadmap'})) { |
if (($ENV{'form.importmap'}) && ($ENV{'form.loadmap'})) { |
foreach |
foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) { |
(&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$ENV{'form.importmap'}))) { |
|
my $idx=$#Apache::lonratedt::resources; |
my $idx=$#Apache::lonratedt::resources; |
$idx++; |
$idx++; |
$Apache::lonratedt::resources[$idx]=$_; |
$Apache::lonratedt::resources[$idx]=$_; |
$Apache::lonratedt::order |
$Apache::lonratedt::order |
[$#Apache::lonratedt::order+1]=$idx; |
[$#Apache::lonratedt::order+1]=$idx; |
} |
} |
|
|
# Store the changed version |
# Store the changed version |
&storemap($coursenum,$coursedom,$folder.'.sequence'); |
($errtext,$fatal)=&storemap($coursenum,$coursedom, |
|
$folder.'.sequence'); |
|
if ($fatal) { |
|
$r->print('<p><font color="red">'.$errtext.'</font></p>'); |
|
return; |
|
} |
} |
} |
} |
} |
# ---------------------------------------------------------------- End commands |
# ---------------------------------------------------------------- End commands |
Line 373 sub editor {
|
Line 397 sub editor {
|
foreach (@Apache::lonratedt::order) { |
foreach (@Apache::lonratedt::order) { |
my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]); |
my ($name,$url)=split(/\:/,$Apache::lonratedt::resources[$_]); |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name=(split(/\//,$url))[-1]; } |
unless ($name) { $name='NO RESOURCE'; $url='/adm/notfound.html'; } |
unless ($name) { next; } |
$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_)); |
$r->print(&entryline($idx,$name,$url,$folder,$allowed,$_)); |
$idx++; |
$idx++; |
} |
} |
Line 387 sub entryline {
|
Line 411 sub entryline {
|
my ($index,$title,$url,$folder,$allowed,$residx)=@_; |
my ($index,$title,$url,$folder,$allowed,$residx)=@_; |
$title=~s/\&colon\;/\:/g; |
$title=~s/\&colon\;/\:/g; |
$title=&HTML::Entities::encode(&HTML::Entities::decode( |
$title=&HTML::Entities::encode(&HTML::Entities::decode( |
&Apache::lonnet::unescape($title)),'\"\<\>\&\''); |
&Apache::lonnet::unescape($title)),'"<>&\''); |
my $renametitle=$title; |
my $renametitle=$title; |
my $foldertitle=$title; |
my $foldertitle=$title; |
if ($title=~ |
if ($title=~ /^(\d+)___&&&___(\w+)___&&&___(\w+)___&&&___(.*)$/ ) { |
/^(\d+)\_\_\_\&\;\&\;\&\;\_\_\_(\w+)\_\_\_\&\;\&\;\&\;\_\_\_(\w+)\_\_\_\&\;\&\;\&\;\_\_\_(.*)$/ |
$foldertitle=&Apache::lontexconvert::msgtexconverted($4); |
) { |
$renametitle=$4; |
$foldertitle=&Apache::lontexconvert::msgtexconverted($4); |
$title='<i>'.&Apache::lonlocal::locallocaltime($1).'</i> '. |
$renametitle=$4; |
&Apache::loncommon::plainname($2,$3).': <br />'. |
$title='<i>'.&Apache::lonlocal::locallocaltime($1).'</i> '. |
$foldertitle; |
&Apache::loncommon::plainname($2,$3).': <br />'. |
} |
$foldertitle; |
|
} |
|
$renametitle=~s/\"\;/\\\"/g; |
$renametitle=~s/\"\;/\\\"/g; |
my $line='<tr>'; |
my $line='<tr>'; |
# Edit commands |
# Edit commands |
if ($allowed) { |
if ($allowed) { |
my %lt=('up' => 'Move Up', |
my %lt=('up' => 'Move Up', |
'dw' => 'Move Down', |
'dw' => 'Move Down', |
'rm' => 'Remove', |
'rm' => 'Remove', |
'rn' => 'Rename'); |
'rn' => 'Rename'); |
$line.=(<<END); |
my ($foldername,$htmlfoldername); |
|
if ($ENV{'form.foldername'}) { |
|
$foldername='&foldername='. |
|
&Apache::lonnet::escape($ENV{'form.foldername'}); |
|
$htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'}); |
|
} |
|
$line.=(<<END); |
<td><table border='0' cellspacing='2' cellpadding='0'> |
<td><table border='0' cellspacing='2' cellpadding='0'> |
<tr><td bgcolor="#DDDDDD"> |
<tr><td bgcolor="#DDDDDD"> |
<a href='/adm/coursedocs?folder=$folder&cmd=up_$index'> |
<a href='/adm/coursedocs?folder=$folder&cmd=up_$index$foldername'> |
<img src="${iconpath}move_up.gif" alt='$lt{'up'}' border='0' /></a></td></tr> |
<img src="${iconpath}move_up.gif" alt='$lt{'up'}' border='0' /></a></td></tr> |
<tr><td bgcolor="#DDDDDD"> |
<tr><td bgcolor="#DDDDDD"> |
<a href='/adm/coursedocs?folder=$folder&cmd=down_$index'> |
<a href='/adm/coursedocs?folder=$folder&cmd=down_$index$foldername'> |
<img src="${iconpath}move_down.gif" alt='$lt{'dw'}' border='0' /></a></td></tr> |
<img src="${iconpath}move_down.gif" alt='$lt{'dw'}' border='0' /></a></td></tr> |
</table></td><td bgcolor="#DDDDDD"> |
</table></td><td bgcolor="#DDDDDD"> |
<a href='javascript:removeres("$folder","$index","$renametitle");'> |
<a href='javascript:removeres("$folder","$index","$renametitle","$htmlfoldername");'> |
<font size="-2" color="#990000">$lt{'rm'}</font></a> |
<font size="-2" color="#990000">$lt{'rm'}</font></a> |
<a href='javascript:changename("$folder","$index","$renametitle");'> |
<a href='javascript:changename("$folder","$index","$renametitle","$htmlfoldername");'> |
<font size="-2" color="#009900">$lt{'rn'}</font></a></td> |
<font size="-2" color="#009900">$lt{'rn'}</font></a></td> |
END |
END |
} |
} |
Line 480 sub checkonthis {
|
Line 508 sub checkonthis {
|
$alreadyseen{$url}=1; |
$alreadyseen{$url}=1; |
$r->rflush(); |
$r->rflush(); |
if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) { |
if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) { |
$r->print('<br />'); |
$r->print("\n<br />"); |
for (my $i=0;$i<=$level*5;$i++) { |
for (my $i=0;$i<=$level*5;$i++) { |
$r->print(' '); |
$r->print(' '); |
} |
} |
Line 511 sub checkonthis {
|
Line 539 sub checkonthis {
|
if (($Apache::lonxml::errorcount) || |
if (($Apache::lonxml::errorcount) || |
($Apache::lonxml::warningcount)) { |
($Apache::lonxml::warningcount)) { |
if ($Apache::lonxml::errorcount) { |
if ($Apache::lonxml::errorcount) { |
$r->print('<font color="red"><b>'. |
$r->print('<img src="/adm/lonMisc/bomb.gif" /><font color="red"><b>'. |
$Apache::lonxml::errorcount.' '. |
$Apache::lonxml::errorcount.' '. |
&mt('error(s)').'</b></font> '); |
&mt('error(s)').'</b></font> '); |
} |
} |
Line 535 sub checkonthis {
|
Line 563 sub checkonthis {
|
} elsif ($result==HTTP_SERVICE_UNAVAILABLE) { |
} elsif ($result==HTTP_SERVICE_UNAVAILABLE) { |
$r->print('<font color="red"><b>'.&mt('connection down').'</b></font>'); |
$r->print('<font color="red"><b>'.&mt('connection down').'</b></font>'); |
} elsif ($result==HTTP_NOT_FOUND) { |
} elsif ($result==HTTP_NOT_FOUND) { |
$r->print('<font color="red"><b>'.&mt('not found').'</b></font>'); |
unless ($url=~/\$/) { |
|
$r->print('<font color="red"><b>'.&mt('not found').'</b></font>'); |
|
} else { |
|
$r->print('<font color="yellow"><b>'.&mt('unable to verify variable URL').'</b></font>'); |
|
} |
} else { |
} else { |
$r->print('<font color="red"><b>'.&mt('access denied').'</b></font>'); |
$r->print('<font color="red"><b>'.&mt('access denied').'</b></font>'); |
} |
} |
Line 564 sub verifycontent {
|
Line 596 sub verifycontent {
|
} |
} |
} |
} |
&untiehash(); |
&untiehash(); |
$r->print('<h1>'.&mt('Done').'.</h1>'); |
$r->print('<h1>'.&mt('Done').'.</h1>'.'<a href="/adm/coursedocs">'. |
|
&mt('Return to DOCS').'</a>'); |
} |
} |
|
|
# -------------------------------------------------------------- Check Versions |
# -------------------------------------------------------------- Check Versions |
Line 705 sub checkversions {
|
Line 738 sub checkversions {
|
<input type="submit" name="display" value="$lt{'sd'}" /> |
<input type="submit" name="display" value="$lt{'sd'}" /> |
<h3>$header</h3> |
<h3>$header</h3> |
<input type="submit" name="setversions" value="$lt{'sv'}" /> |
<input type="submit" name="setversions" value="$lt{'sv'}" /> |
<table border="2"> |
<table border="0"> |
<tr> |
|
<th>$lt{'fi'}</th><th>$lt{'md'}</th><th>$lt{'mr'}</th> |
|
<th>$lt{'ve'}</th><th>$lt{'vu'}</th><th>$lt{'di'}</th></tr> |
|
ENDHEADERS |
ENDHEADERS |
foreach (sort keys %changes) { |
foreach (sort keys %changes) { |
if ($changes{$_}>$starttime) { |
if ($changes{$_}>$starttime) { |
Line 719 ENDHEADERS
|
Line 749 ENDHEADERS
|
} |
} |
my $linkurl=&Apache::lonnet::clutter($_); |
my $linkurl=&Apache::lonnet::clutter($_); |
$r->print( |
$r->print( |
'<tr><td><b>'. |
'<tr><td colspan="5"><br /><br /><font size="+1"><b>'. |
&Apache::lonnet::gettitle($linkurl). |
&Apache::lonnet::gettitle($linkurl). |
'</b><br /><a href="'.$linkurl.'" target="cat">'.$linkurl. |
'</b></font></td></tr>'. |
'</a></td><td>'. |
'<tr><td> </td>'. |
&Apache::lonlocal::locallocaltime($changes{$_}). |
'<td colspan="4">'. |
'</td><td><font size="+2">'. |
'<a href="'.$linkurl.'" target="cat">'.$linkurl. |
$currentversion.'</font></td><td><font size="+2">'); |
'</a></td></tr>'. |
|
'<tr><td></td>'. |
|
'<td title="'.$lt{'md'}.'">'. |
|
&Apache::lonlocal::locallocaltime( |
|
&Apache::lonnet::metadata($root.'.'.$extension, |
|
'lastrevisiondate') |
|
). |
|
'</td>'. |
|
'<td title="'.$lt{'mr'}.'"><nobr>Most Recent: '. |
|
'<font size="+1">'.$currentversion.'</font>'. |
|
'</nobr></td>'. |
|
'<td title="'.$lt{'ve'}.'"><nobr>In Course: '. |
|
'<font size="+1">'); |
# Used in course |
# Used in course |
my $usedversion=$hash{'version_'.$linkurl}; |
my $usedversion=$hash{'version_'.$linkurl}; |
if (($usedversion) && ($usedversion ne 'mostrecent')) { |
if (($usedversion) && ($usedversion ne 'mostrecent')) { |
Line 733 ENDHEADERS
|
Line 775 ENDHEADERS
|
} else { |
} else { |
$r->print($currentversion); |
$r->print($currentversion); |
} |
} |
$r->print('</font></td><td>'); |
$r->print('</font></nobr></td><td title="'.$lt{'vu'}.'">'. |
|
'<nobr>Use: '); |
# Set version |
# Set version |
$r->print(&Apache::loncommon::select_form($setversions{$linkurl}, |
$r->print(&Apache::loncommon::select_form($setversions{$linkurl}, |
'set_version_'.$linkurl, |
'set_version_'.$linkurl, |
('' => '', |
('' => '', |
'mostrecent' => 'most recent', |
'mostrecent' => 'most recent', |
map {$_,$_} (1..$currentversion)))); |
map {$_,$_} (1..$currentversion)))); |
$r->print('</td><td><font size="1"><ul>'); |
$r->print('</nobr></td></tr><tr><td></td>'); |
my $lastold=1; |
my $lastold=1; |
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) { |
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) { |
my $url=$root.'.'.$prevvers.'.'.$extension; |
my $url=$root.'.'.$prevvers.'.'.$extension; |
Line 749 ENDHEADERS
|
Line 792 ENDHEADERS
|
$lastold=$prevvers; |
$lastold=$prevvers; |
} |
} |
} |
} |
|
# |
|
# Code to figure out how many version entries should go in |
|
# each of the four columns |
|
my $entries_per_col = 0; |
|
my $num_entries = ($currentversion-$lastold); |
|
if ($num_entries % 4 == 0) { |
|
$entries_per_col = $num_entries/4; |
|
} else { |
|
$entries_per_col = $num_entries/4 + 1; |
|
} |
|
my $entries_count = 0; |
|
$r->print('<td valign="top"><font size="-2">'); |
|
my $cols_output = 1; |
for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) { |
for (my $prevvers=$lastold;$prevvers<$currentversion;$prevvers++) { |
my $url=$root.'.'.$prevvers.'.'.$extension; |
my $url=$root.'.'.$prevvers.'.'.$extension; |
$r->print('<li><a href="'.&Apache::lonnet::clutter($url). |
$r->print('<nobr><a href="'.&Apache::lonnet::clutter($url). |
'">'.&mt('Version').' '.$prevvers.'</a> ('. |
'">'.&mt('Version').' '.$prevvers.'</a> ('. |
&Apache::lonlocal::locallocaltime(&Apache::lonnet::metadata($url,'lastrevisiondate')). |
&Apache::lonlocal::locallocaltime( |
|
&Apache::lonnet::metadata($url, |
|
'lastrevisiondate') |
|
). |
')'); |
')'); |
if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') { |
if (&Apache::loncommon::fileembstyle($extension) eq 'ssi') { |
$r->print(' <a href="/adm/diff?filename='. |
$r->print(' <a href="/adm/diff?filename='. |
Line 761 ENDHEADERS
|
Line 820 ENDHEADERS
|
'&versionone='.$prevvers. |
'&versionone='.$prevvers. |
'">'.&mt('Diffs').'</a>'); |
'">'.&mt('Diffs').'</a>'); |
} |
} |
$r->print('</li>'); |
$r->print('</nobr><br />'); |
|
if (++$entries_count % $entries_per_col == 0) { |
|
$r->print('</font></td>'); |
|
if ($cols_output != 4) { |
|
$r->print('<td valign="top"><font size="-2">'); |
|
$cols_output++; |
|
} |
|
} |
} |
} |
$r->print('</ul></font></td></tr>'); |
while($cols_output++ < 4) { |
|
$r->print('</font></td><td><font>') |
|
} |
|
$r->print('</font></td></tr>'."\n"); |
} |
} |
} |
} |
$r->print('</table></form>'); |
$r->print('</table></form>'); |
Line 929 function makebulboard() {
|
Line 998 function makebulboard() {
|
} |
} |
} |
} |
|
|
|
function makeabout() { |
|
var user=prompt("Enter user\@domain for User's 'About Me' Page"); |
|
if (user) { |
|
var comp=new Array(); |
|
comp=user.split('\@'); |
|
if ((typeof(comp[0])!=undefined) && (typeof(comp[1])!=undefined)) { |
|
if ((comp[0]) && (comp[1])) { |
|
this.document.forms.newaboutsomeone.importdetail.value= |
|
'About '+user+'=/adm/'+comp[1]+'/'+comp[0]+'/aboutme'; |
|
this.document.forms.newaboutsomeone.submit(); |
|
} |
|
} |
|
} |
|
} |
|
|
|
function makeims() { |
|
var caller = document.forms.ims.folder.value |
|
var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one" |
|
newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes") |
|
newWindow.location.href = newlocation |
|
} |
|
|
|
|
function finishpick() { |
function finishpick() { |
var title=this.document.forms.extimport.title.value; |
var title=this.document.forms.extimport.title.value; |
var url=this.document.forms.extimport.url.value; |
var url=this.document.forms.extimport.url.value; |
Line 938 function finishpick() {
|
Line 1030 function finishpick() {
|
'";this.document.forms.'+form+'.submit();'); |
'";this.document.forms.'+form+'.submit();'); |
} |
} |
|
|
function changename(folder,index,oldtitle) { |
function changename(folder,index,oldtitle,foldername) { |
var title=prompt('New Title',oldtitle); |
var title=prompt('New Title',oldtitle); |
if (title) { |
if (title) { |
this.document.forms.renameform.title.value=title; |
this.document.forms.renameform.title.value=title; |
this.document.forms.renameform.cmd.value='rename_'+index; |
this.document.forms.renameform.cmd.value='rename_'+index; |
this.document.forms.renameform.folder.value=folder; |
this.document.forms.renameform.folder.value=folder; |
|
this.document.forms.renameform.foldername.value=foldername; |
this.document.forms.renameform.submit(); |
this.document.forms.renameform.submit(); |
} |
} |
} |
} |
|
|
function removeres(folder,index,oldtitle) { |
function removeres(folder,index,oldtitle,foldername) { |
if ((oldtitle=='NO RESOURCE') || (confirm('Remove "'+oldtitle+'"?'))) { |
if (confirm('Remove "'+oldtitle+'"?')) { |
this.document.forms.renameform.cmd.value='del_'+index; |
this.document.forms.renameform.cmd.value='del_'+index; |
this.document.forms.renameform.folder.value=folder; |
this.document.forms.renameform.folder.value=folder; |
|
this.document.forms.renameform.foldername.value=foldername; |
this.document.forms.renameform.submit(); |
this.document.forms.renameform.submit(); |
} |
} |
} |
} |
Line 962 ENDNEWSCRIPT
|
Line 1056 ENDNEWSCRIPT
|
# -------------------------------------------------------------------- Body tag |
# -------------------------------------------------------------------- Body tag |
$r->print('</head>'. |
$r->print('</head>'. |
&Apache::loncommon::bodytag('Course Documents','',$events, |
&Apache::loncommon::bodytag('Course Documents','',$events, |
'','',$showdoc)); |
'','',$showdoc). |
|
&Apache::loncommon::help_open_faq(273). |
|
&Apache::loncommon::help_open_bug('RAT')); |
unless ($showdoc) { |
unless ($showdoc) { |
# ----------------------------------------------------------------------------- |
# ----------------------------------------------------------------------------- |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
Line 984 ENDNEWSCRIPT
|
Line 1080 ENDNEWSCRIPT
|
'scuf' => 'Score Upload Form', |
'scuf' => 'Score Upload Form', |
'bull' => 'Bulletin Board', |
'bull' => 'Bulletin Board', |
'mypi' => 'My Personal Info', |
'mypi' => 'My Personal Info', |
|
'abou' => 'About User', |
|
'imsf' => 'Import IMS package', |
'file' => 'File', |
'file' => 'File', |
'title' => 'Title', |
'title' => 'Title', |
'comment' => 'Comment' |
'comment' => 'Comment' |
Line 1000 ENDNEWSCRIPT
|
Line 1098 ENDNEWSCRIPT
|
<input type="hidden" name="title" /> |
<input type="hidden" name="title" /> |
<input type="hidden" name="cmd" /> |
<input type="hidden" name="cmd" /> |
<input type="hidden" name="folder" /> |
<input type="hidden" name="folder" /> |
|
<input type="hidden" name="foldername" /> |
</form> |
</form> |
<form name="simpleedit" method="post" action="/adm/coursedocs"> |
<form name="simpleedit" method="post" action="/adm/coursedocs"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<input type="hidden" name="folder" /> |
<input type="hidden" name="folder" /> |
|
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="courseverify"> |
<form action="/adm/coursedocs" method="post" name="courseverify"> |
<table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4"> |
<table bgcolor="#AAAAAA" width="100%" cellspacing="4" cellpadding="4"> |
Line 1019 ENDCOURSEVERIFY
|
Line 1119 ENDCOURSEVERIFY
|
&mt('Editing the Table of Contents for your Course'))); |
&mt('Editing the Table of Contents for your Course'))); |
} |
} |
# --------------------------------------------------------- Standard documents |
# --------------------------------------------------------- Standard documents |
|
my $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'}); |
$r->print('<table border=2 cellspacing=4 cellpadding=4>'); |
$r->print('<table border=2 cellspacing=4 cellpadding=4>'); |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
if (($standard) && ($allowed) && (!$forcesupplement)) { |
$r->print('<tr><td bgcolor="#BBBBBB"><h2>'.&mt('Main Course Documents'). |
$r->print('<tr><td bgcolor="#BBBBBB"><h2>'.&mt('Main Course Documents'). |
Line 1052 $lt{'file'}:<br />
|
Line 1153 $lt{'file'}:<br />
|
$lt{'title'}:<br /> |
$lt{'title'}:<br /> |
<input type="text" size="50" name="comment"> |
<input type="text" size="50" name="comment"> |
<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="$htmlfoldername"> |
<input type="hidden" name="cmd" value="upload_default"> |
<input type="hidden" name="cmd" value="upload_default"> |
<input type="submit" value="$lt{'upld'}"> |
<input type="submit" value="$lt{'upld'}"> |
<nobr> |
<nobr> |
Line 1063 $lt{'title'}:<br />
|
Line 1164 $lt{'title'}:<br />
|
<td bgcolor="#DDDDDD"> |
<td bgcolor="#DDDDDD"> |
<form action="/adm/coursedocs" method="post" name="simpleeditdefault"> |
<form action="/adm/coursedocs" method="post" name="simpleeditdefault"> |
<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="$htmlfoldername"> |
<input type=button onClick= |
<input type=button onClick= |
"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="$lt{'srch'}"> |
"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="$lt{'srch'}"> |
<nobr> |
<nobr> |
Line 1083 $help{'Load_Map'}</nobr>
|
Line 1184 $help{'Load_Map'}</nobr>
|
</td><td bgcolor="#DDDDDD"> |
</td><td bgcolor="#DDDDDD"> |
<form action="/adm/coursedocs" method="post" name="newfolder"> |
<form action="/adm/coursedocs" method="post" name="newfolder"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<nobr> |
<nobr> |
<input name="newfolder" type="button" |
<input name="newfolder" type="button" |
Line 1093 value="$lt{'newf'}" />$help{'Adding_Fold
|
Line 1194 value="$lt{'newf'}" />$help{'Adding_Fold
|
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newext"> |
<form action="/adm/coursedocs" method="post" name="newext"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<nobr> |
<nobr> |
<input name="newext" type="button" onClick="javascript:makenewext('newext');" |
<input name="newext" type="button" onClick="javascript:makenewext('newext');" |
Line 1102 value="$lt{'extr'}" /> $help{'Adding_Ext
|
Line 1203 value="$lt{'extr'}" /> $help{'Adding_Ext
|
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newsyl"> |
<form action="/adm/coursedocs" method="post" name="newsyl"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" |
<input type=hidden name="importdetail" |
value="Syllabus=/public/$coursedom/$coursenum/syllabus"> |
value="Syllabus=/public/$coursedom/$coursenum/syllabus"> |
<nobr> |
<nobr> |
Line 1112 value="Syllabus=/public/$coursedom/$cour
|
Line 1213 value="Syllabus=/public/$coursedom/$cour
|
</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="folder" value="$folder"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type="hidden" name="foldername" value="$htmlfoldername"> |
<input type=hidden name="importdetail" |
<input type=hidden name="importdetail" |
value="Navigate Content=/adm/navmaps"> |
value="Navigate Content=/adm/navmaps"> |
<nobr> |
<nobr> |
Line 1122 $help{'Navigate_Content'}
|
Line 1223 $help{'Navigate_Content'}
|
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newsmppg"> |
<form action="/adm/coursedocs" method="post" name="newsmppg"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<nobr> |
<nobr> |
<input name="newsmppg" type="button" value="$lt{'sipa'}" |
<input name="newsmppg" type="button" value="$lt{'sipa'}" |
Line 1131 onClick="javascript:makesmppage();" /> $
|
Line 1232 onClick="javascript:makesmppage();" /> $
|
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newsmpproblem"> |
<form action="/adm/coursedocs" method="post" name="newsmpproblem"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<nobr> |
<nobr> |
<input name="newsmpproblem" type="button" value="$lt{'sipr'}" |
<input name="newsmpproblem" type="button" value="$lt{'sipr'}" |
Line 1140 onClick="javascript:makesmpproblem();" /
|
Line 1241 onClick="javascript:makesmpproblem();" /
|
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newexamupload"> |
<form action="/adm/coursedocs" method="post" name="newexamupload"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<nobr> |
<nobr> |
<input name="newexamupload" type="button" value="$lt{'scuf'}" |
<input name="newexamupload" type="button" value="$lt{'scuf'}" |
Line 1150 $help{'Score_Upload_Form'}
|
Line 1251 $help{'Score_Upload_Form'}
|
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="newbul"> |
<form action="/adm/coursedocs" method="post" name="newbul"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<nobr> |
<nobr> |
<input name="newbulletin" type="button" value="$lt{'bull'}" |
<input name="newbulletin" type="button" value="$lt{'bull'}" |
Line 1160 $help{'Bulletin Board'}
|
Line 1261 $help{'Bulletin Board'}
|
</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"> |
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
<input type="hidden" name="foldername" value="$htmlfoldername"> |
<input type=hidden name="importdetail" |
<input type=hidden name="importdetail" |
value="$plainname=/adm/$udom/$uname/aboutme"> |
value="$plainname=/adm/$udom/$uname/aboutme"> |
<nobr> |
<nobr> |
Line 1168 value="$plainname=/adm/$udom/$uname/abou
|
Line 1269 value="$plainname=/adm/$udom/$uname/abou
|
$help{'My Personal Info'} |
$help{'My Personal Info'} |
</nobr> |
</nobr> |
</form> |
</form> |
|
<form action="/adm/coursedocs" method="post" name="newaboutsomeone"> |
|
<input type="hidden" name="folder" value="$folder"> |
|
<input type="hidden" name="foldername" value="$htmlfoldername"> |
|
<input type=hidden name="importdetail" value=""> |
|
<nobr> |
|
<input name="newaboutsomeone" type="button" value="$lt{'abou'}" |
|
onClick="javascript:makeabout();" /> |
|
</nobr> |
|
</form> |
|
<form action="/adm/imsimportdocs" method="post" name="ims"> |
|
<input type="hidden" name="folder" value="$folder" /> |
|
<input name="imsimport" type="button" value="$lt{'imsf'}" onClick="javascript:makeims();" /> |
|
</nobr> |
|
</form> |
</td></tr> |
</td></tr> |
</table> |
</table> |
ENDFORM |
ENDFORM |
Line 1189 ENDFORM
|
Line 1304 ENDFORM
|
$r->print(<<ENDSUPFORM); |
$r->print(<<ENDSUPFORM); |
<table cellspacing=4 cellpadding=4><tr> |
<table cellspacing=4 cellpadding=4><tr> |
<th bgcolor="#DDDDDD">$lt{'upls'}</th> |
<th bgcolor="#DDDDDD">$lt{'upls'}</th> |
<th bgcolor="#DDDDDD">$lt{'impp'}</th> |
|
<th bgcolor="#DDDDDD">$lt{'spec'}</th> |
<th bgcolor="#DDDDDD">$lt{'spec'}</th> |
</tr> |
</tr> |
<tr><td bgcolor="#DDDDDD"> |
<tr><td bgcolor="#DDDDDD"> |
Line 1199 ENDFORM
|
Line 1313 ENDFORM
|
<textarea cols=50 rows=4 name='comment'> |
<textarea cols=50 rows=4 name='comment'> |
</textarea> |
</textarea> |
<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="$htmlfoldername"> |
<input type="hidden" name="cmd" value="upload_supplemental"> |
<input type="hidden" name="cmd" value="upload_supplemental"> |
<nobr> |
<nobr> |
<input type="submit" value="$lt{'upld'}"> |
<input type="submit" value="$lt{'upld'}"> |
Line 1208 ENDFORM
|
Line 1322 ENDFORM
|
</form> |
</form> |
</td> |
</td> |
<td bgcolor="#DDDDDD"> |
<td bgcolor="#DDDDDD"> |
<form action="/adm/coursedocs" method="post" name="simpleeditsupplement"> |
|
<input type="hidden" name="folder" value="$folder"> |
|
<input type="hidden" name="foldername" value="$ENV{'form.foldername'}"> |
|
<input type=hidden name="importdetail" value=""> |
|
<input type=button onClick= |
|
"javascript:document.forms.simpleedit.folder.value='$folder';groupsearch()" value="$lt{'srch'}"> |
|
<input type=button onClick= |
|
"javascript:document.forms.simpleedit.folder.value='$folder';groupimport();" value="$lt{'impo'}">$help{'Importing_LON-CAPA_Resource'} |
|
<p> |
|
<hr /> |
|
<input type="text" size="20" name="importmap"> |
|
<input type=button |
|
onClick="javascript:openbrowser('simpleeditsupplement','importmap','sequence,page','')" |
|
value="$lt{'selm'}"><input type="submit" name="loadmap" value="$lt{'load'}">$help{'Load_Map'} |
|
</p> |
|
</form> |
|
</td><td bgcolor="#DDDDDD"> |
|
<form action="/adm/coursedocs" method="post" name="supnewfolder"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<nobr> |
<nobr> |
<input name="newfolder" type="button" |
<input name="newfolder" type="button" |
Line 1237 value="$lt{'newf'}" /> $help{'Adding_Fol
|
Line 1334 value="$lt{'newf'}" /> $help{'Adding_Fol
|
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="supnewext"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" value=""> |
<input type=hidden name="importdetail" value=""> |
<nobr> |
<nobr> |
<input name="newext" type="button" |
<input name="newext" type="button" |
Line 1247 value="$lt{'extr'}" /> $help{'Adding_Ext
|
Line 1344 value="$lt{'extr'}" /> $help{'Adding_Ext
|
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="supnewsyl"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" |
<input type=hidden name="importdetail" |
value="Syllabus=/public/$coursedom/$coursenum/syllabus"> |
value="Syllabus=/public/$coursedom/$coursenum/syllabus"> |
<nobr> |
<nobr> |
Line 1257 $help{'Syllabus'}
|
Line 1354 $help{'Syllabus'}
|
</form> |
</form> |
<form action="/adm/coursedocs" method="post" name="subnewaboutme"> |
<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="$htmlfoldername"> |
<input type=hidden name="importdetail" |
<input type=hidden name="importdetail" |
value="$plainname=/adm/$udom/$uname/aboutme"> |
value="$plainname=/adm/$udom/$uname/aboutme"> |
<nobr> |
<nobr> |