rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonratedt.pm between versions 1.32 and 1.40

version 1.32, 2002/08/20 13:02:41	version 1.40, 2002/11/11 21:04:49
Line 37 use Apache::Constants qw(:common);	Line 37 use Apache::Constants qw(:common);
use Apache::lonnet;	use Apache::lonnet;
use Apache::lonratsrv;	use Apache::lonratsrv;
use Apache::lonsequence;	use Apache::lonsequence;
	use Apache::loncommon;
	use File::Copy;

my @order;	use vars qw(@order @resources);
my @resources;


# Mapread read maps into global arrays @links and @resources, determines status	# Mapread read maps into global arrays @links and @resources, determines status
Line 102 sub mapread {	Line 103 sub mapread {
}	}
}	}
}	}
	# ---------------------------------------------- Did we just read an empty map?
	if ($#resources<1) {
	undef $resources[0];
	$resources[1]=':::start';
	$resources[2]=':::finish';
	}
# -------------------------------------------------- This is a linear map, sort	# -------------------------------------------------- This is a linear map, sort

my $startidx=0;	my $startidx=0;
Line 299 sub pastetarget {	Line 305 sub pastetarget {
my $ext='false';	my $ext='false';
if ($url=~/^http\:\/\//) { $ext='true'; }	if ($url=~/^http\:\/\//) { $ext='true'; }
$url=~s/\:/\&colon;/g;	$url=~s/\:/\&colon;/g;
	$name=~s/\:/\&colon;/g;
$resources[$idx]=$name.':'.$url.':'.$ext.':normal:res';	$resources[$idx]=$name.':'.$url.':'.$ext.':normal:res';
}	}
}	}
Line 318 sub startfinish {	Line 325 sub startfinish {
}	}
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';
	if ($#order==0) {
	$resources[$#resources+1]='::false';
	$order[1]=$#resources;
	}
my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]);	my ($name,$url,$ext)=split(/\:/,$resources[$order[$#order]]);
$resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res';	$resources[$order[$#order]]=$name.':'.$url.':'.$ext.':finish:res';
}	}
Line 325 sub startfinish {	Line 336 sub startfinish {
# ------------------------------------------------------------------- Store map	# ------------------------------------------------------------------- Store map

sub storemap {	sub storemap {
my $fn=shift;	my $realfn=shift;
	my $fn=$realfn;
	# unless this is forced to work from the original file, use a temporary file
	# instead
	unless (shift) {
	$fn=$realfn.'.tmp';
	unless (-e $fn) {
	copy($realfn,$fn);
	}
	}
	# store data either into tmp or real file
&startfinish();	&startfinish();
my $output='graphdef<:>no';	my $output='graphdef<:>no';
my $k=1;	my $k=1;
Line 459 ENDSCRIPT	Line 480 ENDSCRIPT
sub smpedt {	sub smpedt {
my ($r,$url,$errtext)=@_;	my ($r,$url,$errtext)=@_;
my $buttons=&buttons(2);	my $buttons=&buttons(2);
	my $tmpfn=&Apache::lonnet::filelocation('',$url).'.tmp';
	my $targetmsg='';
	if ($ENV{'form.save'}) {
	$targetmsg='<b>Saving ...</b><br>';
	copy($tmpfn,&Apache::lonnet::filelocation('',$url));
	unlink($tmpfn);
	my ($errtext,$fatal)=
	&mapread(&Apache::lonnet::filelocation('',$url),'');
	}
	if ($ENV{'form.revert'}) {
	$targetmsg='<b>Reverting ...</b><br>';
	unlink($tmpfn);
	my ($errtext,$fatal)=
	&mapread(&Apache::lonnet::filelocation('',$url),'');
	}
	if (-e $tmpfn) {
	$targetmsg=
	'<b><font color="red">You are working with an unsaved version of your map.</font></b><br>';
	my ($errtext,$fatal)=&mapread($tmpfn,'');
	}
# ---------------------------------------------------------- Process form input	# ---------------------------------------------------------- Process form input

my @importselect=();	my @importselect=();
Line 646 sub smpedt {	Line 686 sub smpedt {
}	}
&pastetarget($lastsel,@newsequence);	&pastetarget($lastsel,@newsequence);
&storemap(&Apache::lonnet::filelocation('',$url));	&storemap(&Apache::lonnet::filelocation('',$url));
# ------------------------------------------------	# -------------------------------------------------------------------- Move up
	} elsif ($ENV{'form.moveup'}) {
	foreach (sort @targetselect) {
	if ($_-1>0) {
	my $movethis=$order[$_-1];
	$order[$_-1]=$order[$_-2];
	$order[$_-2]=$movethis;
	}
	}
	&storemap(&Apache::lonnet::filelocation('',$url));
	# ------------------------------------------------------------------ Move down
	} elsif ($ENV{'form.movedown'}) {
	foreach (reverse sort @targetselect) {
	if ($_-1<$#order) {
	my $movethis=$order[$_-1];
	$order[$_-1]=$order[$_];
	$order[$_]=$movethis;
	}
	}
	&storemap(&Apache::lonnet::filelocation('',$url));
	# --------------------------------------------------------------------- Rename
	} elsif ($ENV{'form.renameres'}) {
	my $residx=$Apache::lonratedt::order[$ENV{'form.renameidx'}-1];
	my ($name,@resrest)=split(/\:/,$Apache::lonratedt::resources[$residx]);
	$name=$ENV{'form.renametitle'};
	$name=~s/\:/\&colon\;/g;
	$Apache::lonratedt::resources[$residx]=$name.':'.join(':'.@resrest);
	&storemap(&Apache::lonnet::filelocation('',$url));
}	}
# ------------------------------------------------------------ Assemble windows	# ------------------------------------------------------------ Assemble windows

my $idx=-1;	my $idx=-1;
	$importdetail='&'.$importdetail;
	$importdetail=~s/^\&+/\&/;
my $importwindow=	my $importwindow=
'<option value="-1"> ---- Import and Paste Area ---- </option>'.	'<option value="-1"> ---- Import and Paste Area ---- </option>'.
join("\n",map {	join("\n",map {
Line 665 sub smpedt {	Line 734 sub smpedt {
} split(/\&/,$importdetail));	} split(/\&/,$importdetail));

$idx=0;	$idx=0;
	$targetdetail='';
my $targetwindow=	my $targetwindow=
'<option value="0"> ------- Target Edit Map ------- </option>'.	'<option value="0"> ------- Target Edit Map ------- </option>'.
join("\n",map {	join("\n",map {
Line 674 sub smpedt {	Line 744 sub smpedt {
$targetdetail.='&'.&Apache::lonnet::escape($name).'='.	$targetdetail.='&'.&Apache::lonnet::escape($name).'='.
&Apache::lonnet::escape($url);	&Apache::lonnet::escape($url);
$idx++;	$idx++;
	$name=~s/\&colon;/\:/g;
'<option value="'.$idx.'">'.$name.'</option>';	'<option value="'.$idx.'">'.$name.'</option>';
} @order);	} @order);

# ----------------------------------------------------- Start simple RAT screen	# ----------------------------------------------------- Start simple RAT screen
my $editscript=&editscript('simple');	my $editscript=&editscript('simple');
	my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1);
$r->print(<<ENDSMPHEAD);	$r->print(<<ENDSMPHEAD);
<html>	<html>
<head>	<head>
Line 696 sub smpedt {	Line 768 sub smpedt {

function viewtarget() {	function viewtarget() {
openview((document.forms.simpleedit.targetdetail.value.split('&'))	openview((document.forms.simpleedit.targetdetail.value.split('&'))
[document.forms.simpleedit.target.selectedIndex+1]);	[document.forms.simpleedit.target.selectedIndex]);
}	}

function viewimport() {	function viewimport() {
openview((document.forms.simpleedit.curimpdetail.value.split('&'))	openview((document.forms.simpleedit.curimpdetail.value.split('&'))
[document.forms.simpleedit.importsel.selectedIndex+1]);	[document.forms.simpleedit.importsel.selectedIndex]);
	}

	function renametarget() {
	var selidx=document.forms.simpleedit.target.selectedIndex;
	var entry=(document.forms.simpleedit.targetdetail.value.split('&'))
	[selidx];
	var newtitle=prompt('New Title',unescape((entry.split('='))[0]));
	if (newtitle) {
	document.forms.simpleedit.renameres.value=1;
	document.forms.simpleedit.renameidx.value=selidx;
	document.forms.simpleedit.renametitle.value=newtitle;
	document.forms.simpleedit.submit();
	}
}	}

</script>	</script>
</head>	</head>
<body bgcolor='#FFFFFF'>	$bodytag
$buttons	$buttons
<font color=red>$errtext</font>	<font color=red>$errtext</font>
<h1>$url</h1>
<form name=simpleedit method=post>	<form name=simpleedit method=post>
<input type=hidden name=forcesmp value=1>	<input type=hidden name=forcesmp value=1>
	<input type=hidden name=renameres value=0>
	<input type=hidden name=renametitle value=''>
	<input type=hidden name=renameidx value=0>
<table>	<table>
<tr><th width="40%">Import</th>	<tr><th width="40%">Temporary Assembly Workspace</th>
<th> </th>	<th> </th>
<th width="40%">Target</th></tr>	<th width="40%">File: $url</th></tr>
<tr><td bgcolor="#FFFFCC">	<tr><td bgcolor="#FFFFCC">
<input type=button onClick="javascript:groupsearch()" value="Group Search">	<input type=button onClick="javascript:groupsearch()" value="Search">
<input type=button onClick="javascript:groupimport();" value="Group Import">	<input type=button onClick="javascript:groupimport();" value="Import">
after selected	after selected
<hr>	<hr>
<input type=text size=20 name=importmap>	<input type=text size=20 name=importmap>
Line 732 value="Browse"><input type=submit name=l	Line 819 value="Browse"><input type=submit name=l
</td><td> </td><td bgcolor="#FFFFCC">	</td><td> </td><td bgcolor="#FFFFCC">

<input type=button onClick=	<input type=button onClick=
"javascript:impfortarget.value=1;groupsearch()" value="Group Search">	"javascript:impfortarget.value=1;groupsearch()" value="Search">
<input type=button onClick=	<input type=button onClick=
"javascript:impfortarget.value=1;groupimport();" value="Group Import">	"javascript:impfortarget.value=1;groupimport();" value="Import">
after selected	after selected
<hr><input type=button onClick="javascript:viewtarget()" value="View">	<hr>
	<input type=submit name="moveup" value="Move Up">
	<input type=submit name="movedown" value="Move Down">
	<input type=button onClick="javascript:renametarget()" value="Rename">
	<hr>$targetmsg
	<input type=submit name="revert" value="Revert to Last Saved">
	<input type=submit name="save" value="Save">
	<input type=button onClick="javascript:viewtarget()" value="View">
</td></tr>	</td></tr>

<tr><td bgcolor="#FFFFCC"><select name="importsel" size=10 multiple>	<tr><td bgcolor="#FFFFCC"><select name="importsel" size=10 multiple>
Line 783 ENDNODIR	Line 877 ENDNODIR

sub viewmap {	sub viewmap {
my ($r,$url,$adv,$errtext)=@_;	my ($r,$url,$adv,$errtext)=@_;
$r->print('<html><body bgcolor="#FFFFFF">'.&buttons($adv));	$r->print('<html>'.
	&Apache::loncommon::bodytag('Edit Content of a Map').
	&buttons($adv));
if ($errtext) {	if ($errtext) {
$r->print($errtext.'<hr>');	$r->print($errtext.'<hr>');
}	}
my $idx=0;	my $idx=0;
	$r->print('<h1>'.$url.'</h1>');
foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {	foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {
if (defined($_)) {	if (defined($_)) {
$idx++;	$idx++;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.32
changed lines
	Added in v.1.40