--- loncom/interface/lonpickcourse.pm	2005/04/07 06:56:23	1.27
+++ loncom/interface/lonpickcourse.pm	2005/04/12 00:20:01	1.28
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.27 2005/04/07 06:56:23 albertel Exp $
+# $Id: lonpickcourse.pm,v 1.28 2005/04/12 00:20:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -54,7 +54,8 @@ ENDDOCUMENT
         ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
 			       'sincefilter','form','cnumelement',
 			       'cdomelement','cnameelement','roleelement',
-                               'pickedcourse','instcodefilter','ownerfilter']);
+                               'pickedcourse','instcodefilter',
+                               'ownerfilter','coursefilter']);
 # domain filter and selection
     my $domainfilter=$env{'form.domainfilter'};
     $domainfilter=~s/\W//g;
@@ -73,6 +74,18 @@ ENDDOCUMENT
     my $ownerfilter=$env{'form.ownerfilter'};
     unless ($ownerfilter) { $ownerfilter=''; }
     my $listowner=&HTML::Entities::encode($ownerfilter,'<>&"');
+# course ID filter for DCs only
+    my ($courseidtag,$coursefilter);
+    if ($env{'user.adv'} && $domainfilter && exists($env{'user.role.dc./'.
+                        $domainfilter.'/'})) {
+        $coursefilter=$env{'form.coursefilter'};
+        unless ($coursefilter) { $coursefilter=''; }
+        my $listcourseid=&HTML::Entities::encode($coursefilter,'<>&"');
+        $courseidtag = &mt('LON-CAPA course ID');
+        $courseidtag .= qq|<input type="text" name="coursefilter" size="25" value="$listcourseid" />
+        <br />
+        |;
+    }
 # last course activity filter and selection
     my $sincefilter=$env{'form.sincefilter'};
     $sincefilter=~s/[^\d-]//g;
@@ -200,6 +213,7 @@ $lt{'cin'}:
 $lt{'cow'}:
 <input type="text" name="ownerfilter" size="10" value="$listowner" />
 <br />
+$courseidtag
 $lt{'cde'}:
 <input type="text" name="descriptfilter" size="40" value="$listdescript" />
 <p><input type="submit" name="gosearch" value="Search" /></p>
@@ -213,10 +227,11 @@ ENDSCRIPT
 	unless ($descriptfilter) { $descriptfilter='.'; }
         unless ($instcodefilter) { $instcodefilter='.'; }
         unless ($ownerfilter) { $ownerfilter='.'; }
+        unless ($coursefilter) { $coursefilter='.'; }
         my $timefilter=($sincefilter==-1?1:time-$sincefilter);
 	my %courses=
 	    &Apache::lonnet::courseiddump
-	    ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter);
+	    ($domainfilter,$descriptfilter,$timefilter,$instcodefilter,$ownerfilter,$coursefilter);
 	$r->print('<form name="courselist">');
 	my %by_descrip;
 	foreach my $course (keys %courses) {