--- loncom/interface/lonuserutils.pm	2010/11/29 04:40:12	1.109.2.11
+++ loncom/interface/lonuserutils.pm	2010/12/05 17:28:10	1.109.2.12
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.109.2.11 2010/11/29 04:40:12 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.109.2.12 2010/12/05 17:28:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -914,7 +914,7 @@ sub print_upload_manager_footer {
     }
     $Str .= &set_login($defdom,$krbform,$intform,$locform);
     if ($env{'form.context'} eq 'requestcrs') {
-        $Str .= '<input type="hidden" name="defaultdomain" value="gcitest" />';
+        $Str .= '<input type="hidden" name="defaultdomain" value="'.$defdom.'" />';
     }
     my ($home_server_pick,$numlib) =
         &Apache::loncommon::home_server_form_item($defdom,'lcserver',
@@ -2710,7 +2710,8 @@ END
                                    );
             my $navmap = Apache::lonnavmaps::navmap->new();
             if (defined($navmap)) {
-                my @allres=$navmap->retrieveResources('/uploaded/'.$cdom.'/'.$cnum.'/default_1261144274.sequence',sub { $_[0]->is_problem() },0);
+                my $sequence = &Apache::loncommon::get_citest_map($cdom);
+                my @allres=$navmap->retrieveResources('/uploaded/'.$cdom.'/'.$cnum.'/'.$sequence,sub { $_[0]->is_problem() },0);
                 foreach my $resource (@allres) {
                     my @parts = $resource->parts();
                     my $count = scalar(@parts);