Log Message:
-----------
added buttons that select all or select non via javaScript
made some style changes in the presentation of the reports.
VS: ----------------------------------------------------------------------
Modified Files:
--------------
webwork2/lib/WeBWorK/ContentGenerator:
CourseAdmin.pm
Revision Data
-------------
Index: CourseAdmin.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/CourseAdmin.pm,v
retrieving revision 1.89
retrieving revision 1.90
diff -Llib/WeBWorK/ContentGenerator/CourseAdmin.pm -Llib/WeBWorK/ContentGenerator/CourseAdmin.pm -u -r1.89 -r1.90
--- lib/WeBWorK/ContentGenerator/CourseAdmin.pm
+++ lib/WeBWorK/ContentGenerator/CourseAdmin.pm
@@ -2357,6 +2357,19 @@
#my $urlpath = $r->urlpath;
+ my $selectAll =CGI::input({-type=>'button', -name=>'check_all', -value=>'Select all eligible courses',
+ onClick => "for (i in document.courselist.elements) {
+ if (document.courselist.elements[i].name =='upgrade_courseIDs') {
+ document.courselist.elements[i].checked = true
+ }
+ }" });
+ my $selectNone =CGI::input({-type=>'button', -name=>'check_none', -value=>'Unselect all courses',
+ onClick => "for (i in document.courselist.elements) {
+ if (document.courselist.elements[i].name =='upgrade_courseIDs') {
+ document.courselist.elements[i].checked = false
+ }
+ }" });
+
my @courseIDs = listCourses($ce);
@courseIDs = sort {lc($a) cmp lc ($b) } @courseIDs; #make sort case insensitive
@@ -2366,7 +2379,8 @@
"Update the checked directories?"
);
- print CGI::start_form(-method=>"POST", -action=>$r->uri);
+ print CGI::start_form(-method=>"POST", -action=>$r->uri, -id=>"courselist", -name=>"courselist"),
+ CGI::p($selectAll, $selectNone);
print $self->hidden_authen_fields;
print $self->hidden_fields("subDisplay");
@@ -2574,14 +2588,15 @@
#############################################################################
# Analyze database status and prepare status report
#############################################################################
+ print CGI::checkbox({name=>"upgrade_courseIDs", label=>'upgrade', selected=>1,value=>$upgrade_courseID}).
+ "Report for course $upgrade_courseID:".CGI::br();
($tables_ok,$dbStatus) = $CIchecker->checkCourseTables($upgrade_courseID);
-
+
my ($all_tables_ok, $extra_database_tables, $extra_database_fields, $str)
= formatReportOnDatabaseTables($tables_ok, $dbStatus);
# prepend course name
- $str = CGI::checkbox({name=>"upgrade_courseIDs", label=>'upgrade', selected=>1,value=>$upgrade_courseID}).
- "Report for course $upgrade_courseID:".CGI::br()."Database:".CGI::br(). $str;
+ $str = CGI::br()."Database:".CGI::br(). $str;
#############################################################################
# Report on databases and report summary
@@ -2603,7 +2618,7 @@
my ($directories_ok, $str2) = $CIchecker->checkCourseDirectories();
my $style = ($directories_ok)?"color:green" : "color:red";
my $dir_msg = join ('',
- CGI::h2("Directory structure"),
+ "Directory structure",CGI::br(),
CGI::p($str2),
($directories_ok)? CGI::p({style=>$style},"Directory structure is ok") :
CGI::p({style=>$style},"Directory structure is missing directories
|
