[BACK]Return to lonratedt.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonratedt.pm between versions 1.57 and 1.59

version 1.57, 2004/04/26 16:56:26 version 1.59, 2004/07/04 05:43:12
Line 187  sub mapread { Line 187  sub mapread {
     undef @links;      undef @links;
     undef @resources;      undef @resources;
     undef @order;      undef @order;
       undef @resparms;
     @resources=('');      @resources=('');
     @order=();      @order=();
       @resparms=();
   
     my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');      my ($outtext,$errtext)=&Apache::lonratsrv::loadmap($fn,'');
     if ($errtext) { return ($errtext,2); }      if ($errtext) { return ($errtext,2); }
Line 574  sub delparameter { Line 576  sub delparameter {
 }  }
   
 sub getparameter {  sub getparameter {
     my ($to,$name);      my ($to,$name)=@_;
     my $value=undef;      my $value=undef;
     my $ptype=undef;      my $ptype=undef;
     foreach (split('&&&',$resparms[$to])) {      foreach (split('&&&',$resparms[$to])) {
Line 972  sub smpedt { Line 974  sub smpedt {
 # ----------------------------------------------------- Start simple RAT screen  # ----------------------------------------------------- Start simple RAT screen
    my $editscript=&editscript('simple');     my $editscript=&editscript('simple');
    my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1).     my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef,1).
        &Apache::loncommon::help_open_topic('Sequence_Simple_Editor_Creation').         &Apache::loncommon::help_open_menu('','Sequence_Simple_Editor_Creation','Sequence_Simple_Editor_Creation','',6,'RAT');
        &Apache::loncommon::help_open_faq(6).  
        &Apache::loncommon::help_open_bug('RAT');  
    my %lt=&Apache::lonlocal::texthash(     my %lt=&Apache::lonlocal::texthash(
       'sa' => 'Save',        'sa' => 'Save',
       'nt' => 'New Title',        'nt' => 'New Title',
Line 1130  sub viewmap { Line 1130  sub viewmap {
     my ($r,$url,$adv,$errtext)=@_;      my ($r,$url,$adv,$errtext)=@_;
     $r->print('<html>'.      $r->print('<html>'.
      &Apache::loncommon::bodytag('Edit Content of a Map').       &Apache::loncommon::bodytag('Edit Content of a Map').
       &Apache::loncommon::help_open_faq(6).        &Apache::loncommon::help_open_menu('','','','',6,'RAT').
       &Apache::loncommon::help_open_bug('RAT').  
       &buttons($adv));        &buttons($adv));
     if ($errtext) {      if ($errtext) {
  $r->print($errtext.'<hr />');   $r->print($errtext.'<hr />');
Removed from v.1.57  
changed lines
  Added in v.1.59

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