loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.53, 2010/06/20 01:39:08	version 1.54.2.1, 2010/07/30 23:51:41
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 = 'this.form.submit()';	my $onchange;
	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 856 END	Line 860 END
}	}
if ($action eq 'new') {	if ($action eq 'new') {
my $jsextra;	my $jsextra;
if ($state eq 'courseinfo') {	if (($state eq 'courseinfo') \|\| ($state eq 'codepick')) {
$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom);	$jsextra = "\n".&Apache::loncommon::coursebrowser_javascript($dom);
} elsif ($state eq 'enrollment') {	} elsif ($state eq 'enrollment') {
if (($env{'form.crstype'} eq 'official') &&	if (($env{'form.crstype'} eq 'official') &&