version 1.61, 2006/12/11 22:20:20
|
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); |
Line 356 $multelement
|
Line 363 $multelement
|
if ($domainselectform) { |
if ($domainselectform) { |
$output .= $lt{'cdo'}.': '.$domainselectform.'<br />'."\n"; |
$output .= $lt{'cdo'}.': '.$domainselectform.'<br />'."\n"; |
} |
} |
if ($typeselectform) { |
# if ($typeselectform) { |
$output .= $lt{'cog'}.': '.$typeselectform.'<br />'."\n"; |
# $output .= $lt{'cog'}.': '.$typeselectform.'<br />'."\n"; |
} |
# } |
if ($instcodeform) { |
if ($instcodeform) { |
$output .= $lt{'cin'}.': '.$instcodeform.'<br />'."\n"; |
$output .= $lt{'cin'}.': '.$instcodeform.'<br />'."\n"; |
} |
} |