loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.54, 2010/07/07 17:27:41	version 1.54.2.2, 2010/08/10 17:20:02
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 3589 sub retrieve_settings {	Line 3593 sub retrieve_settings {
}	}
$env{'form.clonecrs'} = $reqinfo{'clonecrs'};	$env{'form.clonecrs'} = $reqinfo{'clonecrs'};
$env{'form.clonedom'} = $reqinfo{'clonedom'};	$env{'form.clonedom'} = $reqinfo{'clonedom'};
	if (($reqinfo{'clonecrs'} ne '') && ($reqinfo{'clonedom'} ne '')) {
	$env{'form.cloning'} = 1;
	}
$env{'form.datemode'} = $reqinfo{'datemode'};	$env{'form.datemode'} = $reqinfo{'datemode'};
$env{'form.dateshift'} = $reqinfo{'dateshift'};	$env{'form.dateshift'} = $reqinfo{'dateshift'};
if (($reqinfo{'crstype'} eq 'official') && ($reqinfo{'instcode'} ne '')) {	if (($reqinfo{'crstype'} eq 'official') && ($reqinfo{'instcode'} ne '')) {