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}};
|
