--- loncom/interface/lonpickcourse.pm	2003/03/26 00:26:16	1.1
+++ loncom/interface/lonpickcourse.pm	2003/03/26 19:34:42	1.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.1 2003/03/26 00:26:16 www Exp $
+# $Id: lonpickcourse.pm,v 1.4 2003/03/26 19:34:42 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,17 +48,18 @@ sub handler {
 </head>
 ENDDOCUMENT
 
-# Is this even in a course?
 
     &Apache::loncommon::get_unprocessed_cgi
         ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
                  'sincefilter','form','cnumelement','cdomelement']);
     my $domainfilter=$ENV{'form.domainfilter'};
     $domainfilter=~s/\W//g;
-    unless ($domainfilter) { $domainfilter='.'; }
+    unless ($domainfilter) { $domainfilter=''; }
+    my $domainselectform=&Apache::loncommon::select_dom_form($domainfilter,
+                                                          'domainfilter',1);
     my $descriptfilter=$ENV{'form.descriptfilter'};
-    $descriptfilter=~s/\W//g;
-    unless ($descriptfilter) { $descriptfilter='.'; }
+    $descriptfilter=~s/[^\w\s]//g;
+    unless ($descriptfilter) { $descriptfilter=''; }
     my $sincefilter=$ENV{'form.sincefilter'};
     $sincefilter=~s/\D//g;
     unless ($sincefilter) { $sincefilter=0; }
@@ -76,9 +77,30 @@ function gochoose(cname,cdom) {
     self.close();
 }
 </script>
-ENDSCRIPT
+<form method="post">
+<br />
+Course Domain: $domainselectform
+<br />
+Course Description:
+<input type="text" name="descriptfilter" size="40" value="$descriptfilter" />
+<input type="submit" name="gosearch" value="Search" />
+</form>
 
-    $r->print('</body></html>');
+ENDSCRIPT
+    $r->rflush();
+# ---------------------------------------------------------------- Get the data
+    unless ($descriptfilter) { $descriptfilter='.'; }
+    my %courses=
+     &Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter);
+    $r->print('<form>');
+    foreach (keys %courses) {
+        my ($cdom,$cnum)=split(/\_/,$_);
+	$r->print('<input type="button" value="Select" onClick="gochoose('.
+		  "'".$cnum."','".$cdom."')".'" /> '.$courses{$_}.' ('.
+		  ($Apache::lonnet::domaindescription{$cdom}?
+                   $Apache::lonnet::domaindescription{$cdom}:$cdom).')<br />');
+    }
+    $r->print('</form></body></html>');
     return OK;
 }