loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.60.2.2, 2006/12/11 22:22:06	version 1.63.2.1, 2007/06/01 18:07:47
Line 198 sub display_matched_courses {	Line 198 sub display_matched_courses {
my ($descr,$instcode,$owner,$ttype) = split/:/,$courses{$course};	my ($descr,$instcode,$owner,$ttype) = split/:/,$courses{$course};
$r->print(&course_chooser($multiple,$cdom,$cnum,$cleandesc));	$r->print(&course_chooser($multiple,$cdom,$cnum,$cleandesc));
$r->print($description.'('.	$r->print($description.'('.
($Apache::lonnet::domaindescription{$cdom}?	(&Apache::lonnet::domain($cdom,'description')?
$Apache::lonnet::domaindescription{$cdom}:$cdom).")");	&Apache::lonnet::domain($cdom,'description'):$cdom).")");
unless ($instcode eq '') {	unless ($instcode eq '') {
$r->print(" - ".&unescape($instcode));	$r->print(" - ".&unescape($instcode));
}	}
Line 279 sub build_filters {	Line 279 sub build_filters {
}	}
}	}
if ($item eq 'domainfilter') {	if ($item eq 'domainfilter') {
	my $allow_blank = 1;
	if ($formname eq 'portform') {
	$filter->{$item} \|\|= $env{'user.domain'};
	$allow_blank=0;
	}
$domainselectform =	$domainselectform =
&Apache::loncommon::select_dom_form($filter->{$item},'domainfilter',1);	&Apache::loncommon::select_dom_form($filter->{$item},
	'domainfilter',
	$allow_blank);
} elsif ($item eq 'ownerdomfilter') {	} elsif ($item eq 'ownerdomfilter') {
$ownerdomselectform =	$ownerdomselectform =
&Apache::loncommon::select_dom_form($filter->{$item},'ownerdomfilter',1);	&Apache::loncommon::select_dom_form($filter->{$item},'ownerdomfilter',1);