[WWcvs] webwork2: added some UI niceties

[Mike G. v. a. <we...@ma...>]

Log Message:
-----------
added some UI niceties

Modified Files:
--------------
    webwork2/lib/WeBWorK/Utils:
        CourseIntegrityCheck.pm

Revision Data
-------------
Index: CourseIntegrityCheck.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/Utils/CourseIntegrityCheck.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -Llib/WeBWorK/Utils/CourseIntegrityCheck.pm -Llib/WeBWorK/Utils/CourseIntegrityCheck.pm -u -r1.7 -r1.8
--- lib/WeBWorK/Utils/CourseIntegrityCheck.pm
+++ lib/WeBWorK/Utils/CourseIntegrityCheck.pm
@@ -96,6 +96,7 @@
 
 sub checkCourseTables {
 	my ($self, $courseName) = @_;
+	warn "Course name is not defined".caller(2), unless defined($courseName) and $courseName =~/\S/;
 	my $str='';
     my $tables_ok = 1;
     my %dbStatus = ();
@@ -321,9 +322,9 @@
 	    	$style = "color:red";
 	    }
 	    	
-    	push @results, CGI::span({style=>$style},"$dir => $path $status <br/>\n");
+    	push @results, CGI::li( "$dir =>".CGI::span({style=>$style}," $path $status <br/>\n")  );
     }
-    $str = join(" ",@results);
+    $str = CGI::start_ul(). join(" ",@results) .  CGI::end_ul();
     return ( $directories_ok, $str);
 }
 
@@ -335,7 +336,7 @@
 =cut
 
 sub updateCourseDirectories {
-	my ($self) = @_;
+	my $self = shift;
 	my $ce = $self->{ce};
 	my @webworkDirectories = keys %{$ce->{webworkDirs}};
     my @courseDirectories = keys %{$ce->{courseDirs}};