version 1.60.2.1, 2006/12/11 21:41:40
|
version 1.62, 2007/03/08 01:58:45
|
Line 35 use Apache::loncoursedata;
|
Line 35 use Apache::loncoursedata;
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::longroup; |
use Apache::longroup; |
use lib '/home/httpd/lib/perl/'; |
|
use LONCAPA; |
use LONCAPA; |
|
|
sub handler { |
sub handler { |
Line 199 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 266 sub build_filters {
|
Line 265 sub build_filters {
|
foreach my $item (@{$filterlist}) { |
foreach my $item (@{$filterlist}) { |
$filter->{$item} = $env{'form.'.$item}; |
$filter->{$item} = $env{'form.'.$item}; |
if ($item ne 'descriptfilter' && $item ne 'instcodefilter') { |
if ($item ne 'descriptfilter' && $item ne 'instcodefilter') { |
$filter->{$item} =~ s/\W//g; |
if ($item eq 'domainfilter' || $item eq 'ownerdomfilter') { |
|
$filter->{$item} = &LONCAPA::clean_domain($filter->{$item}); |
|
} elsif ($item eq 'coursefilter') { |
|
$filter->{$item} = &LONCAPA::clean_courseid($filter->{$item}); |
|
} elsif ($item eq 'ownerfilter') { |
|
$filter->{$item} = &LONCAPA::clean_username($filter->{$item}); |
|
} else { |
|
$filter->{$item} =~ s/\W//g; |
|
} |
if (!$filter->{$item}) { |
if (!$filter->{$item}) { |
$filter->{$item} = ''; |
$filter->{$item} = ''; |
} |
} |
Line 349 $multelement
|
Line 356 $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"; |
} |
} |