--- loncom/interface/lonhtmlcommon.pm 2005/10/13 18:31:06 1.113
+++ 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.113 2005/10/13 18:31:06 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.118 2005/11/15 20:46:40 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -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,7 +1395,7 @@ 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;
}
@@ -1438,7 +1462,7 @@ sub email_default_row {
my $output = &row_title($col_width,$tablecolor,$title);
my @rowcols = ('#eeeeee','#dddddd');
$output .= ' '.$descrip;
- $output .= &start_pick_box('50%');
+ $output .= &start_pick_box('');
$output .= ' |
'.&mt('Authentication Method').' | '.&mt('Username -> e-mail conversion').' |
'."\n";