loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.60, 2006/11/29 07:46:39	version 1.61, 2006/12/11 22:20:20
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 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} = '';
}	}