loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);