--- rat/lonratedt.pm 2004/04/24 15:37:30 1.56
+++ 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.56 2004/04/24 15:37:30 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); }
@@ -558,8 +560,23 @@ sub storeparameter {
$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 ($to,$name)=@_;
my $value=undef;
my $ptype=undef;
foreach (split('&&&',$resparms[$to])) {
@@ -689,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),'');
@@ -956,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',
@@ -1115,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.'
');
@@ -1129,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] };
@@ -1139,7 +1159,7 @@ sub viewmap {
}
$r->print(&Apache::lonratsrv::qtescape($title));
if ($url) { $r->print(''); }
- $r->print('
');
+ $r->print("
\n");
}
}
$r->print('