version 1.109.2.11, 2010/11/29 04:40:12
|
version 1.109.2.12, 2010/12/05 17:28:10
|
Line 914 sub print_upload_manager_footer {
|
Line 914 sub print_upload_manager_footer {
|
} |
} |
$Str .= &set_login($defdom,$krbform,$intform,$locform); |
$Str .= &set_login($defdom,$krbform,$intform,$locform); |
if ($env{'form.context'} eq 'requestcrs') { |
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) = |
my ($home_server_pick,$numlib) = |
&Apache::loncommon::home_server_form_item($defdom,'lcserver', |
&Apache::loncommon::home_server_form_item($defdom,'lcserver', |
Line 2710 END
|
Line 2710 END
|
); |
); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
if (defined($navmap)) { |
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) { |
foreach my $resource (@allres) { |
my @parts = $resource->parts(); |
my @parts = $resource->parts(); |
my $count = scalar(@parts); |
my $count = scalar(@parts); |