--- loncom/interface/lonpickcourse.pm 2004/05/07 17:53:01 1.15
+++ 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.15 2004/05/07 17:53:01 www 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;
@@ -62,8 +62,7 @@ ENDDOCUMENT
# description filter
my $descriptfilter=$ENV{'form.descriptfilter'};
unless ($descriptfilter) { $descriptfilter=''; }
- my $listdescript=$descriptfilter;
- $listdescript=~s/\"/\"\;/g;
+ 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,15 +109,17 @@ function gochoose(cname,cdom,cdesc) {
for (i=0;i
+$submitopener