--- rat/lonsequence.pm	2010/02/23 05:00:16	1.40
+++ rat/lonsequence.pm	2011/07/04 09:25:17	1.41
@@ -2,7 +2,7 @@
 #
 # Sequence Handler
 #
-# $Id: lonsequence.pm,v 1.40 2010/02/23 05:00:16 raeburn Exp $
+# $Id: lonsequence.pm,v 1.41 2011/07/04 09:25:17 foxr Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,6 +36,7 @@ use Apache::lonnet;
 use Apache::Constants qw(:common :http REDIRECT);
 use GDBM_File;
 use LONCAPA::map();
+use LONCAPA;
 use Apache::lonpageflip();
 use Apache::loncommon();
 use Apache::groupsort();
@@ -109,7 +110,8 @@ onClick="javascript:select_group()" />
 </form>   
 ENDSELECT
     my $diropendb = 
-    "/home/httpd/perl/tmp/$env{'user.domain'}\_$env{'user.name'}_sel_res.db";
+  LONCAPA::tempdir() .
+    "$env{'user.domain'}\_$env{'user.name'}_sel_res.db";
         if (tie(%selhash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {
 	    if ($env{'form.launch'} eq '1') {
 	       &start_fresh_session();