--- 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
 <br />
 $lt{'cdo'}: $domainselectform
 <br />
+$lt{'cin'}:
+<input type="text" name="instcodefilter" size="10" value="$listinstcode" />
+<br />
+$lt{'cow'}:
+<input type="text" name="ownerfilter" size="10" value="$listowner" />
+<br />
 $lt{'cde'}:
 <input type="text" name="descriptfilter" size="40" value="$listdescript" />
 <p><input type="submit" name="gosearch" value="Search" /></p>
@@ -184,10 +200,12 @@ ENDSCRIPT
         $r->print(&mt('Searching').' ...<br />&nbsp;<br />');
         $r->rflush();
 	unless ($descriptfilter) { $descriptfilter='.'; }
+        unless ($instcodefilter) { $instcodefilter='.'; }
+        unless ($ownerfilter) { $ownerfilter='.'; }
         my $timefilter=($sincefilter==-1?1:time-$sincefilter);
 	my %courses=
 	    &Apache::lonnet::courseiddump
-	    ($domainfilter,$descriptfilter,$timefilter);
+	    ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter);
 	$r->print('<form name="courselist">');
 	my %by_descrip;
 	foreach my $course (keys %courses) {