--- rat/lonratedt.pm 2004/04/26 16:56:26 1.57
+++ rat/lonratedt.pm 2004/11/17 19:59:29 1.62
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Edit Handler for RAT Maps
#
-# $Id: lonratedt.pm,v 1.57 2004/04/26 16:56:26 www Exp $
+# $Id: lonratedt.pm,v 1.62 2004/11/17 19:59:29 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -187,8 +187,10 @@ sub mapread {
undef @links;
undef @resources;
undef @order;
+ undef @resparms;
@resources=('');
@order=();
+ @resparms=();
my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');
if ($errtext) { return ($errtext,2); }
@@ -574,7 +576,7 @@ sub delparameter {
}
sub getparameter {
- my ($to,$name);
+ my ($to,$name)=@_;
my $value=undef;
my $ptype=undef;
foreach (split('&&&',$resparms[$to])) {
@@ -704,14 +706,18 @@ sub smpedt {
my $tmpfn=&Apache::lonnet::filelocation('',$url).'.tmp';
my $targetmsg='';
if ($ENV{'form.save'}) {
- $targetmsg='Saving ...
';
copy($tmpfn,&Apache::lonnet::filelocation('',$url));
unlink($tmpfn);
my ($errtext,$fatal)=
&mapread(&Apache::lonnet::filelocation('',$url),'');
+ unless ($fatal) {
+ $targetmsg=''.&mt('Saved.').'
';
+ } else {
+ $targetmsg=''.&mt('An error occured while saving.').'
';
+ }
}
if ($ENV{'form.revert'}) {
- $targetmsg='Reverting ...
';
+ $targetmsg=''.&mt('Reverted.').'
';
unlink($tmpfn);
my ($errtext,$fatal)=
&mapread(&Apache::lonnet::filelocation('',$url),'');
@@ -971,10 +977,9 @@ sub smpedt {
# ----------------------------------------------------- Start simple RAT screen
my $editscript=&editscript('simple');
- my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1).
- &Apache::loncommon::help_open_topic('Sequence_Simple_Editor_Creation').
- &Apache::loncommon::help_open_faq(6).
- &Apache::loncommon::help_open_bug('RAT');
+ my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,
+ ($ENV{'environment.remote'} ne 'off')).
+ &Apache::loncommon::help_open_menu('','Sequence_Simple_Editor_Creation','Sequence_Simple_Editor_Creation','',6,'RAT');
my %lt=&Apache::lonlocal::texthash(
'sa' => 'Save',
'nt' => 'New Title',
@@ -1130,8 +1135,7 @@ sub viewmap {
my ($r,$url,$adv,$errtext)=@_;
$r->print(''.
&Apache::loncommon::bodytag('Edit Content of a Map').
- &Apache::loncommon::help_open_faq(6).
- &Apache::loncommon::help_open_bug('RAT').
+ &Apache::loncommon::help_open_menu('','','','',6,'RAT').
&buttons($adv));
if ($errtext) {
$r->print($errtext.'
');
@@ -1144,7 +1148,8 @@ sub viewmap {
foreach (&attemptread(&Apache::lonnet::filelocation('',$url))) {
if (defined($_)) {
$idx++;
- my ($title,$url)=split(/\:/,$_);
+ my ($title,$url,$cond)=split(/\:/,$_);
+ if ($cond eq 'cond') { next; }
$title=~s/\&colon\;/\:/g;
$url=~s/\&colon\;/\:/g;
unless ($title) { $title=(split(/\//,$url))[-1] };
@@ -1154,7 +1159,7 @@ sub viewmap {
}
$r->print(&Apache::lonratsrv::qtescape($title));
if ($url) { $r->print(''); }
- $r->print('
');
+ $r->print("
\n");
}
}
$r->print('