--- loncom/interface/groupsort.pm	2006/07/21 00:21:28	1.45
+++ loncom/interface/groupsort.pm	2006/07/21 08:29:47	1.46
@@ -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 @@ sub readfrombookmarks {
     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;