rat/lonratedt.pm - diff

Return to lonratedt.pm CVS log

Up to [LON-CAPA] / rat

Diff for /rat/lonratedt.pm between versions 1.105.2.7 and 1.109

version 1.105.2.7, 2015/03/11 21:09:04	version 1.109, 2014/02/14 16:05:42
Line 43 use HTML::Entities();	Line 43 use HTML::Entities();
# --------------------------------------------------------- Build up RAT screen	# --------------------------------------------------------- Build up RAT screen
sub ratedt {	sub ratedt {
my ($r,$url)=@_;	my ($r,$url)=@_;
my %layout = ('border' => "0");	my %layout = ('border' => "0",
if ($env{'environment.remote'} eq 'off') {	'rows' => "1,250,*");
$layout{'rows'} = "1,250,*";
} else {
$layout{'rows'} = "1,70,*";
}
my $js ='	my $js ='
<script type="text/javascript">	<script type="text/javascript">
var flag=0;	var flag=0;
Line 235 sub smpedt {	Line 231 sub smpedt {
unless ($fatal) {	unless ($fatal) {
$targetmsg=&Apache::lonhtmlcommon::confirm_success(&mt('Saved'));	$targetmsg=&Apache::lonhtmlcommon::confirm_success(&mt('Saved'));
} else {	} else {
$targetmsg=&Apache::lonhtmlcommon::confirm_success(	$targetmsg=&Apache::lonhtmlcommon::confirm_success(
&mt('An error occurred while saving.'),1);	&mt('An error occurred while saving.'),1);
}	}
}	}
if ($env{'form.revert'}) {	if ($env{'form.revert'}) {
Line 245 sub smpedt {	Line 241 sub smpedt {
my ($errtext,$fatal)=	my ($errtext,$fatal)=
&LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$url),'');	&LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$url),'');
}	}
$targetmsg = &Apache::loncommon::confirmwrapper($targetmsg) if ($targetmsg);	$targetmsg = &Apache::loncommon::confirmwrapper($targetmsg) if $targetmsg;
if (-e $tmpfn) {	if (-e $tmpfn) {
$targetmsg=	$targetmsg=
'<p class="LC_warning">'	'<p class="LC_warning">'
.&mt('You are working with an unsaved version of your map.')	.&mt('You are working with an unsaved version of your map.')
.'</p>';	.'</p>';
my ($errtext,$fatal)=&LONCAPA::map::mapread($tmpfn,'');	my ($errtext,$fatal)=&LONCAPA::map::mapread($tmpfn,'');
}	}
$errtext = '<p class="LC_error">'.$errtext.'</p>' if ($errtext);	$errtext = '<p class="LC_error">'.$errtext.'</p>' if ($errtext);
# ---------------------------------------------------------- Process form input	# ---------------------------------------------------------- Process form input
Line 496 sub smpedt {	Line 492 sub smpedt {
my $editscript=&editscript('simple');	my $editscript=&editscript('simple');

my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'sm' => 'Select Map',	'sm' => 'Select Map',
'sa' => 'Save',	'sa' => 'Save',
'nt' => 'New Title',	'nt' => 'New Title',
'se' => 'Search',	'se' => 'Search',
Line 629 $importwindow	Line 625 $importwindow
</td>	</td>
<td bgcolor="#FFFFAA" align="center">	<td bgcolor="#FFFFAA" align="center">
$lt{'cs'}<br />	$lt{'cs'}<br />
<input type="submit" name="cut" value="<<<" /><p>	<input type="submit" name="cut" value="<<<" />
<hr />	<hr />
$lt{'ps'}<br />	$lt{'ps'}<br />
<input type="submit" name="copy" value="<--" /><p>	<input type="submit" name="copy" value="<--" />
<h /r>	<hr />
$lt{'pas'}<br />	$lt{'pas'}<br />
<input type="submit" name="paste" value="-->" />	<input type="submit" name="paste" value="-->" />
</td>	</td>
Line 755 sub viewmap {	Line 751 sub viewmap {
$r->print('</td><td>');	$r->print('</td><td>');
if ($url) {	if ($url) {
$r->print('<a href="'.$cstrurl.'">'.	$r->print('<a href="'.$cstrurl.'">'.
&mt('Authoring Space').'</a>');	&mt('Authoring space').'</a>');
} else {	} else {
$r->print(' ');	$r->print(' ');
}	}

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

Removed from v.1.105.2.7
changed lines
	Added in v.1.109