--- loncom/interface/groupsort.pm	2002/05/09 23:07:36	1.9
+++ loncom/interface/groupsort.pm	2002/05/13 16:00:53	1.10
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.9 2002/05/09 23:07:36 www Exp $
+# $Id: groupsort.pm,v 1.10 2002/05/13 16:00:53 www Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -63,7 +63,14 @@ sub handler {
     if ($ENV{'form.mode'} eq 'simple') {
         $finishimport=(<<ENDSMP);
 function finish_import() {
-    alert("Finishing a simple import");
+    opener.document.forms.simpleedit.importdetail.value='';
+    for (var num=0; num<document.forms.groupsort.fnum.value; num++) {
+	opener.document.forms.simpleedit.importdetail.value+='&'+
+              escape(eval("document.forms.groupsort.title"+num+".value"))+'='+
+	      escape(eval("document.forms.groupsort.filelink"+num+".value"));
+    }
+    opener.document.forms.simpleedit.submit();
+    self.close();
 }
 ENDSMP
     } else {