--- loncom/interface/lonhtmlcommon.pm 2005/10/04 19:59:15 1.112
+++ loncom/interface/lonhtmlcommon.pm 2005/11/15 20:46:40 1.118
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common html routines
#
-# $Id: lonhtmlcommon.pm,v 1.112 2005/10/04 19:59:15 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.118 2005/11/15 20:46:40 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1246,7 +1246,7 @@ returns: nothing
#
# In general a &submit_row() call should proceed the call to &end_pick_box(),
# as this routine adds a button for form submission.
-# &submit_row(0 does not require a &row_closure after it.
+# &submit_row() does not require a &row_closure after it.
#
# &start_pick_box() creates a bounding table with 1-pixel wide black border.
# rows should be placed between calls to &start_pick_box() and &end_pick_box.
@@ -1317,7 +1317,7 @@ ENDONE
}
sub row_closure {
- my $output .= <<"ENDTWO";
+ my $output = <<"ENDTWO";
@@ -1333,16 +1333,26 @@ ENDTWO
sub role_select_row {
my ($roles,$col_width,$tablecolor,$title) = @_;
- my $output = &row_title($col_width,$tablecolor,$title);
+ my $output;
+ if (defined($title)) {
+ $output = &row_title($col_width,$tablecolor,$title);
+ }
$output .= qq|
\n|;
- $output .= &row_closure();
+ if (defined($title)) {
+ $output .= &row_closure();
+ }
return $output;
}
@@ -1354,10 +1364,10 @@ sub course_select_row {
|;
my $courseform=''.&Apache::loncommon::selectcourse_link
- ($formname,'pickcourse','pickdomain','coursedesc').'';
+ ($formname,'pickcourse','pickdomain','coursedesc','',1).'';
if ($totcodes > 0) {
$output .= ''.&mt('All courses');
my $numtitles = @$codetitles;
@@ -1376,18 +1395,18 @@ sub course_select_row {
$output .= ' '.&mt('Pick courses by category:').' ';
$output .= '
'.$$codetitles[0].' '."\n".
'
';
}
}
- $output .= ''.&mt('Pick specific course(s):').' '.$courseform.' selected. '."\n";
+ $output .= ''.&mt('Pick specific course(s):').' '.$courseform.' selected. '."\n";
$output .= &row_closure();
return $output;
}
sub status_select_row {
my ($types,$col_width,$tablecolor,$title) = @_;
- my $output = &row_title($col_width,$tablecolor,$title);
+ my $output;
+ if (defined($title)) {
+ $output = &row_title($col_width,$tablecolor,$title);
+ }
$output .= qq|
\n|;
- $output .= &row_closure();
+ if (defined($title)) {
+ $output .= &row_closure();
+ }
return $output;
}
@@ -1437,13 +1461,13 @@ sub email_default_row {
my ($authtypes,$col_width,$tablecolor,$title,$descrip) = @_;
my $output = &row_title($col_width,$tablecolor,$title);
my @rowcols = ('#eeeeee','#dddddd');
- $output .= '