[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.38

version 1.35, 2002/03/06 20:28:19 version 1.38, 2002/03/14 21:37:04
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');
Line 231  function changeURL(val) { Line 232  function changeURL(val) {
 END  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 252  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.38

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