--- loncom/interface/loncommon.pm	2009/08/14 23:54:34	1.884
+++ loncom/interface/loncommon.pm	2009/08/15 00:25:43	1.885
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.884 2009/08/14 23:54:34 raeburn Exp $
+# $Id: loncommon.pm,v 1.885 2009/08/15 00:25:43 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -9890,7 +9890,7 @@ sub check_clone {
 }
 
 sub construct_course {
-    my ($args,$logmsg,$courseid,$crsudom,$crsunum,$udom,$uname,$context,$cnum) = @_;
+    my ($args,$logmsg,$courseid,$crsudom,$crsunum,$udom,$uname,$context,$cnum,$category) = @_;
     my $outcome;
     my $linefeed =  '<br />'."\n";
     if ($context eq 'auto') {
@@ -9929,7 +9929,7 @@ sub construct_course {
                                              $args->{'ccuname'}.':'.
                                              $args->{'ccdomain'},
                                              $args->{'crstype'},
-                                             $cnum);
+                                             $cnum,$context,$category);
 
     # Note: The testing routines depend on this being output; see 
     # Utils::Course. This needs to at least be output as a comment