loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.54.2.1, 2010/07/30 23:51:41	version 1.55, 2010/08/10 17:16:05
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 3593 sub retrieve_settings {	Line 3589 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 '')) {