--- loncom/interface/lonpickcourse.pm 2004/03/31 05:24:00 1.14
+++ loncom/interface/lonpickcourse.pm 2004/11/12 23:29:56 1.18
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.14 2004/03/31 05:24:00 albertel Exp $
+# $Id: lonpickcourse.pm,v 1.18 2004/11/12 23:29:56 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -52,7 +52,7 @@ ENDDOCUMENT
&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
'sincefilter','form','cnumelement',
- 'cdomelement','cnameelement']);
+ 'cdomelement','cnameelement','roleelement']);
# domain filter and selection
my $domainfilter=$ENV{'form.domainfilter'};
$domainfilter=~s/\W//g;
@@ -61,9 +61,8 @@ ENDDOCUMENT
'domainfilter',1);
# description filter
my $descriptfilter=$ENV{'form.descriptfilter'};
- $descriptfilter=~s/[^\w\s]//g;
unless ($descriptfilter) { $descriptfilter=''; }
-
+ my $listdescript=&HTML::Entities::encode($descriptfilter,'<>&"');
# last course activity filter and selection
my $sincefilter=$ENV{'form.sincefilter'};
$sincefilter=~s/[^\d-]//g;
@@ -91,6 +90,15 @@ ENDDOCUMENT
$name_input ='';
}
+ my $submitopener = '';
+ my $autosubmit = '';
+ my $roleelement = '';
+ my $roledom = $ENV{'form.roleelement'};
+ if ($roledom) {
+ $roleelement = '';
+ $submitopener = &Apache::lonroles::processpick($roledom);
+ $autosubmit = 'process_pick("'.$roledom.'")';
+ }
$r->print(<
function gochoose(cname,cdom,cdesc) {
@@ -101,21 +109,23 @@ function gochoose(cname,cdom,cdesc) {
for (i=0;i
+$submitopener
@@ -132,15 +142,21 @@ ENDSCRIPT
$r->print('