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.59 and 1.61

version 1.59, 2006/11/16 13:02:45	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} = '';
}	}
Line 409 sub search_courses {	Line 416 sub search_courses {
undef,undef,$type);	undef,undef,$type);
} else {	} else {
$r->print('<br />');	$r->print('<br />');
foreach my $cid (sort(&Apache::loncommon::findallcourses())) {	my %coursehash = &Apache::loncommon::findallcourses();
	foreach my $cid (sort(keys(%coursehash))) {
$courses{$cid} = $env{'course.'.$cid.'.description'};	$courses{$cid} = $env{'course.'.$cid.'.description'};
}	}
}	}

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

Removed from v.1.59
changed lines
	Added in v.1.61