rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonratedt.pm between versions 1.56 and 1.60

version 1.56, 2004/04/24 15:37:30	version 1.60, 2004/09/02 13:21:53
Line 187 sub mapread {	Line 187 sub mapread {
undef @links;	undef @links;
undef @resources;	undef @resources;
undef @order;	undef @order;
	undef @resparms;
@resources=('');	@resources=('');
@order=();	@order=();
	@resparms=();

my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');	my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');
if ($errtext) { return ($errtext,2); }	if ($errtext) { return ($errtext,2); }
Line 558 sub storeparameter {	Line 560 sub storeparameter {
$resparms[$to]=$newentry;	$resparms[$to]=$newentry;
}	}

	sub delparameter {
	my ($to,$name)=@_;
	my $newentry='';
	my $nametype='';
	foreach (split('&&&',$resparms[$to])) {
	my ($thistype,$thisname,$thisvalue)=split('___',$_);
	if ($thisname) {
	unless ($thisname eq $name) {
	$newentry.=$_.'&&&';
	}
	}
	}
	$resparms[$to]=$newentry;
	}

sub getparameter {	sub getparameter {
my ($to,$name);	my ($to,$name)=@_;
my $value=undef;	my $value=undef;
my $ptype=undef;	my $ptype=undef;
foreach (split('&&&',$resparms[$to])) {	foreach (split('&&&',$resparms[$to])) {
Line 689 sub smpedt {	Line 706 sub smpedt {
my $tmpfn=&Apache::lonnet::filelocation('',$url).'.tmp';	my $tmpfn=&Apache::lonnet::filelocation('',$url).'.tmp';
my $targetmsg='';	my $targetmsg='';
if ($ENV{'form.save'}) {	if ($ENV{'form.save'}) {
$targetmsg='<b>Saving ...</b><br>';
copy($tmpfn,&Apache::lonnet::filelocation('',$url));	copy($tmpfn,&Apache::lonnet::filelocation('',$url));
unlink($tmpfn);	unlink($tmpfn);
my ($errtext,$fatal)=	my ($errtext,$fatal)=
&mapread(&Apache::lonnet::filelocation('',$url),'');	&mapread(&Apache::lonnet::filelocation('',$url),'');
	unless ($fatal) {
	$targetmsg='<b>'.&mt('Saved.').'</b><br />';
	} else {
	$targetmsg='<b>'.&mt('An error occured while saving.').'</b><br />';
	}
}	}
if ($ENV{'form.revert'}) {	if ($ENV{'form.revert'}) {
$targetmsg='<b>Reverting ...</b><br>';	$targetmsg='<b>'.&mt('Reverted.').'</b><br />';
unlink($tmpfn);	unlink($tmpfn);
my ($errtext,$fatal)=	my ($errtext,$fatal)=
&mapread(&Apache::lonnet::filelocation('',$url),'');	&mapread(&Apache::lonnet::filelocation('',$url),'');
Line 957 sub smpedt {	Line 978 sub smpedt {
# ----------------------------------------------------- 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).	my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1).
&Apache::loncommon::help_open_topic('Sequence_Simple_Editor_Creation').	&Apache::loncommon::help_open_menu('','Sequence_Simple_Editor_Creation','Sequence_Simple_Editor_Creation','',6,'RAT');
&Apache::loncommon::help_open_faq(6).
&Apache::loncommon::help_open_bug('RAT');
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'sa' => 'Save',	'sa' => 'Save',
'nt' => 'New Title',	'nt' => 'New Title',
Line 1115 sub viewmap {	Line 1134 sub viewmap {
my ($r,$url,$adv,$errtext)=@_;	my ($r,$url,$adv,$errtext)=@_;
$r->print('<html>'.	$r->print('<html>'.
&Apache::loncommon::bodytag('Edit Content of a Map').	&Apache::loncommon::bodytag('Edit Content of a Map').
&Apache::loncommon::help_open_faq(6).	&Apache::loncommon::help_open_menu('','','','',6,'RAT').
&Apache::loncommon::help_open_bug('RAT').
&buttons($adv));	&buttons($adv));
if ($errtext) {	if ($errtext) {
$r->print($errtext.'<hr />');	$r->print($errtext.'<hr />');

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

Removed from v.1.56
changed lines
	Added in v.1.60