--- loncom/interface/lonpickcourse.pm	2003/03/26 00:26:16	1.1
+++ loncom/interface/lonpickcourse.pm	2003/03/26 04:57:04	1.2
@@ -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.2 2003/03/26 04:57:04 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,7 +48,6 @@ sub handler {
 </head>
 ENDDOCUMENT
 
-# Is this even in a course?
 
     &Apache::loncommon::get_unprocessed_cgi
         ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter',
@@ -77,7 +76,13 @@ function gochoose(cname,cdom) {
 }
 </script>
 ENDSCRIPT
-
+    $r->rflush();
+# ---------------------------------------------------------------- Get the data
+    my %courses=
+     &Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter);
+    foreach (keys %courses) {
+	$r->print($_.': '.$courses{$_}.'<br />');
+    }
     $r->print('</body></html>');
     return OK;
 }