[LON-CAPA-cvs] cvs: loncom /interface lonpickcourse.pm

[www]

www		Wed Mar 26 11:39:41 2003 EDT

  Modified files:              
    /loncom/interface	lonpickcourse.pm 
  Log:
  Lists courses and select buttons
  
  
Index: loncom/interface/lonpickcourse.pm
diff -u loncom/interface/lonpickcourse.pm:1.2 loncom/interface/lonpickcourse.pm:1.3
--- loncom/interface/lonpickcourse.pm:1.2	Tue Mar 25 23:57:04 2003
+++ loncom/interface/lonpickcourse.pm	Wed Mar 26 11:39:40 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Pick a course
 #
-# $Id: lonpickcourse.pm,v 1.2 2003/03/26 04:57:04 www Exp $
+# $Id: lonpickcourse.pm,v 1.3 2003/03/26 16:39:40 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -80,10 +80,15 @@
 # ---------------------------------------------------------------- Get the data
     my %courses=
      &Apache::lonnet::courseiddump($domainfilter,$descriptfilter,$sincefilter);
+    $r->print('<form>');
     foreach (keys %courses) {
-	$r->print($_.': '.$courses{$_}.'<br />');
+        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('</body></html>');
+    $r->print('</form></body></html>');
     return OK;
 }