--- loncom/interface/lonpickcourse.pm 2004/11/23 18:03:04 1.19
+++ loncom/interface/lonpickcourse.pm 2004/11/27 17:23:09 1.20
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Pick a course
#
-# $Id: lonpickcourse.pm,v 1.19 2004/11/23 18:03:04 raeburn Exp $
+# $Id: lonpickcourse.pm,v 1.20 2004/11/27 17:23:09 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -53,7 +53,7 @@ ENDDOCUMENT
($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
'sincefilter','form','cnumelement',
'cdomelement','cnameelement','roleelement',
- 'pickedcourse']);
+ 'pickedcourse','instcodefilter','ownerfilter']);
# domain filter and selection
my $domainfilter=$ENV{'form.domainfilter'};
$domainfilter=~s/\W//g;
@@ -64,6 +64,14 @@ ENDDOCUMENT
my $descriptfilter=$ENV{'form.descriptfilter'};
unless ($descriptfilter) { $descriptfilter=''; }
my $listdescript=&HTML::Entities::encode($descriptfilter,'<>&"');
+# institutional code filter
+ my $instcodefilter=$ENV{'form.instcodefilter'};
+ unless ($instcodefilter) { $instcodefilter=''; }
+ my $listinstcode=&HTML::Entities::encode($instcodefilter,'<>&"');
+# course owner filter
+ my $ownerfilter=$ENV{'form.ownerfilter'};
+ unless ($ownerfilter) { $ownerfilter=''; }
+ my $listowner=&HTML::Entities::encode($ownerfilter,'<>&"');
# last course activity filter and selection
my $sincefilter=$ENV{'form.sincefilter'};
$sincefilter=~s/[^\d-]//g;
@@ -98,7 +106,9 @@ ENDDOCUMENT
my %lt=&Apache::lonlocal::texthash(
'cac' => 'Course Activity',
'cde' => 'Course Description',
- 'cdo' => 'Course Domain');
+ 'cdo' => 'Course Domain',
+ 'cin' => 'Course Institutional Code',
+ 'cow' => "Course Owner's usename");
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;";
@@ -173,6 +183,12 @@ $lt{'cac'}: $sincefilterform
$lt{'cdo'}: $domainselectform
+$lt{'cin'}:
+
+
+$lt{'cow'}:
+
+
$lt{'cde'}: