[BACK]Return to lonindexer.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.38 and 1.39

version 1.38, 2002/03/14 21:37:04 version 1.39, 2002/03/19 19:55:52
Line 171  END Line 171  END
   
  my $mode = $ENV{'form.mode'};   my $mode = $ENV{'form.mode'};
  my ($form,$element);   my ($form,$element);
  if ($mode eq 'edit') {   if ($mode eq 'edit' || $mode eq 'parmset') {
     $form    = $ENV{'form.form'};      $form    = $ENV{'form.form'};
     $element = $ENV{'form.element'};      $element = $ENV{'form.element'};
  }   }
Line 184  END Line 184  END
     # by default (ie. if $mode is undefined).  This is the easy      # by default (ie. if $mode is undefined).  This is the easy
     # way out.  Hopefully in the future I'll find a way to get       # way out.  Hopefully in the future I'll find a way to get 
     # the calls dealt with in a more comprehensive manner.      # the calls dealt with in a more comprehensive manner.
     if (!defined($mode) || $mode ne 'edit') {      if (!defined($mode) || ($mode ne 'edit' && $mode ne 'parmset')) {
  $catalogmodefunctions=<<"END";   $catalogmodefunctions=<<"END";
 function select_data(title,url) {  function select_data(title,url) {
     changeTitle(title);      changeTitle(title);
Line 209  function changeURL(val) { Line 209  function changeURL(val) {
     }      }
 }  }
 END  END
             } else { # we are in 'edit' mode              } elsif ($mode eq 'edit') { # we are in 'edit' mode
  $catalogmodefunctions=<<END;   $catalogmodefunctions=<<END;
 // mode = $mode  // mode = $mode
 function select_data(title,url) {  function select_data(title,url) {
Line 230  function changeURL(val) { Line 230  function changeURL(val) {
 }  }
   
 END  END
              }              } elsif ($mode eq 'parmset') {
    $catalogmodefunctions=<<END;
   // mode = $mode
   function select_data(title,url) {
       changeURL(url);
       self.close();
   }
   
   function select_group() {
       window.location="/adm/groupsort?catalogmode=interactive&form=$form&element=$element&mode=parmset&acts="+document.forms.fileattr.acts.value;
   }
   
   function changeURL(val) {
       if (window.opener.document) {
           var elementname  = "$element"+"_value";
           var checkboxname = "$element"+"_setparmval";
    window.opener.document.forms["$form"].elements[elementname].value=val;
           window.opener.document.forms["$form"].elements[checkboxname].checked=true;
       } else {
       alert("The file you selected is: "+val);
       }
   }
   
   END
               }
         }          }
         $catalogmodefunctions.=<<END;          $catalogmodefunctions.=<<END;
 var acts='';  var acts='';
Removed from v.1.38  
changed lines
  Added in v.1.39

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