-sub kiriwrite_page_multipleselect{
-#################################################################################
-# kiriwrite_page_multipleselect: Gets the multiple page selections from a #
-# database and processes them into a single which can be used in the #
-# kiriwrite_page_delete. #
-# #
-# Usage: #
-# #
-# kiriwrite_page_multipleselect(); #
-#################################################################################
-
- # Load the required perl modules for this subroutine.
-
- my $query = new CGI;
-
- # Setup some variables that will be used later on.
-
- my $page_select_seek = 1;
- my $page_current_value = "";
- my $selectionlist = "";
-
- # Get the required variables from the HTTP query.
-
- my $page_count = $query->param('count');
-
- do {
-
- # Get the current value of the selected page's checkbox.
-
- $page_current_value = $query->param('name[' . $page_select_seek . ']');
-
- # If page_current_value is undefinied or blank, set page_current_value
- # to off.
-
- if (!$page_current_value){
-
- $page_current_value = "off";
-
- }
-
- # Check if the page_current_value is set to 'on' if it is append the
- # current page seek value to the selection list.
-
- if ($page_current_value eq "on"){
-
- # Append the current seek value to the selection list.
-
- $selectionlist = $selectionlist . $page_select_seek . "|";
-
- }
-
- # Increment the page selection seeking counter.
-
- $page_select_seek++;
-
- } until ($page_select_seek eq $page_count);
-
- return $selectionlist;
-
-}
-