version 1.109.2.9, 2010/11/15 17:37:47
|
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 1223 sub setup_date_selectors {
|
Line 1223 sub setup_date_selectors {
|
|
|
|
|
sub get_dates_from_form { |
sub get_dates_from_form { |
my ($startname,$endname) = @_; |
my ($startname,$endname,$timezone) = @_; |
if ($startname eq '') { |
if ($startname eq '') { |
$startname = 'startdate'; |
$startname = 'startdate'; |
} |
} |
if ($endname eq '') { |
if ($endname eq '') { |
$endname = 'enddate'; |
$endname = 'enddate'; |
} |
} |
my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname); |
my $startdate = &Apache::lonhtmlcommon::get_date_from_form($startname,$timezone); |
my $enddate = &Apache::lonhtmlcommon::get_date_from_form($endname); |
my $enddate = &Apache::lonhtmlcommon::get_date_from_form($endname,$timezone); |
if ($env{'form.no_end_date'}) { |
if ($env{'form.no_end_date'}) { |
$enddate = 0; |
$enddate = 0; |
} |
} |
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); |
Line 4401 sub upfile_drop_add {
|
Line 4402 sub upfile_drop_add {
|
} |
} |
} |
} |
if (!$cancreate{$usertype}) { |
if (!$cancreate{$usertype}) { |
$r->print('<br />'. |
my $showtype = $longtypes{$usertype}; |
&mt("[_1]: The user does not exist, and you are not permitted to create users of type: $longtypes{$usertype}.",'<b>'.$username.'</b>')); |
if ($usertype eq 'unofficial') { |
|
$r->print('<br />'. |
|
&mt("[_1]: The user does not exist, and the new user's username must be an e-mail address.",'<b>'.$username.'</b>')); |
|
} else { |
|
$r->print('<br />'. |
|
&mt("[_1]: The user does not exist, and you are not permitted to create users of type: [_2].",'<b>'.$username.'</b>',$showtype)); |
|
} |
next; |
next; |
} |
} |
} else { |
} else { |