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.108

version 1.105.2.7, 2015/03/11 21:09:04	version 1.108, 2013/06/04 22:20:34
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 233 sub smpedt {	Line 229 sub smpedt {
my ($errtext,$fatal)=	my ($errtext,$fatal)=
&LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$url),'');	&LONCAPA::map::mapread(&Apache::lonnet::filelocation('',$url),'');
unless ($fatal) {	unless ($fatal) {
$targetmsg=&Apache::lonhtmlcommon::confirm_success(&mt('Saved'));	$targetmsg='<b>'.&mt('Saved.').'</b><br />';
} else {	} else {
$targetmsg=&Apache::lonhtmlcommon::confirm_success(	$targetmsg='<b>'.&mt('An error occurred while saving.').'</b><br />';
&mt('An error occurred while saving.'),1);
}	}
}	}
if ($env{'form.revert'}) {	if ($env{'form.revert'}) {
$targetmsg=&Apache::lonhtmlcommon::confirm_success(&mt('Reverted'));	$targetmsg='<b>'.&mt('Reverted.').'</b><br />';
unlink($tmpfn);	unlink($tmpfn);
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);
if (-e $tmpfn) {	if (-e $tmpfn) {
$targetmsg=	$targetmsg=
'<p class="LC_warning">'	'<span class="LC_warning">'.&mt('You are working with an unsaved version of your map.').'</span><br />';
.&mt('You are working with an unsaved version of your map.')	my ($errtext,$fatal)=&LONCAPA::map::mapread($tmpfn,'');
.'</p>';
my ($errtext,$fatal)=&LONCAPA::map::mapread($tmpfn,'');
}	}
$errtext = '<p class="LC_error">'.$errtext.'</p>' if ($errtext);
# ---------------------------------------------------------- Process form input	# ---------------------------------------------------------- Process form input

my @importselect=&Apache::loncommon::get_env_multiple('form.importsel');	my @importselect=&Apache::loncommon::get_env_multiple('form.importsel');
Line 496 sub smpedt {	Line 487 sub smpedt {
my $editscript=&editscript('simple');	my $editscript=&editscript('simple');

my %lt=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'sm' => 'Select Map',
'sa' => 'Save',	'sa' => 'Save',
'nt' => 'New Title',	'nt' => 'New Title',
'se' => 'Search',	'se' => 'Search',
Line 518 sub smpedt {	Line 508 sub smpedt {
'pas' => 'Paste after selected',	'pas' => 'Paste after selected',
'reco' => 'Recover Deleted'	'reco' => 'Recover Deleted'
);	);
my $js=&Apache::lonhtmlcommon::scripttag("	my $js=<<ENDJS;
	<script type="text/javascript">

$editscript	$editscript

function openview(entry) {	function openview(entry) {
Line 550 sub smpedt {	Line 542 sub smpedt {
document.forms.simpleedit.submit();	document.forms.simpleedit.submit();
}	}
}	}
");
	</script>
	ENDJS

&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::lonhtmlcommon::add_breadcrumb({	&Apache::lonhtmlcommon::add_breadcrumb({
Line 575 sub smpedt {	Line 569 sub smpedt {
.&buttons(2));	.&buttons(2));
my $end_page = &Apache::loncommon::end_page();	my $end_page = &Apache::loncommon::end_page();

my $filetext = &mt('File: [_1]','<span class="LC_filename">'.$url.'</span>');
$r->print(<<ENDSMPHEAD);	$r->print(<<ENDSMPHEAD);
$start_page	$start_page
$targetmsg	<span class="LC_error">$errtext</span>
$errtext
<form name="simpleedit" method="post" action="">	<form name="simpleedit" method="post" action="">
<input type="hidden" name="forcesmp" value="1" />	<input type="hidden" name="forcesmp" value="1" />
<input type="hidden" name="renameres" value="0" />	<input type="hidden" name="renameres" value="0" />
Line 588 $errtext	Line 580 $errtext
<table>	<table>
<tr><th width="40%">$lt{'ta'}</th>	<tr><th width="40%">$lt{'ta'}</th>
<th> </th>	<th> </th>
<th width="40%">$filetext</th></tr>	<th width="40%">File: $url</th></tr>
<tr><td bgcolor="#FFFFCC">	<tr><td bgcolor="#FFFFCC">
<input type="button" onclick="javascript:groupsearch()" value="$lt{'se'}" />	<input type="button" onclick="javascript:groupsearch()" value="$lt{'se'}" />
<input type="button" onclick="javascript:groupimport();" value="$lt{'im'}" />	<input type="button" onclick="javascript:groupimport();" value="$lt{'im'}" />
Line 597 $lt{'as'}	Line 589 $lt{'as'}
<input type="text" size="20" name="importmap" />	<input type="text" size="20" name="importmap" />
<input type="button"	<input type="button"
onclick="javascript:openbrowser('simpleedit','importmap','sequence,page','')"	onclick="javascript:openbrowser('simpleedit','importmap','sequence,page','')"
value="$lt{'sm'}" /><input type="submit" name="loadmap" value="$lt{'lm'}" /><hr />	value="Select Map" /><input type="submit" name="loadmap" value="$lt{'lm'}" /><hr />
<input type="submit" name="discard" value="$lt{'ds'}" />	<input type="submit" name="discard" value="$lt{'ds'}" />
<input type="submit" name="clear" value="$lt{'ca'}" />	<input type="submit" name="clear" value="$lt{'ca'}" />
<input type="button" onclick="javascript:viewimport()" value="$lt{'vi'}" />	<input type="button" onclick="javascript:viewimport()" value="$lt{'vi'}" />
Line 617 $lt{'as'}	Line 609 $lt{'as'}
<input type="submit" name="moveup" value="$lt{'mu'}" />	<input type="submit" name="moveup" value="$lt{'mu'}" />
<input type="submit" name="movedown" value="$lt{'md'}" />	<input type="submit" name="movedown" value="$lt{'md'}" />
<input type="button" onclick="javascript:renametarget()" value="$lt{'re'}" />	<input type="button" onclick="javascript:renametarget()" value="$lt{'re'}" />
<hr />	<hr />$targetmsg
<input type="submit" name="revert" value="$lt{'rv'}" />	<input type="submit" name="revert" value="$lt{'rv'}" />
<input type="submit" name="save" value="$lt{'sa'}" />	<input type="submit" name="save" value="$lt{'sa'}" />
<input type="button" onclick="javascript:viewtarget()" value="$lt{'vi'}" />	<input type="button" onclick="javascript:viewtarget()" value="$lt{'vi'}" />
Line 629 $importwindow	Line 621 $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="<<<" /><p>
<hr />	<hr />
$lt{'ps'}<br />	$lt{'ps'}<br />
<input type="submit" name="copy" value="<--" /><p>	<input type="submit" name="copy" value="<--" /><p>
<h /r>	<h /r>
$lt{'pas'}<br />	$lt{'pas'}<br />
<input type="submit" name="paste" value="-->" />	<input type="submit" name="paste" value="-->" />
</td>	</td>
<td bgcolor="#FFFFCC"><select name="target" size="10" multiple="multiple">	<td bgcolor="#FFFFCC"><select name="target" size="10" multiple="multiple">
$targetwindow	$targetwindow
</select>	</select>
</td></tr>
</table>	</table>
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<input type="hidden" name="curimpdetail" value="$importdetail" />	<input type="hidden" name="curimpdetail" value="$importdetail" />
Line 755 sub viewmap {	Line 746 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.108