[WWcvs] webwork2: Added buttons with onClick javaScript code that will (1) Check all checkboxes in user list or in homework set list or

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

Log Message:
-----------
Added buttons with onClick javaScript code that will
(1) Check all checkboxes in user list or in homework set list
or (2) uncheck all the checkboxes in user list or in homework set list

Modified Files:
--------------
    webwork2/lib/WeBWorK/ContentGenerator/Instructor:
        ProblemSetList.pm
        UserList.pm

Revision Data
-------------
Index: UserList.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Instructor/UserList.pm,v
retrieving revision 1.92
retrieving revision 1.93
diff -Llib/WeBWorK/ContentGenerator/Instructor/UserList.pm -Llib/WeBWorK/ContentGenerator/Instructor/UserList.pm -u -r1.92 -r1.93
--- lib/WeBWorK/ContentGenerator/Instructor/UserList.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/UserList.pm
@@ -530,9 +530,27 @@
 		
 		$i++;
 	}
-	
-	print CGI::Tr({}, CGI::td({-colspan=>2, -align=>"center"},
-		CGI::submit(-value=>"Take Action!"))
+	my $selectAll =CGI::input({-type=>'button', -name=>'check_all', -value=>'Select all users',
+	       onClick => "for (i in document.userlist.elements)  { 
+	                       if (document.userlist.elements[i].name =='selected_users') { 
+	                           document.userlist.elements[i].checked = true
+	                       }
+	                    }" });
+   	my $selectNone =CGI::input({-type=>'button', -name=>'check_none', -value=>'Unselect all users',
+	       onClick => "for (i in document.userlist.elements)  { 
+	                       if (document.userlist.elements[i].name =='selected_users') { 
+	                          document.userlist.elements[i].checked = false
+	                       }
+	                    }" });
+	unless ($editMode or $passwordMode) {
+		print CGI::Tr({}, CGI::td({ colspan=>2, -align=>"center"},
+			$selectAll." ". $selectNone
+			)
+		);
+	}
+	print CGI::Tr({}, CGI::td({ colspan=>2, -align=>"center"},
+		CGI::submit(-value=>"Take Action!") 
+		)
 	);
 	print CGI::end_table();
 	
@@ -805,6 +823,8 @@
 	return "Users sorted by $names{$primary}, then by $names{$secondary}, then by $names{$ternary}.";
 }
 
+
+
 sub edit_form {
 	my ($self, $onChange, %actionParams) = @_;
 
Index: ProblemSetList.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm,v
retrieving revision 1.106
retrieving revision 1.107
diff -Llib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm -Llib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm -u -r1.106 -r1.107
--- lib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm
+++ lib/WeBWorK/ContentGenerator/Instructor/ProblemSetList.pm
@@ -506,6 +506,24 @@
 		$i++;
 	}
 	
+	my $selectAll =CGI::input({-type=>'button', -name=>'check_all', -value=>'Select all sets',
+	       onClick => "for (i in document.problemsetlist.elements)  { 
+	                       if (document.problemsetlist.elements[i].name =='selected_sets') { 
+	                           document.problemsetlist.elements[i].checked = true
+	                       }
+	                    }" });
+   	my $selectNone =CGI::input({-type=>'button', -name=>'check_none', -value=>'Unselect all sets',
+	       onClick => "for (i in document.problemsetlist.elements)  { 
+	                       if (document.problemsetlist.elements[i].name =='selected_sets') { 
+	                          document.problemsetlist.elements[i].checked = false
+	                       }
+	                    }" });
+	unless ($editMode or $exportMode) {
+		print CGI::Tr({}, CGI::td({ colspan=>2, -align=>"center"},
+			$selectAll." ". $selectNone
+			)
+		);
+	}
 	print CGI::Tr({}, CGI::td({-colspan=>2, -align=>"center"},
 		CGI::submit(-value=>"Take Action!"))
 	);