[LON-CAPA-cvs] cvs: loncom /interface groupsort.pm
www
lon-capa-cvs@mail.lon-capa.org
Mon, 13 May 2002 16:00:53 -0000
www Mon May 13 12:00:53 2002 EDT
Modified files:
/loncom/interface groupsort.pm
Log:
Now does import for Simple RAT
Index: loncom/interface/groupsort.pm
diff -u loncom/interface/groupsort.pm:1.9 loncom/interface/groupsort.pm:1.10
--- loncom/interface/groupsort.pm:1.9 Thu May 9 19:07:36 2002
+++ loncom/interface/groupsort.pm Mon May 13 12:00:53 2002
@@ -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 @@
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 {