[LON-CAPA-cvs] cvs: loncom /interface groupsort.pm

www lon-capa-cvs@mail.lon-capa.org
Fri, 24 May 2002 16:04:54 -0000


www		Fri May 24 12:04:54 2002 EDT

  Modified files:              
    /loncom/interface	groupsort.pm 
  Log:
  Appears to be working now also for import from map.
  
  
Index: loncom/interface/groupsort.pm
diff -u loncom/interface/groupsort.pm:1.11 loncom/interface/groupsort.pm:1.12
--- loncom/interface/groupsort.pm:1.11	Fri May 24 09:53:43 2002
+++ loncom/interface/groupsort.pm	Fri May 24 12:04:54 2002
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.11 2002/05/24 13:53:43 www Exp $
+# $Id: groupsort.pm,v 1.12 2002/05/24 16:04:54 www Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -184,7 +184,7 @@
 # Okay, find most recent existing
 
         my $newest=0;
-        my $diropendb='';
+        $diropendb='';
         for (my $i=0; $i<=$#dbfn; $i++) {
 	    if ($dbst[$i]>$newest) {
 		$newest=$dbst[$i];
@@ -284,7 +284,7 @@
     untie %hash;
     my $ctr = 0;
     my $clen = scalar(keys %shash);
-    $r->print('<h2><font color="#888888">The LearningOnline With CAPA '.
+   $r->print('<h2><font color="#888888">The LearningOnline Network With CAPA '.
 	      'Group Sorter</font></h2>'."\n");
     $r->print('<b><font color="#888888">Finalize order of resources</font>'.
 	      '</b>'."\n");