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

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 21 Jul 2006 08:29:47 -0000


albertel		Fri Jul 21 04:29:47 2006 EDT

  Modified files:              
    /loncom/interface	groupsort.pm 
  Log:
  - revert 1.45 (see bug#4931)
  
  
Index: loncom/interface/groupsort.pm
diff -u loncom/interface/groupsort.pm:1.45 loncom/interface/groupsort.pm:1.46
--- loncom/interface/groupsort.pm:1.45	Thu Jul 20 20:21:28 2006
+++ loncom/interface/groupsort.pm	Fri Jul 21 04:29:47 2006
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.45 2006/07/21 00:21:28 www Exp $
+# $Id: groupsort.pm,v 1.46 2006/07/21 08:29:47 albertel Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -211,14 +211,6 @@
     return ($shash,$thash);
 }
 
-# ---------------------------------------------------------- Clear the database
-
-sub clear_basket {
-    my $diropendb =
-       "/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_sel_res.db";
-    unlink ($diropendb);
-}                                                                                                         
-
 # ---------------------------------------------------------------- Main Handler
 sub handler {
     my $r = shift;