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(' '); |
} |
} |