rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonratedt.pm between versions 1.51 and 1.57

version 1.51, 2004/01/02 21:00:56	version 1.57, 2004/04/26 16:56:26
Line 25	Line 25
#	#
# http://www.lon-capa.org/	# http://www.lon-capa.org/
#	#
# (TeX Content Handler
#
# 05/29/00,05/30 Gerd Kortemeyer)
# 7/1,6/30 Gerd Kortemeyer

package Apache::lonratedt;	package Apache::lonratedt;

Line 176 use Apache::loncommon;	Line 173 use Apache::loncommon;
use Apache::lonlocal;	use Apache::lonlocal;
use File::Copy;	use File::Copy;

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


# Mapread read maps into global arrays @links and @resources, determines status	# Mapread read maps into global arrays @links and @resources, determines status
Line 206 sub mapread {	Line 203 sub mapread {
$links[$number]=$content;	$links[$number]=$content;
}	}
if ($command eq 'objparms') {	if ($command eq 'objparms') {
return(&mt('Map has resource parameters. Use advanced editor.'),1);	if ($resparms[$number]) {
	$resparms[$number].='&&&'.$content;
	} else {
	$resparms[$number]=$content;
	}
}	}
}	}
# ------------------------------------------------------- Is this a linear map?	# ------------------------------------------------------- Is this a linear map?
Line 414 sub buttons {	Line 415 sub buttons {
my $adv=shift;	my $adv=shift;
my $output='<form method=post>';	my $output='<form method=post>';
if ($adv==1) {	if ($adv==1) {
$output.='<input type=submit name=forceadv value="'.&mt('Edit').'">';	$output.='<input type=submit name=forceadv value="'.&mt('Edit').'">'.
	&Apache::loncommon::help_open_topic('Sequence_Advanced_Editor_Creation');;
} else {	} else {
unless ($adv==2) {	unless ($adv==2) {
$output.='<input type=submit name=forcesmp value="'.&mt('Simple Edit').'">';	$output.='<input type=submit name=forcesmp value="'.&mt('Simple Edit').'">'.
	&Apache::loncommon::help_open_topic('Sequence_Simple_Editor_Creation');
}	}
$output.='<input type=submit name=forceadv value="'.&mt('Advanced Edit').'">';	$output.='<input type=submit name=forceadv value="'.&mt('Advanced Edit').'">'.
	&Apache::loncommon::help_open_topic('Sequence_Advanced_Editor_Creation');
}	}
return $output.'</form><hr>';	return $output.'</form><hr>';
}	}
Line 511 sub storemap {	Line 515 sub storemap {
if (defined($resources[$order[$i]])) {	if (defined($resources[$order[$i]])) {
$output.='<&>objcont<:>'.$order[$i].'<:>'.$resources[$order[$i]];	$output.='<&>objcont<:>'.$order[$i].'<:>'.$resources[$order[$i]];
}	}
	if (defined($resparms[$order[$i]])) {
	foreach (split('&&&',$resparms[$order[$i]])) {
	if ($_) {
	$output.='<&>objparms<:>'.$order[$i].'<:>'.$_;
	}
	}
	}
if (defined($order[$i+1])) {	if (defined($order[$i+1])) {
if (defined($resources[$order[$i+1]])) {	if (defined($resources[$order[$i+1]])) {
$output.='<&>objlinks<:>'.$k.'<:>'.	$output.='<&>objlinks<:>'.$k.'<:>'.
Line 525 sub storemap {	Line 536 sub storemap {
&Apache::lonratsrv::loadmap($fn,&Apache::lonratsrv::savemap($fn,''));	&Apache::lonratsrv::loadmap($fn,&Apache::lonratsrv::savemap($fn,''));
}	}

	# ------------------------------------------ Store and get parameters in global

	sub storeparameter {
	my ($to,$name,$value,$ptype)=@_;
	my $newentry='';
	my $nametype='';
	foreach (split('&&&',$resparms[$to])) {
	my ($thistype,$thisname,$thisvalue)=split('___',$_);
	if ($thisname) {
	unless ($thisname eq $name) {
	$newentry.=$_.'&&&';
	} else {
	$nametype=$thistype;
	}
	}
	}
	unless ($ptype) { $ptype=$nametype; }
	unless ($ptype) { $ptype='string'; }
	$newentry.=$ptype.'___'.$name.'___'.$value;
	$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 {
	my ($to,$name);
	my $value=undef;
	my $ptype=undef;
	foreach (split('&&&',$resparms[$to])) {
	my ($thistype,$thisname,$thisvalue)=split('___',$_);
	if ($thisname eq $name) {
	$value=$thisvalue;
	$ptype=$thistype;
	}
	}
	return ($value,$ptype);
	}

	# ----------------------------------------------------------------- Edit script
sub editscript {	sub editscript {
my $mode=shift;	my $mode=shift;
my $resurl=&Apache::loncommon::lastresurl();	my $resurl=&Apache::loncommon::lastresurl();
Line 908 sub smpedt {	Line 971 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_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 1064 sub viewmap {	Line 1130 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').
&buttons($adv));	&Apache::loncommon::help_open_faq(6).
	&Apache::loncommon::help_open_bug('RAT').
	&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>');	$r->print('<h1>'.$url.'</h1>');

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

Removed from v.1.51
changed lines
	Added in v.1.57