--- loncom/interface/lonpickcourse.pm 2003/03/26 00:26:16 1.1 +++ loncom/interface/lonpickcourse.pm 2003/03/26 19:34:42 1.4 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.1 2003/03/26 00:26:16 www Exp $ +# $Id: lonpickcourse.pm,v 1.4 2003/03/26 19:34:42 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,17 +48,18 @@ sub handler { ENDDOCUMENT -# Is this even in a course? &Apache::loncommon::get_unprocessed_cgi ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter', 'sincefilter','form','cnumelement','cdomelement']); my $domainfilter=$ENV{'form.domainfilter'}; $domainfilter=~s/\W//g; - unless ($domainfilter) { $domainfilter='.'; } + unless ($domainfilter) { $domainfilter=''; } + my $domainselectform=&Apache::loncommon::select_dom_form($domainfilter, + 'domainfilter',1); my $descriptfilter=$ENV{'form.descriptfilter'}; - $descriptfilter=~s/\W//g; - unless ($descriptfilter) { $descriptfilter='.'; } + $descriptfilter=~s/[^\w\s]//g; + unless ($descriptfilter) { $descriptfilter=''; } my $sincefilter=$ENV{'form.sincefilter'}; $sincefilter=~s/\D//g; unless ($sincefilter) { $sincefilter=0; } @@ -76,9 +77,30 @@ function gochoose(cname,cdom) { self.close(); } -ENDSCRIPT +
- $r->print('