--- loncom/interface/lonindexer.pm	2002/03/06 20:28:19	1.35
+++ loncom/interface/lonindexer.pm	2002/03/19 19:55:52	1.39
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Directory Indexer
 #
-# $Id: lonindexer.pm,v 1.35 2002/03/06 20:28:19 matthew Exp $
+# $Id: lonindexer.pm,v 1.39 2002/03/19 19:55:52 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -107,7 +107,8 @@ sub handler {
 
 # -------------------------------------- see if called from an interactive mode
     # 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 $groupimportbutton='';
@@ -163,14 +164,14 @@ END
 	#       selection is made.
 	# $element is the name of the element in $formname which receives
 	#       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_form'   ,\%ENV,'form.form'   );
 	&setvalues(\%hash,'form_element',\%ENV,'form.element');
 
 	my $mode = $ENV{'form.mode'};
 	my ($form,$element);
-	if ($mode eq 'edit') {
+	if ($mode eq 'edit' || $mode eq 'parmset') {
 	    $form    = $ENV{'form.form'};
 	    $element = $ENV{'form.element'};
 	}
@@ -183,7 +184,7 @@ END
 	    # by default (ie. if $mode is undefined).  This is the easy
 	    # way out.  Hopefully in the future I'll find a way to get 
 	    # 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";
 function select_data(title,url) {
     changeTitle(title);
@@ -208,7 +209,7 @@ function changeURL(val) {
     }
 }
 END
-            } else { # we are in 'edit' mode
+            } elsif ($mode eq 'edit') { # we are in 'edit' mode
 		$catalogmodefunctions=<<END;
 // mode = $mode
 function select_data(title,url) {
@@ -229,11 +230,40 @@ function changeURL(val) {
 }
 
 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='';
+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) {
     if (eval("document.forms."+val+".filelink.checked")) {
 	var l=val.length;
@@ -246,9 +276,6 @@ function queue(val) {
 	document.forms.fileattr.acts.value+='0a'+v+'b';
     }
 }
-function rep_dirpath(suffix,val) {
-    eval("document.forms.dirpath"+suffix+".acts.value=val");
-}
 END
 	}