--- loncom/cgi/listcodes.pl	2014/01/01 17:41:51	1.1
+++ loncom/cgi/listcodes.pl	2014/01/01 19:07:44	1.2
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 $|=1;
 # Listing of domain's courses with unique six character codes
-# $Id: listcodes.pl,v 1.1 2014/01/01 17:41:51 raeburn Exp $
+# $Id: listcodes.pl,v 1.2 2014/01/01 19:07:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -312,8 +312,7 @@ sub show_results {
                 }
                 if ($format eq 'xml') {
                      print <<"END";
- <course>
-  <courseID>$cnum</courseID>
+ <course id="$cnum">
   <code>$courses{$course}{'uniquecode'}</code>
   <title>$courses{$course}{'description'}</title>
   <owner>$courses{$course}{'owner'}</owner>
@@ -370,8 +369,7 @@ sub buildline {
     } elsif ($format eq 'xml') {
          <<"END";
 <courses>
- <course> 
-  <courseID>$cnum</courseID>
+ <course id="$cnum"> 
   <code>$code</code>
   <title>$title</title>
   <owner>$owner</owner>