version 1.185, 2005/06/10 15:33:45
|
version 1.187, 2005/06/10 17:51:29
|
Line 1076 sub editor {
|
Line 1076 sub editor {
|
my ($cmd,$idx)=split(/\_/,$env{'form.cmd'}); |
my ($cmd,$idx)=split(/\_/,$env{'form.cmd'}); |
if ($cmd eq 'del') { |
if ($cmd eq 'del') { |
my (undef,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]]); |
my (undef,$url)=split(':',$Apache::lonratedt::resources[$Apache::lonratedt::order[$idx]]); |
if ($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) { |
if (($url=~m|/+uploaded/\Q$coursedom\E/\Q$coursenum\E/|) && |
unless ($url=~/\.(page|sequence|problem|exam|quiz|assess|survey|form|library)$/) { |
($url!~/\.(page|sequence|problem|exam|quiz|assess|survey|form|library)$/)) { |
&Apache::lonnet::removeuploadedurl($url); |
&Apache::lonnet::removeuploadedurl($url); |
} |
} else { |
|
&Apache::lonratedt::makezombie($Apache::lonratedt::order[$idx]); |
} |
} |
&Apache::lonratedt::makezombie($Apache::lonratedt::order[$idx]); |
|
for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) { |
for (my $i=$idx;$i<$#Apache::lonratedt::order;$i++) { |
$Apache::lonratedt::order[$i]= |
$Apache::lonratedt::order[$i]= |
$Apache::lonratedt::order[$i+1]; |
$Apache::lonratedt::order[$i+1]; |
Line 2120 function removeres(folderpath,index,oldt
|
Line 2120 function removeres(folderpath,index,oldt
|
} |
} |
|
|
function cutres(folderpath,index,oldtitle,container,pagesymb) { |
function cutres(folderpath,index,oldtitle,container,pagesymb) { |
if (confirm('WARNING: Cutting a resource makes associated grades and scores inaccessible,\\neven if it is pasted in again elsewhere!\\nCut "'+oldtitle+'"?')) { |
if (confirm('WARNING: Cutting a resource makes associated grades and scores inaccessible!\\nGrades remain inaccessible if resource is pasted into another folder.\\nCut "'+oldtitle+'"?')) { |
this.document.forms.renameform.cmd.value='cut_'+index; |
this.document.forms.renameform.cmd.value='cut_'+index; |
this.document.forms.renameform.markcopy.value=index; |
this.document.forms.renameform.markcopy.value=index; |
if (container == 'sequence') { |
if (container == 'sequence') { |
Line 2169 ENDNEWSCRIPT
|
Line 2169 ENDNEWSCRIPT
|
'impo' => 'Import', |
'impo' => 'Import', |
'selm' => 'Select Map', |
'selm' => 'Select Map', |
'load' => 'Load Map', |
'load' => 'Load Map', |
|
'reco' => 'Recover Deleted Resources', |
'newf' => 'New Folder', |
'newf' => 'New Folder', |
'newp' => 'New Composite Page', |
'newp' => 'New Composite Page', |
'extr' => 'External Resource', |
'extr' => 'External Resource', |
Line 2259 ENDCOURSEVERIFY
|
Line 2260 ENDCOURSEVERIFY
|
'.sequence'; |
'.sequence'; |
my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. |
my $pageseq = '/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time. |
'.page'; |
'.page'; |
|
my $container='sequence'; |
|
if ($env{'form.pagepath'}) { |
|
$container='page'; |
|
} |
|
my $readfile='/uploaded/'.$coursedom.'/'.$coursenum.'/'.$folder.'.'.$container; |
$r->print(<<ENDFORM); |
$r->print(<<ENDFORM); |
<table cellspacing=4 cellpadding=4><tr> |
<table cellspacing=4 cellpadding=4><tr> |
<th bgcolor="#DDDDDD">$lt{'uplm'}</th> |
<th bgcolor="#DDDDDD">$lt{'uplm'}</th> |
Line 2300 value="$lt{'selm'}"> <input type="submit
|
Line 2305 value="$lt{'selm'}"> <input type="submit
|
$help{'Load_Map'}</nobr> |
$help{'Load_Map'}</nobr> |
</p> |
</p> |
</form> |
</form> |
|
<hr /> |
|
<form action="/adm/groupsort" method="post" name="recover"> |
|
<input type="button" name="recovermap" onClick="javascript:groupopen('$readfile',1)" value="$lt{'reco'}" /> |
|
</form> |
ENDFORM |
ENDFORM |
unless ($env{'form.pagepath'}) { |
unless ($env{'form.pagepath'}) { |
$r->print(<<ENDFORM); |
$r->print(<<ENDFORM); |