loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpickcourse.pm between versions 1.112 and 1.115

version 1.112, 2014/03/17 02:45:25	version 1.115, 2014/05/30 01:50:05
Line 105 sub handler {	Line 105 sub handler {

if ((($env{'form.form'} eq 'cu') \|\| ($env{'form.form'} eq 'studentform')) &&	if ((($env{'form.form'} eq 'cu') \|\| ($env{'form.form'} eq 'studentform')) &&
($env{'form.pickedcourse'})) {	($env{'form.pickedcourse'})) {
$loaditem{'onload'} .= 'setDefaultCredits();setRoles();setSections();';	if ($type ne 'Community') {
	my %coursedescription =
	&Apache::lonnet::coursedescription($env{'form.pickedcourse'},
	{'one_time' => '1'});
	my $cdom = $coursedescription{'domain'};
	my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
	if (($domdefs{'officialcredits'} \|\| $domdefs{'unofficialcredits'} \|\| $domdefs{'textbookcredits'})) {
	$loaditem{'onload'} .= 'setDefaultCredits();';
	}
	}
	$loaditem{'onload'} .= 'setRoles();setSections();';
	}
	if ((($env{'form.gosearch'}) && ($env{'form.updater'} eq '')) && (!$onlyown)) {
	$loaditem{'onload'} .= 'hideSearching(); ';
}	}
my $js = &Apache::loncommon::js_changer();	my $js = &Apache::loncommon::js_changer();
$r->print(&Apache::loncommon::start_page($title,$js,	$r->print(&Apache::loncommon::start_page($title,$js,
Line 627 sub course_chooser {	Line 640 sub course_chooser {
$output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";	$output = '<label><input type="checkbox" name="course_id" value="'.$cdom.'_'.$cnum.'" />'."\n";
} elsif ((($env{'form.form'} eq 'ccrs') \|\| ($env{'form.form'} eq 'requestcrs')) && (!$canclone)) {	} elsif ((($env{'form.form'} eq 'ccrs') \|\| ($env{'form.form'} eq 'requestcrs')) && (!$canclone)) {
if ($env{'form.form'} eq 'ccrs') {	if ($env{'form.form'} eq 'ccrs') {
$output = &mt('No cloning for ').$env{'form.cloner'}."\n";	$output = &mt('No cloning for [_1]',$env{'form.cloner'})."\n";
} else {	} else {
$output = &mt('No rights to clone')."\n";	$output = &mt('No rights to clone')."\n";
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.112
changed lines
	Added in v.1.115