--- loncom/interface/groupsort.pm	2010/08/24 09:11:37	1.67
+++ loncom/interface/groupsort.pm	2011/07/04 09:24:58	1.68
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.67 2010/08/24 09:11:37 wenzelju Exp $
+# $Id: groupsort.pm,v 1.68 2011/07/04 09:24:58 foxr Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -86,8 +86,8 @@ sub update_actions_hash {
 sub readfromdb {
     my ($r,$resources)=@_;
 
-    my $diropendb = 
-       "/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_sel_res.db";
+    my $diropendb = LONCAPA::tempdir() .
+       "$env{'user.domain'}_$env{'user.name'}_sel_res.db";
 
 # ----------------------------- diropendb is now the filename of the db to open
     if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {