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

Diff for /rat/lonratedt.pm between versions 1.13 and 1.14

version 1.13, 2002/05/13 19:23:52 version 1.14, 2002/05/13 19:38:32
Line 189  sub smpedt { Line 189  sub smpedt {
    }     }
 # ============================================================ Process commands  # ============================================================ Process commands
   
    my $targetdetail='';     my $targetdetail=$ENV{'form.targetdetail'};
    my $importdetail='';     my $importdetail=$ENV{'form.curimpdetail'};
   
 # ---------------------------------------------------- Importing from groupsort  # ---------------------------------------------------- Importing from groupsort
    if ($ENV{'form.importdetail'}) {     if ($ENV{'form.importdetail'}) {
   
          $importdetail='';
        my @curimport=split(/\&/,$ENV{'form.curimpdetail'});         my @curimport=split(/\&/,$ENV{'form.curimpdetail'});
   
        my $lastsel;         my $lastsel;
Line 225  sub smpedt { Line 226  sub smpedt {
        $importdetail=~s/\&+/\&/g;         $importdetail=~s/\&+/\&/g;
        $importdetail=~s/^\&//;         $importdetail=~s/^\&//;
   
 # --------------------------------------------------------  # ------------------------------------------------------------------- Clear all
      } elsif ($ENV{'form.clear'}) {
          $importdetail='';
   # ------------------------------------------------------------ Discard selected
      } elsif ($ENV{'form.discard'}) {
          $importdetail='';
          my @curimport=split(/\&/,$ENV{'form.curimpdetail'});
          foreach (@importselect) {
      $curimport[$_]='';
          }
          for (my $i=0;$i<=$#curimport;$i++) {
              my ($name,$url)=split(/\=/,$curimport[$i]);
              if ($url) {
                 $importdetail.='&'.&Apache::lonnet::escape($name).'='.
            &Apache::lonnet::escape($url);
      }
          }
   # ---------------------------
    }     }
   
 # ------------------------------------------------------------ Assemble windows  # ------------------------------------------------------------ Assemble windows
Line 348  $buttons Line 366  $buttons
 <tr><td bgcolor="#FFFFCC">  <tr><td bgcolor="#FFFFCC">
 <input type=button onClick="javascript:groupsearch()" value="Group Search">  <input type=button onClick="javascript:groupsearch()" value="Group Search">
 <input type=button onClick="javascript:groupimport();" value="Group Import">  <input type=button onClick="javascript:groupimport();" value="Group Import">
   <br>after selected
   <hr>
   <input type=submit name="discard" value="Discard Selected">
   <input type=submit name="clear" value="Clear All">
 <input type=button onClick="javascript:viewimport()" value="View">  <input type=button onClick="javascript:viewimport()" value="View">
     </td><td>&nbsp;</td><td bgcolor="#FFFFCC">      </td><td>&nbsp;</td><td bgcolor="#FFFFCC">
 <input type=button onClick="javascript:viewtarget()" value="View">  <input type=button onClick="javascript:viewtarget()" value="View">
Removed from v.1.13  
changed lines
  Added in v.1.14

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