--- loncom/interface/lonhtmlcommon.pm 2005/10/14 18:28:26 1.115 +++ loncom/interface/lonhtmlcommon.pm 2005/10/27 23:18:21 1.117 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.115 2005/10/14 18:28:26 albertel Exp $ +# $Id: lonhtmlcommon.pm,v 1.117 2005/10/27 23:18:21 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1333,7 +1333,10 @@ 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| <td> <select name="roles" multiple >\n|; foreach my $role (@$roles) { @@ -1347,7 +1350,9 @@ sub role_select_row { } $output .= qq| </select> </td>\n|; - $output .= &row_closure(); + if (defined($title)) { + $output .= &row_closure(); + } return $output; } @@ -1435,7 +1440,10 @@ sub course_select_row { 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| <td> <select name="types" multiple>\n|; foreach my $status_type (sort(keys(%{$types}))) { @@ -1443,7 +1451,9 @@ sub status_select_row { } $output .= qq| </select> </td>\n|; - $output .= &row_closure(); + if (defined($title)) { + $output .= &row_closure(); + } return $output; }