--- loncom/interface/lonpickcourse.pm 2003/11/04 16:31:50 1.11
+++ loncom/interface/lonpickcourse.pm 2004/03/31 05:24:00 1.14
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.11 2003/11/04 16:31:50 albertel Exp $
+# $Id: lonpickcourse.pm,v 1.14 2004/03/31 05:24:00 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -51,7 +51,8 @@ ENDDOCUMENT
# Get parameters from query string
&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
- 'sincefilter','form','cnumelement','cdomelement']);
+ 'sincefilter','form','cnumelement',
+ 'cdomelement','cnameelement']);
# domain filter and selection
my $domainfilter=$ENV{'form.domainfilter'};
$domainfilter=~s/\W//g;
@@ -84,10 +85,17 @@ ENDDOCUMENT
'cac' => 'Course Activity',
'cde' => 'Course Description',
'cdo' => 'Course Domain');
+ my ($name_code,$name_input);
+ if (defined($ENV{'form.cnameelement'}) && $ENV{'form.cnameelement'} ne '') {
+ $name_code = "opener.document.$ENV{'form.form'}.$ENV{'form.cnameelement'}.value=cdesc;";
+ $name_input ='';
+ }
$r->print(<
-function gochoose(cname,cdom) {
- opener.document.$ENV{'form.form'}.$ENV{'form.cnumelement'}.value=cname;
+function gochoose(cname,cdom,cdesc) {
+ $name_code
+ opener.document.$ENV{"form.form"}.$ENV{'form.cnumelement'}.value=cname;
var slct=opener.document.$ENV{'form.form'}.$ENV{'form.cdomelement'};
var i;
for (i=0;i
+$name_input
$lt{'cac'}: $sincefilterform
@@ -127,14 +136,16 @@ ENDSCRIPT
}
foreach my $description (sort(keys(%by_descrip))) {
my $course=$by_descrip{$description};
+ my $cleandesc=&HTML::Entities::encode($courses{$course},'<>&"');
+ $cleandesc=~s/'/\\'/g;
my ($cdom,$cnum)=split(/\_/,$course);
$r->print(' '.$courses{$course}.' ('.
+ "'".$cnum."','".$cdom."','".$cleandesc."')".'" /> '.$courses{$course}.' ('.
($Apache::lonnet::domaindescription{$cdom}?
$Apache::lonnet::domaindescription{$cdom}:$cdom).
")
\n");
}
- if (!%courses) { $r->print('None found'); }
+ if (!%courses) { $r->print(&mt('None found')); }
$r->print('');
}
$r->print('