rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonratedt.pm between versions 1.49 and 1.59

version 1.49, 2003/12/12 15:16:35	version 1.59, 2004/07/04 05:43:12
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 190 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 206 sub mapread {	Line 205 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 417 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 517 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 538 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();
return(<<ENDSCRIPT);	return(<<ENDSCRIPT);
var srch;	var srch;
var srchflag=-1; // 1 means currently open	var srchflag=-1; // 1 means currently open
Line 571 function idxopen(mode) {	Line 637 function idxopen(mode) {
var options="scrollbars=1,resizable=1,menubar=0";	var options="scrollbars=1,resizable=1,menubar=0";
idxmode=mode;	idxmode=mode;
idxflag=1;	idxflag=1;
idx=open("/res/?launch=1&mode=$mode&catalogmode="+mode,"idxout",options);	idx=open("$resurl/?launch=1&mode=$mode&catalogmode="+mode,"idxout",options);
idx.focus();	idx.focus();
}	}

Line 610 function idxcheck(mode) {	Line 676 function idxcheck(mode) {

var editbrowser;	var editbrowser;
function openbrowser(formname,elementname,only,omit) {	function openbrowser(formname,elementname,only,omit) {
var url = '/res/?';	var url = '$resurl/?';
if (editbrowser == null) {	if (editbrowser == null) {
url += 'launch=1&';	url += 'launch=1&';
}	}
Line 878 sub smpedt {	Line 944 sub smpedt {
$importdetail='&'.$importdetail;	$importdetail='&'.$importdetail;
$importdetail=~s/^\&+/\&/;	$importdetail=~s/^\&+/\&/;
my $importwindow=	my $importwindow=
'<option value="-1"> ---- Import and Paste Area ---- </option>'.	'<option value="-1"> ---- '.&mt('Import and Paste Area').' ---- </option>'.
join("\n",map {	join("\n",map {
$idx++;	$idx++;
if ($_) {	if ($_) {
Line 907 sub smpedt {	Line 973 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_menu('','Sequence_Simple_Editor_Creation','Sequence_Simple_Editor_Creation','',6,'RAT');
my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'sa' => 'Save',	'sa' => 'Save',
'nt' => 'New Title',	'nt' => 'New Title',
Line 1063 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_menu('','','','',6,'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.49
changed lines
	Added in v.1.59