--- loncom/interface/loncommon.pm	2009/08/14 17:08:48	1.692.4.13
+++ loncom/interface/loncommon.pm	2009/08/16 22:41:50	1.692.4.16
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.692.4.13 2009/08/14 17:08:48 raeburn Exp $
+# $Id: loncommon.pm,v 1.692.4.16 2009/08/16 22:41:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5252,7 +5252,7 @@ table.LC_pick_box {
   border-spacing: 1px;
 }
 table.LC_pick_box td.LC_pick_box_title {
-  background: $sidebg;
+  background: $tabbg;
   font-weight: bold;
   text-align: right;
   vertical-align: top;
@@ -5260,7 +5260,7 @@ table.LC_pick_box td.LC_pick_box_title {
   padding: 8px;
 }
 table.LC_pick_box td.LC_selfenroll_pick_box_title {
-  background: $sidebg;
+  background: $tabbg;
   font-weight: bold;
   text-align: right;
   width: 350px;
@@ -6814,6 +6814,8 @@ If the user's status includes multiple t
 the largest default quota which applies to the user determines the
 default quota returned.
 
+=back
+
 =cut
 
 ###############################################
@@ -7413,8 +7415,6 @@ sub sorted_slots {
 
 =pod
 
-=back
-
 =head1 HTTP Helpers
 
 =over 4
@@ -8710,10 +8710,11 @@ sub restore_settings {
 
 =item * &build_recipient_list()
 
-Build recipient lists for four types of e-mail:
+Build recipient lists for five types of e-mail:
 (a) Error Reports, (b) Package Updates, (c) lonstatus warnings/errors
-(d) Help requests, generated by
-lonerrorhandler.pm, CHECKRPMS, loncron, and lonsupportreq.pm respectively.
+(d) Help requests, (e) Course requests needing approval,  generated by
+lonerrorhandler.pm, CHECKRPMS, loncron, lonsupportreq.pm and
+loncoursequeueadmin.pm respectively.
 
 Inputs:
 defmail (scalar - email address of default recipient), 
@@ -9315,7 +9316,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') {
@@ -9354,7 +9355,7 @@ sub construct_course {
                                              $args->{'ccuname'}.':'.
                                              $args->{'ccdomain'},
                                              $args->{'crstype'},
-                                             $cnum);
+                                             $cnum,$context,$category);
 
 
     # Note: The testing routines depend on this being output; see