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

Diff for /rat/lonratedt.pm between versions 1.70 and 1.74

version 1.70, 2005/06/08 17:42:01 version 1.74, 2005/06/10 21:45:46
Line 33  package Apache::lonratedt; Line 33  package Apache::lonratedt;
   
 =head1 NAME  =head1 NAME
   
 Apache::lonratedt: advanced resource assembly tool  Apache::lonratedt: simple resource assembly tool
   
 =head1 SYNOPSIS  =head1 SYNOPSIS
   
Line 462  sub getresidx { Line 462  sub getresidx {
     return $max;      return $max;
 }  }
   
   # --------------------------------------------------------------- Make a zombie
   
   sub makezombie {
       my $idx=shift;
       my ($name,$url,$ext)=split(/\:/,$resources[$idx]);
       my $now=time;
       $zombies[$idx]=$name.
    ' [('.$now.','.$env{'user.name'}.','.$env{'user.domain'}.')]:'.
    $url.':'.$ext.':zombie';
   }
   
 # ----------------------------------------------------------- Paste into target  # ----------------------------------------------------------- Paste into target
 # modifies @order, @resources  # modifies @order, @resources
   
Line 678  function idxopen(mode) { Line 689  function idxopen(mode) {
    idx.focus();     idx.focus();
 }  }
   
   // ------------------------------------------------------ Open groupsort window
   function groupopen(url,recover) {
      var options="scrollbars=1,resizable=1,menubar=0";
      idxflag=1;
      idx=open("/adm/groupsort?mode=$mode&recover="+recover+"&readfile="+url,"idxout",options);
      idx.focus();
   }
   
 // --------------------------------------------------------- Open search window  // --------------------------------------------------------- Open search window
 function srchopen(mode) {  function srchopen(mode) {
    var options="scrollbars=1,resizable=1,menubar=0";     var options="scrollbars=1,resizable=1,menubar=0";
Line 694  function groupsearch() { Line 713  function groupsearch() {
 function groupimport() {  function groupimport() {
    idxcheck('groupimport');     idxcheck('groupimport');
 }  }
   
 // ------------------------------------------------------- Do srch status check  // ------------------------------------------------------- Do srch status check
 function srchcheck(mode) {  function srchcheck(mode) {
    if (!srch || srch.closed || srchmode!=mode) {     if (!srch || srch.closed || srchmode!=mode) {
Line 913  sub smpedt { Line 933  sub smpedt {
                foreach (@targetselect) {                 foreach (@targetselect) {
    if ($_-1==$i) { $include=0; }     if ($_-1==$i) { $include=0; }
                }                 }
                if ($include) { $neworder[$#neworder+1]=$order[$i]; }                 if ($include) { 
      $neworder[$#neworder+1]=$order[$i]; 
          } else {
      &makezombie($order[$i]);
          }
            }             }
            @order=@neworder;             @order=@neworder;
            &storemap(&Apache::lonnet::filelocation('',$url));                   &storemap(&Apache::lonnet::filelocation('',$url));      
Line 1020  sub smpedt { Line 1044  sub smpedt {
                                       'cs' => 'Cut selected',                                        'cs' => 'Cut selected',
                                       'ps' => 'Copy selected',                                        'ps' => 'Copy selected',
                                       'pas' => 'Paste after selected',                                        'pas' => 'Paste after selected',
                                         'reco' => 'Recover Deleted'
       );        );
    $r->print(<<ENDSMPHEAD);     $r->print(<<ENDSMPHEAD);
 <html>  <html>
Line 1099  value="Select Map"><input type=submit na Line 1124  value="Select Map"><input type=submit na
 "javascript:impfortarget.value=1;groupsearch()" value="$lt{'se'}">  "javascript:impfortarget.value=1;groupsearch()" value="$lt{'se'}">
 <input type=button onClick=  <input type=button onClick=
 "javascript:impfortarget.value=1;groupimport();" value="$lt{'im'}">  "javascript:impfortarget.value=1;groupimport();" value="$lt{'im'}">
   <input type=button onClick=
   "javascript:impfortarget.value=1;javascript:groupopen('$url',1);" value="$lt{'reco'}">
 $lt{'as'}  $lt{'as'}
 <hr>  <hr>
 <input type=submit name="moveup" value="$lt{'mu'}">  <input type=submit name="moveup" value="$lt{'mu'}">
Removed from v.1.70  
changed lines
  Added in v.1.74

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