[WWcvs] webwork2: added buttons that select all or select non via javaScript made some style changes in the presentation of the reports.

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

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