version 1.49, 2010/03/30 15:01:17
|
version 1.52, 2010/06/08 16:37:20
|
Line 647 sub onload_action {
|
Line 647 sub onload_action {
|
sub print_main_menu { |
sub print_main_menu { |
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_; |
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_; |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my $onchange; |
my $onchange = 'this.form.submit()'; |
unless ($env{'form.interface'} eq 'textual') { |
|
$onchange = 'this.form.submit()'; |
|
} |
|
|
|
my $nextstate_setter = "\n"; |
my $nextstate_setter = "\n"; |
if (ref($states) eq 'HASH') { |
if (ref($states) eq 'HASH') { |
foreach my $key (keys(%{$states})) { |
foreach my $key (keys(%{$states})) { |
Line 700 END
|
Line 696 END
|
official => 'You are not permitted to request creation of an official course in this domain.', |
official => 'You are not permitted to request creation of an official course in this domain.', |
unofficial => 'You are not permitted to request creation of an unofficial course in this domain.', |
unofficial => 'You are not permitted to request creation of an unofficial course in this domain.', |
community => 'You are not permitted to request creation of a community this domain.', |
community => 'You are not permitted to request creation of a community this domain.', |
all => 'You must choose a specific course type when making a new course request.\\nAll types is not allowed.', |
all => 'You must choose a specific course type when making a new course request.\\n\"All types\" is not allowed.', |
); |
); |
$js .= <<END; |
$js .= <<END; |
if (crschoice == 'official') { |
if (crschoice == 'official') { |
Line 2314 sub reqstatus_names {
|
Line 2310 sub reqstatus_names {
|
my @statuses = qw(created approval pending rejected cancelled); |
my @statuses = qw(created approval pending rejected cancelled); |
my %statusnames = |
my %statusnames = |
&Apache::lonlocal::texthash ( |
&Apache::lonlocal::texthash ( |
created => 'Course/Community created', |
created => 'Created', |
approval => 'Queued pending approval', |
approval => 'Queued pending approval', |
pending => 'Queued pending validation', |
pending => 'Queued pending validation', |
rejected => 'Request rejected', |
rejected => 'Request rejected', |