version 1.40, 2002/11/11 21:04:49
|
version 1.43, 2003/01/22 17:25:03
|
Line 318 sub pastetarget {
|
Line 318 sub pastetarget {
|
# modifies @resources |
# modifies @resources |
|
|
sub startfinish { |
sub startfinish { |
|
# Remove all start and finish |
foreach (@order) { |
foreach (@order) { |
my ($name,$url,$ext)=split(/\:/,$resources[$_]); |
my ($name,$url,$ext)=split(/\:/,$resources[$_]); |
if ($url=~/http\&colon\:\/\//) { $ext='true'; } |
if ($url=~/http\&colon\:\/\//) { $ext='true'; } |
$resources[$_]=$name.':'.$url.':'.$ext.':normal:res'; |
$resources[$_]=$name.':'.$url.':'.$ext.':normal:res'; |
} |
} |
|
# Garbage collection |
|
my $stillchange=1; |
|
while (($#order>1) && ($stillchange)) { |
|
$stillchange=0; |
|
for (my $i=0;$i<=$#order;$i++) { |
|
my ($name,$url,$ext)=split(/\:/,$resources[$order[$i]]); |
|
unless ($url) { |
|
# Take out empty resource |
|
for (my $j=$i+1;$j<=$#order;$j++) { |
|
$order[$j-1]=$order[$j]; |
|
} |
|
$#order--; |
|
$stillchange=1; |
|
last; |
|
} |
|
} |
|
} |
|
# Put in a start resource |
my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]); |
my ($name,$url,$ext)=split(/\:/,$resources[$order[0]]); |
$resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res'; |
$resources[$order[0]]=$name.':'.$url.':'.$ext.':start:res'; |
|
# Make sure this has at least start and finish |
if ($#order==0) { |
if ($#order==0) { |
$resources[$#resources+1]='::false'; |
$resources[$#resources+1]='::false'; |
$order[1]=$#resources; |
$order[1]=$#resources; |
} |
} |
my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]); |
# Make the last one a finish resource |
|
($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]); |
$resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res'; |
$resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res'; |
} |
} |
|
|
Line 712 sub smpedt {
|
Line 733 sub smpedt {
|
my ($name,@resrest)=split(/\:/,$Apache::lonratedt::resources[$residx]); |
my ($name,@resrest)=split(/\:/,$Apache::lonratedt::resources[$residx]); |
$name=$ENV{'form.renametitle'}; |
$name=$ENV{'form.renametitle'}; |
$name=~s/\:/\&colon\;/g; |
$name=~s/\:/\&colon\;/g; |
$Apache::lonratedt::resources[$residx]=$name.':'.join(':'.@resrest); |
$Apache::lonratedt::resources[$residx]=$name.':'.join(':',@resrest); |
&storemap(&Apache::lonnet::filelocation('',$url)); |
&storemap(&Apache::lonnet::filelocation('',$url)); |
} |
} |
# ------------------------------------------------------------ Assemble windows |
# ------------------------------------------------------------ Assemble windows |
Line 780 sub smpedt {
|
Line 801 sub smpedt {
|
var selidx=document.forms.simpleedit.target.selectedIndex; |
var selidx=document.forms.simpleedit.target.selectedIndex; |
var entry=(document.forms.simpleedit.targetdetail.value.split('&')) |
var entry=(document.forms.simpleedit.targetdetail.value.split('&')) |
[selidx]; |
[selidx]; |
var newtitle=prompt('New Title',unescape((entry.split('='))[0])); |
var oldname=unescape((entry.split('='))[0]); |
|
var nameparts=oldname.split(':'); |
|
oldname=unescape(nameparts.join(':')); |
|
nameparts=oldname.split('"'); |
|
oldname=unescape(nameparts.join('"')); |
|
nameparts=oldname.split('''); |
|
oldname=unescape(nameparts.join("'")); |
|
newtitle=prompt('New Title',oldname); |
if (newtitle) { |
if (newtitle) { |
document.forms.simpleedit.renameres.value=1; |
document.forms.simpleedit.renameres.value=1; |
document.forms.simpleedit.renameidx.value=selidx; |
document.forms.simpleedit.renameidx.value=selidx; |