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

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

version 1.35, 2002/03/06 20:28:19 version 1.39, 2002/03/19 19:55:52
Line 107  sub handler { Line 107  sub handler {
   
 # -------------------------------------- see if called from an interactive mode  # -------------------------------------- see if called from an interactive mode
     # Get the parameters from the query string      # Get the parameters from the query string
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
        ['catalogmode','launch','acts','mode','form','element']);
     #-------------------------------------------------------------------      #-------------------------------------------------------------------
     my $closebutton='';      my $closebutton='';
     my $groupimportbutton='';      my $groupimportbutton='';
Line 163  END Line 164  END
  #       selection is made.   #       selection is made.
  # $element is the name of the element in $formname which receives   # $element is the name of the element in $formname which receives
  #       the URL.   #       the URL.
  &Apache::lonxml::debug('Checking mode, form, element');   # &Apache::lonxml::debug('Checking mode, form, element');
  &setvalues(\%hash,'form_mode'   ,\%ENV,'form.mode'   );   &setvalues(\%hash,'form_mode'   ,\%ENV,'form.mode'   );
  &setvalues(\%hash,'form_form'   ,\%ENV,'form.form'   );   &setvalues(\%hash,'form_form'   ,\%ENV,'form.form'   );
  &setvalues(\%hash,'form_element',\%ENV,'form.element');   &setvalues(\%hash,'form_element',\%ENV,'form.element');
   
  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 183  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 208  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 229  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
               }
         }          }
  if ($ENV{'form.catalogmode'} eq 'groupimport') {          $catalogmodefunctions.=<<END;
     $catalogmodefunctions.=<<END;  
 var acts='';  var acts='';
   function rep_dirpath(suffix,val) {
       eval("document.forms.dirpath"+suffix+".acts.value=val");
   }
   END
    if ($ENV{'form.catalogmode'} eq 'groupimport') {
               $catalogmodefunctions.=<<END;
 function queue(val) {  function queue(val) {
     if (eval("document.forms."+val+".filelink.checked")) {      if (eval("document.forms."+val+".filelink.checked")) {
  var l=val.length;   var l=val.length;
Line 246  function queue(val) { Line 276  function queue(val) {
  document.forms.fileattr.acts.value+='0a'+v+'b';   document.forms.fileattr.acts.value+='0a'+v+'b';
     }      }
 }  }
 function rep_dirpath(suffix,val) {  
     eval("document.forms.dirpath"+suffix+".acts.value=val");  
 }  
 END  END
  }   }
   
Removed from v.1.35  
changed lines
  Added in v.1.39

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