loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.42, 2006/04/10 21:40:09	version 1.43, 2006/05/08 21:40:20
Line 96 sub handler {	Line 96 sub handler {
['-1','86400','604800','2592000','7776000',	['-1','86400','604800','2592000','7776000',
'15552000','31104000']));	'15552000','31104000']));
# if called from loncreateuser, report sections, then close	# if called from loncreateuser, report sections, then close
my (%loaditem,$seclist);	my (%loaditem,$seclist,$groupslist);
my $num_sections = 0;	my $num_sections = 0;
if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {	if ($env{'form.form'} eq 'cu' && $env{'form.pickedcourse'}) {
$loaditem{'onload'} ="setSections()";	$loaditem{'onload'} ="setSections()";
Line 108 sub handler {	Line 108 sub handler {
@sections = (sort {$a <=> $b} keys(%sections_count));	@sections = (sort {$a <=> $b} keys(%sections_count));
$seclist = join('","',@sections);	$seclist = join('","',@sections);
}	}
	my (%curr_groups,$numgroups);
	$numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,
	$cnum);
	if ($numgroups > 0) {
	$groupslist = join(',',sort(keys(%curr_groups)));
	}
}	}
my $jscript;	my $jscript;
my $title = 'Selecting a course';	my $title = 'Selecting a course';
Line 236 function setSections() {	Line 242 function setSections() {
opener.document.$env{"form.form"}.currsec.options[0].selected = false	opener.document.$env{"form.form"}.currsec.options[0].selected = false
}	}
}	}
	opener.document.$env{"form.form"}.groups.value='$groupslist';
self.close()	self.close()
}	}