--- loncom/interface/loncreateuser.pm 2007/12/21 20:34:26 1.221 +++ loncom/interface/loncreateuser.pm 2007/12/21 21:02:10 1.222 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Create a user # -# $Id: loncreateuser.pm,v 1.221 2007/12/21 20:34:26 raeburn Exp $ +# $Id: loncreateuser.pm,v 1.222 2007/12/21 21:02:10 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3561,48 +3561,49 @@ $table. sub course_level_row { my ($protectedcourse,$role,$area,$domain,$plrole,$sections_count,$lt) = @_; - my $table = &Apache::loncommon::start_data_table_row(). - ' '."\n". - ' '.$plrole.''."\n". - ''.$area.'
Domain: '.$domain.''."\n"; + my $row = &Apache::loncommon::start_data_table_row(). + ' '."\n". + ' '.$plrole.''."\n". + ' '.$area.'
Domain: '.$domain.''."\n"; if ($role eq 'cc') { - $table .= ' '; + $row .= ' '; } elsif ($env{'request.course.sec'} ne '') { - $table .= ' '. - $env{'request.course.sec'}.''; + $row .= ' '. + $env{'request.course.sec'}.''; } else { if (ref($sections_count) eq 'HASH') { my $currsec = &Apache::lonuserutils::course_sections($sections_count, $protectedcourse.'_'.$role); - $table .= ''. - ' - - - '; + '
'.$lt->{'exs'}.'
'. - $currsec.'
   '.$lt->{'new'}.'
'. + $row .= '
'."\n". + ''."\n". + ' '."\n". + ' '."\n". + ' '."\n". - '
'.$lt->{'exs'}.'
'. + $currsec.'
   '.$lt->{'new'}.'
'. ''. '
'."\n"; } else { - $table .= ''; + $row .= ''."\n"; } } - $table .= < + $row .= < $lt->{'ssd'} - + $lt->{'sed'} ENDTIMEENTRY - $table.= &Apache::loncommon::end_data_table_row(); + $row .= &Apache::loncommon::end_data_table_row(); + return $row; } sub course_level_dc {