rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonratedt.pm between versions 1.55 and 1.64

version 1.55, 2004/04/24 15:05:16	version 1.64, 2005/03/23 22:54:18
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 391 sub attemptread {	Line 393 sub attemptread {
# --------------------------------------------------------- Build up RAT screen	# --------------------------------------------------------- Build up RAT screen
sub ratedt {	sub ratedt {
my ($r,$url)=@_;	my ($r,$url)=@_;
	my $frameset = '<frameset rows="1,70,*" border="0">';
	if ($ENV{'environment.remote'} eq 'off') {
	$frameset = '<frameset rows="1,250,*" border="0">';
	}
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);

<html>	<html>
Line 399 sub ratedt {	Line 405 sub ratedt {
var flag=0;	var flag=0;
</script>	</script>
</head>	</head>
<frameset rows="1,50,*" border=0>	$frameset
<frame name=server src="$url/loadonly/ratserver" noresize noscroll>	<frame name=server src="$url/loadonly/ratserver" noresize noscroll>
<frame name=code src="/adm/rat/code.html">	<frame name=code src="$url/loadonly/adveditmenu">
<frame name=mapout src="/adm/rat/map.html">	<frame name=mapout src="/adm/rat/map.html">
</frameset>	</frameset>
</html>	</html>
Line 536 sub storemap {	Line 542 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 652 sub smpedt {	Line 710 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 919 sub smpedt {	Line 981 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,
&Apache::loncommon::help_open_topic('Sequence_Simple_Editor_Creation').	($ENV{'environment.remote'} ne 'off')).
&Apache::loncommon::help_open_faq(6).	&Apache::loncommon::help_open_menu('','Sequence_Simple_Editor_Creation','Sequence_Simple_Editor_Creation','',6,'RAT');
&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 1078 sub viewmap {	Line 1139 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 />');
Line 1089 sub viewmap {	Line 1149 sub viewmap {
if ($adv) {	if ($adv) {
$r->print('<p><b><font color="red">'.&mt('Map contents are not shown in order.').'</font></b></p><br />');	$r->print('<p><b><font color="red">'.&mt('Map contents are not shown in order.').'</font></b></p><br />');
}	}
	$r->print( '<table border="0" cellspacing="2" cellpadding="4">'.
	'<tr bgcolor="#DDDDDD"><th>'.&mt('Type').'</th>'.
	'<th>'.&mt('Title in map').'</th>'.
	'<th>'.&mt('Filename of resource').'</th>'.
	'<th>'.&mt('Link to published resource').'</th>'.
	'<th>'.&mt('Link to resource in Construction Space').'</th>'.
	'</tr>');
	my @backgroundColors = ("#FFFFFF", "#F6F6F6");
foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {	foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {
if (defined($_)) {	if (defined($_)) {
$idx++;	$idx++;
my ($title,$url)=split(/\:/,$_);	my ($title,$url,$cond)=split(/\:/,$_);
	if ($cond eq 'cond') { next; }
$title=~s/\&colon\;/\:/g;	$title=~s/\&colon\;/\:/g;
$url=~s/\&colon\;/\:/g;	$url=~s/\&colon\;/\:/g;
unless ($title) { $title=(split(/\//,$url))[-1] };	unless ($title) { $title=(split(/\//,$url))[-1] };
unless ($title) { $title='<i>Empty</i>'; }	unless ($title) { $title='<i>'.&mt('Empty').'</i>'; }
	my $resurl = &Apache::lonratsrv::qtescape($url);
	my $resfilepath = $Apache::lonnet::perlvar{'lonDocRoot'}.$resurl;
	my $filename;
	if ($resurl =~ m#/([^/]+)$#) {
	$filename = $1;
	}
	my $cstrurl = $resurl;
	$cstrurl =~ s#^/res/[^/]+/([^/]+)/#/priv/$1/#;
	my $bgcol = $idx%2;
	$r->print('<tr bgcolor='.$backgroundColors[$bgcol].'><td>'.
	'<img src="'.&Apache::loncommon::icon($resfilepath).
	'" /></td><td>'.&Apache::lonratsrv::qtescape($title).
	'</td><td>'.$filename.'</td><td>');
	if ($url) {
	if (-e $resfilepath) {
	$r->print('<a href="'.$resurl.'">'.&mt('Resource space').'</a>');
	} else {
	$r->print(&mt('unpublished'));
	}
	}
	$r->print('</td><td>');
if ($url) {	if ($url) {
$r->print('<a href="'.&Apache::lonratsrv::qtescape($url).'">');	$r->print('<a href="'.$cstrurl.'">'.
	&mt('Construction space').'</a>');
}	}
$r->print(&Apache::lonratsrv::qtescape($title));	$r->print('</td></tr>'."\n");
if ($url) { $r->print('</a>'); }
$r->print('<br>');
}	}
}	}
	$r->print('</table>');
$r->print('</body></html>');	$r->print('</body></html>');
}	}

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

Removed from v.1.55
changed lines
	Added in v.1.64