diff --git a/modules/websubmit/web/admin/.cvsignore b/modules/websubmit/web/admin/.cvsignore new file mode 100644 index 000000000..858ac9ff9 --- /dev/null +++ b/modules/websubmit/web/admin/.cvsignore @@ -0,0 +1,9 @@ +Makefile +Makefile.in +z_* +*.O +*~ +*.py +*.shtml +*.html +*.php \ No newline at end of file diff --git a/modules/websubmit/web/admin/Makefile.am b/modules/websubmit/web/admin/Makefile.am new file mode 100644 index 000000000..2e8d3461a --- /dev/null +++ b/modules/websubmit/web/admin/Makefile.am @@ -0,0 +1,31 @@ +## $Id$ + +## This file is part of the CERN Document Server Software (CDSware). +## Copyright (C) 2002 CERN. +## +## The CDSware is free software; you can redistribute it and/or +## modify it under the terms of the GNU General Public License as +## published by the Free Software Foundation; either version 2 of the +## License, or (at your option) any later version. +## +## The CDSware is distributed in the hope that it will be useful, but +## WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +## General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with CDSware; if not, write to the Free Software Foundation, Inc., +## 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + +webappdir = $(WEBDIR)/admin/websubmit + +FILESWML=$(wildcard *.wml) +webapp_DATA=$(FILESWML:.wml=) + +EXTRA_DIST = $(wildcard *.wml) + +CLEANFILES = $(webapp_DATA) *~ *.tmp + +%.php: %.php.wml ../../../../config/config.wml ../../../../config/configbis.wml \ + ../../../../config/messages.wml + $(WML) -o\(ALL-LANG_*\)+LANG_EN:$@ $< diff --git a/modules/websubmit/web/admin/actionFunctions.php.wml b/modules/websubmit/web/admin/actionFunctions.php.wml new file mode 100644 index 000000000..8fb54cf1b --- /dev/null +++ b/modules/websubmit/web/admin/actionFunctions.php.wml @@ -0,0 +1,635 @@ +## $Id$ + +## This file is part of the CERN Document Server Software (CDSware). +## Copyright (C) 2002 CERN. +## +## The CDSware is free software; you can redistribute it and/or +## modify it under the terms of the GNU General Public License as +## published by the Free Software Foundation; either version 2 of the +## License, or (at your option) any later version. +## +## The CDSware is distributed in the hope that it will be useful, but +## WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +## General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with CDSware; if not, write to the Free Software Foundation, Inc., +## 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + +#include "cdspage.wml" \ + title="List of Functions for on $doctype";?>" \ + navtrail_previous_links="/admin/> > /admin/websubmit/>" \ + navbar_name="admin" \ + navbar_select="websubmit" \ + cdspageboxlefttopadd="" + + +## $Id$ +## DO NOT EDIT THIS FILE! IT WAS AUTOMATICALLY GENERATED FROM CDSware WML SOURCES. + + /***********************Function Declarations************************/ + + function displayFunctions($doctype, $action) + { + + global $IMAGES; + + $lockStr = "LOCK TABLES sbmFUNCTIONS READ"; + + # Apply a read lock to the given functions table... + if($lockRes = mysql_query($lockStr)) + { + # Execute a query selecting a listing of the functions that make + # up an action for the given document type + $queryResult = mysql_query("SELECT * FROM sbmFUNCTIONS WHERE + doctype='$doctype' and action='$action' ORDER BY step, score"); + + # We must unlock our table... + $unlockRes = mysql_query("UNLOCK TABLES"); + + # If there were rows returned by this query (i.e. there are + # functions composing the given action on the given doctype, we + # can display them. + + if(mysql_num_rows($queryResult) > 0) + { + # We can now create a table to display the query dynaset in... + print(""); + + # Open the first table row for the column headings... + print(""); + + # Get information about the fields in the table... + $columns = mysql_list_fields(DOCS_DATABASE, "sbmFUNCTIONS"); + + # Display all of the column headings + for($headerIndex = 2; $headerIndex < mysql_num_fields($columns); + $headerIndex++) + { + print(""); + if(mysql_field_name($columns, $headerIndex) == "function") + { # Add another column... + print(""); + } + } // END for + + # Now that we have added all of the header columns, we can add + # one more column header offering the user the ability to + # delete a function from the current action on the current + # doctype... + print("\n"); + + print(""); + + # Make a counter for the rows... + $rowCount = 0; + + # Put the contents of the query dynaset into a temporary + # array... + while($dataRow = mysql_fetch_array($queryResult)) + { + $allRows[$rowCount] = $dataRow; + $rowCount++; + } // End while + + # Reset $rowCount to 0 for use in further processing... + $rowCount = 0; + + # Now, we can display the body of the table... + for($i = 0; $i < mysql_num_rows($queryResult); $i++) + { + print(""); + + # For each column... + for($colIndex = 2; $colIndex < mysql_num_fields($columns); + $colIndex++) + { + if(mysql_field_name($columns, $colIndex) == "function") + # If the column is the function name, + # create a link to the description of + # that function in the fundesc table. + { + print(""); + + # Now we can add the up and down buttons to the + # table. + + # Add the small "up" button... + print(""); + } + else # Just display the value, as per normal. + { + print("\n"); + } // End else + } // End for + + # Now, we can fill the contents of the last column with the + # "delete button" for removing a function... + + print("\n" + . "\n\n\n\n\n\n\n\n\n"); + + # We have now completed the current row, and can close it + print(""); + + # Increment the value of $rowCount... + $rowCount++; + } // End for + + # Close the table, as it is now finished... + print("
  "); + print(mysql_field_name($columns, $headerIndex)); + print(" Delete
"); + print(" "); + print(htmlspecialchars($allRows[$i][$colIndex])); + print("" + . "" + . "" + . "" + . "" + . "" + . "" + . "" + . ""); + + if($rowCount == 0) + { + print("" + . "" + . "" + . "" + . "" + . "" + . "" + . "" + . ""); + + if($rowCount == mysql_num_rows($queryResult) - 1) + { + print("
" + . "Function Already At Top Of Order. " + . " Unable To Move Up!"); + } // END if + else + { + print("" + . "" + . "" + . ""); + } // END else + + # Add the small "down" button... + print("
" + . "Function Already At Bottom Of Order. " + . " Unable To Move Down!"); + } // END if + else + { + print("" + . "" + . "" + . ""); + } // END else + + print("
 "); + print(htmlspecialchars($allRows[$i][$colIndex])); + print("
\n\n" + . "
\n"); + + # Now, we can display a button to offer the user the chance to + # go back to the listing of actions for the given document + # type. + # This is done using a button. + + print("


\n\n" + . "\n" + . "\n" + . "\n" + . "\n\n" + . "\n\n\n\n\n
\n
\n" + . "\n" + . "
\n"); + } // End if + else + { + print("

There Are No Functions " + . "Associated With The $action Action For The $doctype " + . "Document Type
\n"); + + # Now, we can offer the user the chance to add functions to + # the given action on the given doctype... + # This requires a table with a form in it, with a button to + # press in order to add the functions. + + print("
\n
\n"); + print("" + . "\n"); + print("\n"); + print("\n"); + print("\n"); + + + print("\n"); + print("
"); + print("\n
\n"); + print("\n"); + print("\n"); + print("\n"); + print("
 
"); + print(""); + print("
 
\n"); + print("\n"); + print("
\n"); + } // End else + } # END if + else + { + # Display error message (couldnt lock tables). + print("
\n" + . "Error: Unable to retrieve information.
\n
".mysql_error()."\n"); + + print("\n\n\n\n\n\n
\n\n
\n"); + } # END else + + } // END function displayFunctions() + + + function displayPage() + { + global $calledBefore,$doctype,$action,$up,$x,$y,$previousScore,$currentStep,$previousStep,$function,$currentScore,$down,$nextStep,$nextScore,$deleteFunc,$previousFunction,$nextFunction; + + if(!($calledBefore)) + { + displayFunctions($doctype, $action); + } // END if + else + { + if(isset($up)) + { + # Destroy memory space associated with x and y coordinates + # which were passed from the input image... + + unset($x); + unset($y); + + # Destroy $up... + unset($up); + + # Make a query string to update the row to move, to its new + # score and step values... + + $queryStringA = "UPDATE sbmFUNCTIONS SET score = " + . "'$previousScore'"; + + if($previousStep < $currentStep) + { # If the function aboves step is lower, then we must also + # change this... + $queryStringA = $queryStringA . ", step = " + . "'$previousStep'"; + } // END if + + $queryStringA = $queryStringA . " WHERE doctype = '$doctype'" + . " AND function = '$function' AND score = " + . "'$currentScore' AND step = '$currentStep' and action='$action'"; + + # Now, make another query string to update the function that + # was above the function that we have just updated in the + # order. This function should be updated to have the values + # that the function that we just updated had! + + $queryStringB = "UPDATE sbmFUNCTIONS SET score = " + . "'$currentScore'"; + + if($previousStep < $currentStep) + { # If the function we are alterring to the one above has a + # lower step than the one that came after it in the list, + # we must change the steps around... + + $queryStringB = $queryStringB . ", step = '$currentStep'"; + } // END if + + $queryStringB = $queryStringB . " WHERE doctype = '$doctype'" + . " AND function = '$previousFunction' AND " + . "score = '$previousScore' AND step = " + . "'$previousStep' and action='$action'"; + + # Lock our tables... + $lockStr = "LOCK TABLES sbmFUNCTIONS WRITE"; + + if($lockRes = mysql_query($lockStr)) + { + # Execute the update on the first function... + $queryResultA = mysql_query($queryStringA) or + die("Could Not Update Table. Error: (A) $queryStringA"); + + # Execute the update on the second function... + $queryresultB = mysql_query($queryStringB) or + die("Could Not Update Table. Error: (B)"); + + # Unlock our tables... + $unlockRes = mysql_query("UNLOCK TABLES"); + } # END if + else + { + # Couldn't lock tables, therefore couldn't allow write + print("
\nError: Unable to commit movement." + . "
\n
\n"); + } # END else + + unset($lockStr); + + + # Display the table of functions once again... + displayFunctions($doctype, $action); + } // END if + elseif(isset($down)) + { + # Destroy memory space associated with $x and $y coordinates + # which were passed from the input image... + + unset($x); + unset($y); + + # Destroy $down + unset($down); + + # Make a query string to update the row to move, to it's new + # score and step values... + + $queryStringA = "UPDATE sbmFUNCTIONS SET score = " + . "'$nextScore'"; + + if($currentStep < $nextStep) + { # If the step requires changing also, change it... + $queryStringA = $queryStringA . ", step = '$nextStep'"; + } + + $queryStringA = $queryStringA . " WHERE doctype = '$doctype'" + . " AND function = '$function' AND score = " + . "'$currentScore' AND step = '$currentStep' and action='$action'"; + + + # Now make another query string to update the function whose + # position in the order the other function is moving to... + + $queryStringB = "UPDATE sbmFUNCTIONS SET score = " + . "'$currentScore'"; + + if($currentStep < $nextStep) + { # If the step requires changing also, change it... + $queryStringB = $queryStringB . ", step = '$currentStep'"; + } + + $queryStringB = $queryStringB . " WHERE doctype = '$doctype'" + . "AND function = '$nextFunction' AND score = " + . "'$nextScore' AND step = '$nextStep' and action='$action'"; + + + # Lock our tables... + $lockStr = "LOCK TABLES sbmFUNCTIONS WRITE"; + + if($lockRes = mysql_query($lockStr)) + { + # Execute the query on the first data item... + $queryResultA = mysql_query($queryStringA) or + die("no query A!"); + + # Execute the query on the second data item... + $queryresultB = mysql_query($queryStringB) or + die("no query B!"); + + # Unlock our tables... + $unlockRes = mysql_query("UNLOCK TABLES"); + } # END if + else + { + # Couldn't lock tables, therefore couldn't allow write + print("
\nError: Unable to commit movement." + . "
\n
\n"); + } # END else + + unset($lockStr); + + + # Display the table of functions once more... + displayFunctions($doctype, $action); + } // END elseif + elseif(isset($deleteFunc)) + { + # This is a call to delete a function from the current action + # of the current doctype. + + # Free some wasted space. + unset($deleteFunc); + + $delStr = "DELETE FROM sbmFUNCTIONS WHERE doctype = '$doctype" + . "' AND function = '$function' AND score = '$currentScore' " + . "AND step = '$currentStep' and action='$action'"; + + # Make our LOCK query... + $lockStr = "LOCK TABLES sbmFUNCTIONS WRITE"; + + if($lockRes = mysql_query($lockStr)) + { + $delRes = mysql_query($delStr); + + if($delRes) + { + # The deletion query was successful, but did it actually + # delete anything? + + if(mysql_affected_rows() == 1) + { + # Perfect! 1 row deleted as expected. + + # We must unlock our table... + $unlockRes = mysql_query("UNLOCK TABLES"); + + print("\n"); + } // END elseif + else + { + # Ahhhhhh! We have deleted no function! + + # We must unlock our table... + $unlockRes = mysql_query("UNLOCK TABLES"); + + print("\n"); + } // END else + } // END if + else + { + # Deletion query failed. + + # We must unlock our table... + $unlockRes = mysql_query("UNLOCK TABLES"); + + print("\n"); + } // END else + } # END if + else + { + # Could not lock the table. No display allowed. + print("
\nError: Unable to delete function." + . "
\n
\n"); + } # END else + + # Display the table of functions once more... + displayFunctions($doctype, $action); + } // END elseif + else + { + print("

" + . "\nERROR IN UPDATE

\n"); + } // END else + } // END else + } + + + /**********************Start of main script***************************/ + + # Connect to the MySQL server + serverConnect(MYSQLDOCMACHINE, MYSQLDOCUSERID, MYSQLDOCPASSWORD); + + # Select the CDS Search database... + dbSelect(DOCS_DATABASE); + + if (!canUseWebSubmitAdmin($uid,$doctype)) + outWarning("You are not allowed to access WebSubmit Admin for this " + . "type of documents"); + else + displayPage($doctype); + + /************************End of main script***************************/ + + +?> diff --git a/modules/websubmit/web/admin/addActionEDS.php.wml b/modules/websubmit/web/admin/addActionEDS.php.wml new file mode 100644 index 000000000..a861f2cb1 --- /dev/null +++ b/modules/websubmit/web/admin/addActionEDS.php.wml @@ -0,0 +1,439 @@ +## $Id$ + +## This file is part of the CERN Document Server Software (CDSware). +## Copyright (C) 2002 CERN. +## +## The CDSware is free software; you can redistribute it and/or +## modify it under the terms of the GNU General Public License as +## published by the Free Software Foundation; either version 2 of the +## License, or (at your option) any later version. +## +## The CDSware is distributed in the hope that it will be useful, but +## WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +## General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with CDSware; if not, write to the Free Software Foundation, Inc., +## 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + +#include "cdspage.wml" \ + title="Create a new action" \ + navtrail_previous_links="/admin/> > /admin/websubmit/>" \ + navbar_name="admin" \ + navbar_select="websubmit" \ + cdspageboxlefttopadd="" + + +## $Id$ +## DO NOT EDIT THIS FILE! IT WAS AUTOMATICALLY GENERATED FROM CDSware WML SOURCES. +?> + + + +\n\n

Below, is " + . "a form in which you can enter the details of a new action." + . "

When you enter a new action, it will not be " + . "accepted by the system unless you have given it a unique " + . "\"Action Code\".
" + . "
You can commit this new action to the database by " + . "clicking on \"SAVE DETAILS\".

\n\n\n" + . "\n"); + + # Make a horizontal rule to divide the page sections... + drawSeparator(); + + print("
\n" + . "\n" + . "\n"); + + # Get the columns list + $columns = mysql_list_fields(DOCS_DATABASE, "sbmACTION"); + + # Get the number of fields + $numTblFlds = mysql_num_fields($columns); + + # Get the data, so that it can be committed for the modification + # date field (md)... + $dateDets = makeEDSmdDate(); + + # Now display the upper part of the table - fields that are system + # generated... + print("
\n\n\n\n\n\n\n\n\n"); + + # Now create the fields that the user can edit... + + # Make the sactname field... + print("\n\n\n\n"); + + for($indx = 0; $indx < $numTblFlds; $indx++) + { + # Get the name of the current field... + $currentField = mysql_field_name($columns, $indx); + + # Ensure we dont once again print certain fields + if(($currentField != "cd") && ($currentField != "md") + && ($currentField != "sactname")) + { + # First display the form field label... + print("\n\n\n\n"); + } // END if + } // END for + + # Now that the table has been created, it can be closed... + print("
\nCreation " + . "Date: \n
\nModification " + . "Date: \n
\n" + . "Action Code: \n\n
\n"); + + if($currentField == "lactname") + { + print("Action Description: "); + } // END if + else + { + print("$currentField" . ": "); + } // END else + + print(" \n\n
\n"); + + # Now make the commit buttons that must be used for the form... + print("" + . "\n\n\n\n\n\n\n
\n\n\n\n
\n\n
\n"); + } // END function enterEDSaction() + + + function displayPage() + { + global $commitAct,$sactname,$lactname,$dir,$actionbutton,$statustext; + + if($commitAct) + { + # In this case, the user has entered the details of the new + # action, and these details should be committed to the DB. + + # Make sure the sactname field is uppercase... + $sactname = strtoupper($sactname); + + # First we can ensure that there is not already an action in the + # DB with the same name as that given to the new action... + + # Lock table + mysql_query("LOCK TABLES sbmACTION READ"); + + $checkRes = mysql_query("SELECT sactname FROM sbmACTION WHERE " + . "sactname = '$sactname'"); + + if($checkRes) + { + # In this case, the query has worked , so carry on... + + if(mysql_num_rows($checkRes) != 0) + { + # Ah-Hah! They have tried to add an action whose ID Code + # is already in use! + + mysql_query("UNLOCK TABLES"); + # Let the check result go... + mysql_free_result($checkRes); + + # Give them an explanatory error message... + print("

Unable To Commit These" + . " Details. The Action Code Used Already Exists. Try " + . "Again With A New Code.

\n"); + + # Now a JavaScript alert... + print("\n"); + + # Now redisplay the page... + enterEDSaction($lactname, $dir, $actionbutton, + $statustext); + } // END if + else + { + # The details should now be fine to commit... + + # Unlock tables. + mysql_query("UNLOCK TABLES"); + # Let the previous result set go... + mysql_free_result($checkRes); + + # Make the insert string... + $updStr = "INSERT INTO sbmACTION (lactname, sactname, dir, " + . "cd, md, actionbutton, statustext) VALUES" + . "('$lactname', '$sactname', '$dir', '$cd', '$md', " + . "'$actionbutton', '$statustext')"; + + # LOCK sbmACTION table as write. + mysql_query("LOCK TABLES sbmACTION WRITE"); + + # Commit the details... + $updRes = mysql_query($updStr); + + if($updRes) + { + # Query worked... + if(mysql_affected_rows() == 1) + { + # Insertion successful...alert user, email admin, and + # redirect browser... + + # UNLOCK TABLES. + mysql_query("UNLOCK TABLES"); + + print("\n"); + + print("

The New Action Has Been Added." + . "

\n"); + + $msgTxt = "A new action has been added to the " + . DOCS_DATABASE; + + $msgTxt .= " database."; + + $msgTxt .= " This action is the $sactname " + . "action.\n\n"; + + $msgTxt .= "MESS Administrator ("; + $msgTxt .= makeDate(); + $msgTxt .= ")"; + + # Now send the mail.. + mail(ADMIN_EMAIL, "$sactname Action Added to " + . "EDS/MESS", $msgTxt, + "From: WebSubmit_Administrator"); + + # Redirect the browser... + print("
\n" + . "
\n"); + + print("\n"); + } // END if + else + { + # Unable to add the thing... + + # Now unlock the ACTION table. + mysql_query("UNLOCK TABLES"); + + # Alert the user... + print("

Unable To " + . "Commit These Details. Try Again Later.

\n"); + + print("\n"); + + # Redisplay the form - with the details... + enterEDSaction($lactname, $dir, $actionbutton, + $statustext, $sactname); + } // END else + } // END if + else + { + # Couldn't execute insert query + + # Now unlock the sbmACTION table. + mysql_query("UNLOCK TABLES"); + + # Alert the user... + print("

Unable To " + . "Execute The Query To Commit These Details. Try " + . "Again Later.

\n"); + + print("\n"); + + # Redisplay the form - with the details... + enterEDSaction($lactname, $dir, $actionbutton, + $statustext, $sactname); + } // END else + } // END else + } // END if + else + { + # In this case, we were unable to read from the sbmACTION table + # to see if there was already a record withthe same action + # code as the action that we have just attempted to add. We + # should therefore not try to add the new action, incase we + # cause key inconsistencies in the sbmACTION table. Instead, + # simply redisplay the form, with the new action data in it. + + # Unlock tables. + mysql_query("UNLOCK TABLES"); + + # Alert the user of the problem... + print("

Unable To Commit These Details." + . " Try Again Later.

\n"); + + print("\n"); + + # Now redisplay the form... + enterEDSaction($lactname, $dir, $actionbutton, + $statustext, $sactname); + } // END else + } // END if + else + { + # In this case, this is the first call to the page, so we should + # just display the form in which the new action will be entered. + + enterEDSaction(); + } // END else + } + + + /**********************Start of main script***************************/ + + # Connect to the MySQL server + serverConnect(MYSQLDOCMACHINE, MYSQLDOCUSERID, MYSQLDOCPASSWORD); + + # Select the CDS Search database... + dbSelect(DOCS_DATABASE); + + if (!canUseWebSubmitAdmin($uid)) + outWarning("You are not allowed to access WebSubmit Admin for this " + . "type of documents"); + else + displayPage(); + + /************************End of main script***************************/ + + +?> diff --git a/modules/websubmit/web/admin/addCheckEDS.php.wml b/modules/websubmit/web/admin/addCheckEDS.php.wml new file mode 100644 index 000000000..bd78329f8 --- /dev/null +++ b/modules/websubmit/web/admin/addCheckEDS.php.wml @@ -0,0 +1,251 @@ +## $Id$ + +## This file is part of the CERN Document Server Software (CDSware). +## Copyright (C) 2002 CERN. +## +## The CDSware is free software; you can redistribute it and/or +## modify it under the terms of the GNU General Public License as +## published by the Free Software Foundation; either version 2 of the +## License, or (at your option) any later version. +## +## The CDSware is distributed in the hope that it will be useful, but +## WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +## General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with CDSware; if not, write to the Free Software Foundation, Inc., +## 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + +#include "cdspage.wml" \ + title="Add a javascript checking function" \ + navtrail_previous_links="/admin/> > /admin/websubmit/>" \ + navbar_name="admin" \ + navbar_select="websubmit_listchecks" \ + cdspageboxlefttopadd="" + + +## $Id$ +## DO NOT EDIT THIS FILE! IT WAS AUTOMATICALLY GENERATED FROM CDSware WML SOURCES. + + /********************Function Declarations****************************/ + + function makeChecksInputFormEDS($chdesc = "", $chname = "") + { + /******************************************************************* + This function has the task of displaying a form for the inputting + of a new check. The function is passed 3 variables. These are + the $link variable, the $chdesc variable (which is the + description of the check i.e. the actual JavaScript code itself), + and the chname variable (which is the unique name of the check. + The chdesc and chname variables can be defaulted to nothing when + they are left out. This is because depending upon certain error + conditions when we attempt to add a check, we may want to refuse + committment of the check, and redisplay the form with its details + for certain parts to be changed. + + Author: Nicholas Robinson + Email: Nicholas.Robinson@cern.ch + ca8nro@yahoo.co.uk + Created: 18/12/2000 + Last Modified: 18/12/2000 + *******************************************************************/ + + + # Provide a quick description of the pages function... + print("\n\n\n
\n

Below, is a" + . " form that allows you to add a new check to EDS.

" + . "An EDS check is a checking function written in JavaScript" + . " that can be applied to a given EDS submission page or " + . "element(s),
to perform some sort of validation task." + . "

It is important that when you create new EDS " + . "checks, you do not give them a name that is already in " + . "use, as the check name must
be unique due to the fact " + . "that it is used to identify a given check when the EDS " + . "system attempts to use it.

When the check has been " + . "written in the text area provided (Check Description), " + . "click on the \"SAVE DETAILS\" button
to commit this new" + . " check to EDS.

\n
\n"); + + # Make a horizontal rule to divide the page sections... + drawSeparator(); + + # Get the current date... + $modifiedDate = makeEDSmdDate(); + + # Get a list of the fields in the sbmCHECKS table + $columns = mysql_list_fields(DOCS_DATABASE, "sbmCHECKS"); + + # Now begin making the form... + print("\n\n" + . "\n" + . "\n\n\n" + . "\n\n\n\n\n\n\n" + . "\n\n\n\n\n
Creation " + . "Date: 
Modificat" + . "ion Date: " + . "
Check Name: \n
Check Description:" + . " <" + . "TEXTAREA COLS=50 ROWS=20 NAME='chdesc'>$chdesc" + . "
\n"); + + # Now make a table to contain a set of buttons for the submission of + # the form, resetting of the form, and cancelling of a check + # addition (this will send the browser back to "allChecksEDS.php"). + + print("" + . "\n\n\n\n\n\n" + . "\n\n
" + . "
\n"); + } // END function makeChecksInputFormEDS() + + function displayPage() + { + global $addIt,$chname,$chdesc; + + if($addIt) + { + # In this case, the user has filled in the form to add a new + # check, and has submitted it... + + # The first thing to do is to run a quick query to ensure that + # there is not already a check with the same name as that that we + # have just entered... + $quickRes = mysql_query("SELECT chname FROM sbmCHECKS WHERE chname " + . "= '$chname'"); + + if($quickRes) + { + # Query successful + if(mysql_num_rows($quickRes) != 0) + { + # Check name already used...redisplay form, with the check + # in it + print("

" + . "ERROR: Checkname Entered Already Exists. Try " + . "Another.

\n"); + + makeChecksInputFormEDS($chdesc); + } // END if + else + { + # Checkname not used, so commit these new details to the + # database + + # free the above result for speeds sakes. + mysql_free_result($quickRes); + + # Build an insert query string... + $insStr = "INSERT INTO sbmCHECKS (chname, chdesc, cd, md, " + . "chefi1, chefi2) VALUES('$chname', '$chdesc', '$cd', " + . "'$md', '', '')"; + + # Execute this query... + $insRes = mysql_query($insStr); + + if($insRes) + { + # The new check has been entered into the database! + # Inform the user & the administrator, and redirect the + # browser to "allChecksEDS.php". + + print("\n"); + + $msgTxt = "The $chname check has been added to the EDS " + . "Database.\n\nWebSubmit Administrator ("; + $msgTxt .= makeDate(); + $msgTxt .= ")"; + + # Now send the mail.. + mail(ADMIN_EMAIL, "EDS: $chname Check Added", + $msgTxt, "From: WebSubmit_Administrator"); + + # Make a background... + print("

The $chname Check Has Been Added To " + . DOCS_DATABASE . "

\n"); + + # Redirect the browser + print("\n\n"); + + print("\n"); + } // END if + else + { + # The insert query has failed for some reason. + + print("\n"); + + makeChecksInputFormEDS($chdesc); + } // END else + } // END else + } // END if + else + { + # In this case, we were unable to read from the sbmCHECKS table + # to see if there was already a check with the name of the + # current check. This means that we should not try to commit + # the new check, simply redisplay the form with the check + # details in it, and display an error message to the user... + + print("\n"); + + # Redisplay the form wih all of the details in it... + makeChecksInputFormEDS($chdesc, $chname); + } // END else + } // END if + else + { + # In this case, this is the first call to this script, so it can + # simply display the form in which the details of the new + # JavaScript check can be entered... + + makeChecksInputFormEDS(); + } // END else + } + + /**********************Start of main script***************************/ + + # Connect to the MySQL server + serverConnect(MYSQLDOCMACHINE, MYSQLDOCUSERID, MYSQLDOCPASSWORD); + + # Select the CDS Search database... + dbSelect(DOCS_DATABASE); + + if (!canUseWebSubmitAdmin($uid)) + outWarning("You are not allowed to access WebSubmit Admin for this " + . "type of documents"); + else + displayPage(); + + /************************End of main script***************************/ + + +?> diff --git a/modules/websubmit/web/admin/addElement2PageEDS.php.wml b/modules/websubmit/web/admin/addElement2PageEDS.php.wml new file mode 100644 index 000000000..50ab690ae --- /dev/null +++ b/modules/websubmit/web/admin/addElement2PageEDS.php.wml @@ -0,0 +1,787 @@ +## $Id$ + +## This file is part of the CERN Document Server Software (CDSware). +## Copyright (C) 2002 CERN. +## +## The CDSware is free software; you can redistribute it and/or +## modify it under the terms of the GNU General Public License as +## published by the Free Software Foundation; either version 2 of the +## License, or (at your option) any later version. +## +## The CDSware is distributed in the hope that it will be useful, but +## WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +## General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with CDSware; if not, write to the Free Software Foundation, Inc., +## 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + +#include "cdspage.wml" \ + title="Add Element to Page " \ + navtrail_previous_links="/admin/> > /admin/websubmit/>" \ + navbar_name="admin" \ + navbar_select="websubmit" \ + cdspageboxlefttopadd="" + + +## $Id$ +## DO NOT EDIT THIS FILE! IT WAS AUTOMATICALLY GENERATED FROM CDSware WML SOURCES. +?> + + +alert('ERROR: Unable" + . " to update the Modification Date field for this " + . "submission
in the sbmIMPLEMENT table.');\n"); + } // END else + + # Update the md field for our doctype + updateEDSDOCTYPEmd($doctype, $md); + + # Now output a message on screen informing the user that the + # update has been completed + print("

The New Element Has Been Added" + . "

\n"); + + # Now output a javascript alert saying more or less the same, in + # a little more detail + print("\n"); + + # Now make a message and send it to the system administrator to + # inform them that this element addition has taken place. + $msgTxt = "A new element has been added to page $pageNumber of " + . "the $subname submission of the $doctype document type. " + . "This new element is an instance of the $fidesc element " + . "description, and was inserted into position $fieldnb." + . "\n\nWebSubmit Administrator ("; + + $msgTxt .= makeDate(); + $msgTxt .= ")"; + + # Now send the mail.. + mail(ADMIN_EMAIL, "$fidesc Element added to $subname page " + . "$pageNumber", $msgTxt, "From: WebSubmit_Administrator"); + + # Now redirect the browser to "pageDetsEDS.php" + sendToPageDets($subname, $pageNumber, $nPgs, $doctype); + } // END if + else + { + # In this case, the query to insert the new details has failed. + # This means that we must warn the user of this problem, warn the + # administrator by email, and then redirect the page back to the + # "pageDetsEDS.php" page. + + # Now output a message on screen informing the user that the + # update has been completed + print("

ERROR:" + . " Unable To Add This Element To The $subname" + . " Submission

\n"); + + # Now output a javascript alert saying more or less the same, in + # a little more detail + print("\n"); + + # Now make a message and send it to the system administrator to + # inform them that this element addition has taken place. + $msgTxt = "An error ocurred when attempting to add the " + . "$fidesc element to page $pageNumber of " + . "the $subname submission of the $doctype document type. " + . "This error meant that it was not possible to commit the " + . "details for this new element to the sbmFIELD table, and " + . "therefore the element has not been added.\n\nThere may be" + . " a problem with the sbmFIELD table, and this situation should" + . " be looked into as soon as possible.\n\nWebSubmit Administrator " + . "("; + + $msgTxt .= makeDate(); + $msgTxt .= ")"; + + # Now send the mail.. + mail(ADMIN_EMAIL, "ERROR: Unable To Add $fidesc Element To " + . "$subname Page $pageNumber", + $msgTxt, "From: WebSubmit_Administrator"); + + # Now redirect the browser to "pageDetsEDS.php" + sendToPageDets($subname, $pageNumber, $nPgs, $doctype); + } // END else + } // END function procInsrtn() + + //************ + + function charSmaller($chr, $datum) + { + /************************************************************** + This function simply compares 2 values to see if a character + ($chr) is smaller than a given other character ($datum). It was + written because I wanted to split a " + . "\n\n" + . "\n" + . "\n\n\n\n\n
\nElement Description Code: \n"); + + # We are going to have 3 select boxes (1 for a-h, 1 for i-p + # and 1 for p-z), because there are so many elements. + + # Get the number of elements returned by query + $numEles = mysql_num_rows($qRes); + + # Put all elements as returned by the query into a 2d array + $eles = resToArray($qRes); + + # ****************Make the 1st select list***************** + + print(""); + + print(" "); + + # ****************Make the 2nd select list***************** + + print(""); + + print(" "); + + # ****************Make the 3rd select list***************** + + print(""); + + # Now close up the newly created listbox + print("\n
\n"); + + # Now, we can present the user with the form in which they can + # fill in the details that will be committed to the sbmFIELD + # table... + + # Get the date for the created date & modification date + $theDate = makeEDSmdDate(); + + # Get information about all of the fields in the fitext table + $cols = mysql_list_fields(DOCS_DATABASE, "sbmFIELD"); + + print("
\n\n\n\n\n\n\n\n\n\n<" + . "TH ALIGN='right' WIDTH='25%' BGCOLOR='#D3DCE3'>Creation D" + . "ate: \n\n\n\n\n\n\n\n" + . "\n\n\n\n\n\n
Submission Code: 
Page Number: \n\n
Field Number: 
" + . "
Modification Date: 
Element Label: " + . "<" + . "INPUT TYPE='text' NAME='fitext' SIZE=40 VALUE='" + . ereg_replace("'", "'", htmlspecialchars($fitext)) + . "'>
Level: 
Short Desc: 
Check: "); + + # Now, we wish to use a select list of checks to ensure that + # the user can only select checks that are already stored in + # the EDS DB. Therefore, we need to query sbmCHECKS. + + if($chksRes = mysql_query("SELECT chname FROM sbmCHECKS ORDER " + . "BY chname")) + { + # Query fine. + if(mysql_num_rows($chksRes) > 0) + { + # Checks to be put into a select box...good! + + print("\n"); + } // END if + else + { + # No checks stored in DB! Offer link to add a check page + + print("There are " + . "currently no " . DOCS_DATABASE . " checks.  " + . "Add.\n"); + } // END else + } // END if + else + { + # Can't query for checks, therefore can't add any! + print("Unable to retrieve " + . "details of checks from " . DOCS_DATABASE . ".  " + . "Try adding check later.\n"); + } // END else + + # Close the current table cell + print("
"); + + # Now that we have finished displaying the input fields of the + # form, we can produce some buttons....1 for submitting the + # form, 1 for resetting the form, and 1 for cancelling the + # action (i.e. not adding a new element at all) - this button + # will return you to the "pageDetsEDS.php" page. + + print("\n\n\n\n\n\n\n\n\n\n\n\n\n
\n\n" + . "\n\n" + . "" + . "\n
\n"); + } // END else + } // END if + else + { + # In this case, the query to retrieve the descriptions of all + # elements has failed, so we can display an error message + # indicating this and redirect the browser to the + # "pageDetsEDS.php" page + + # Display an error message about this... + print("

" + . "ERROR: It was not possible to retrieve the details of " + . "the element descriptions from the sbmFIELDDESC " + . "table.
Unable to add element.

\n"); + + # Now display a JavaScript alert saying more or less the same as + # the above message... + + print("\n"); + + # Now redirect the browser + sendToPageDets($subname, $pageNumber, $nPgs, $doctype); + } // END else + } // END function makeEleForm() + + +function displayPage() +{ + global $insertElement,$fidesc_A,$fidesc_B,$fidesc_C,$subname,$pageNumber,$nPgs,$doctype,$fieldnb,$fitext,$level,$sdesc,$checkn,$noElements; + + # The first thing to do is to work out what sort of call to the script + # this is. It can either be a first call whereby the form to fill in + # must be displayed, or a self-referential call, whereby the new + # element must actually be inserted into the sbmFIELD table. + + if(isset($insertElement)) + { + # In this case, this call to the page is a call to insert the new + # element details. We must however perform certain tests to ensure + # values have been filled/selected, just incase our JavaScript + # failed (Likely!). + + # Free the $insertElement value... + unset($insertElement); + + # Now ensure that the value of "level" is in upper case... + $level = strtoupper($level); + + if($fidesc_A == "--X--" && $fidesc_B == "--X--" && + $fidesc_C == "--X--") + { + # No element descr code selected + print("

\nNo Element Description " + . "Code Was Selected\n

\n"); + + # Redisplay the form for re-entry. + makeEleForm($subname, $pageNumber, $nPgs, $doctype, + $fieldnb - 1, $fitext, $level, $sdesc, $checkn); + } // END if + elseif($fidesc_A != "--X--") + { + # Perfect...we take the left-most, which in this case is + # $fidesc_A, so it does not matter if $fidesc_B or $fidesc_C + # are selected or not - we don't care. + + if($level == "M" || $level == "O") + { + # $level checks out. + procInsrtn($subname, $pageNumber, $fieldnb, $fidesc_A, + $fitext, $level, $sdesc, $checkn, $cd, $md, $doctype, + $nPgs); + } // END if + else + { + # Level doesn't check out + print("

\nThe Value of the Level " + . "Field Must be \"M\" or \"O\"\n

\n"); + + # Redisplay input form + makeEleForm($subname, $pageNumber, $nPgs, $doctype, + $fieldnb - 1, $fitext, "", $sdesc, $checkn, + "fidesc_A", $fidesc_A); + } // END else + } // END elseif + elseif($fidesc_A == "--X--" && $fidesc_B != "--X--") + { + # Here, $fidesc_A has not been selected, but $fidesc_B has + # been, meaning that $fidesc_B is the leftmost, and we don't + # care whether or not $fidesc_C has been selected - we take B + + if($level == "M" || $level == "O") + { + # $level checks out. + procInsrtn($subname, $pageNumber, $fieldnb, $fidesc_B, + $fitext, $level, $sdesc, $checkn, $cd, $md, $doctype, + $nPgs); + } // END if + else + { + # $level doesn't check out + print("

\nThe Value of the Level " + . "Field Must be \"M\" or \"O\"\n

\n"); + + # Redisplay input form + makeEleForm($subname, $pageNumber, $nPgs, $doctype, + $fieldnb - 1, $fitext, "", $sdesc, $checkn, + "fidesc_B", $fidesc_B); + } // END else + } // END elseif + else + { + # $fidesc_C must be the only one selected + + if($level == "M" || $level == "O") + { + # $level checks out. + procInsrtn($subname, $pageNumber, $fieldnb, $fidesc_C, + $fitext, $level, $sdesc, $checkn, $cd, $md, $doctype, + $nPgs); + } // END if + else + { + # Level doesn't check out + print("

\nThe Value of the Level " + . "Field Must be \"M\" or \"O\"\n

\n"); + + # Redisplay input form + makeEleForm($subname, $pageNumber, $nPgs, $doctype, + $fieldnb - 1, $fitext, "", $sdesc, $checkn, + "fidesc_C", $fidesc_C); + } // END else + } // END else + } // END if + else + { + # In this case, this is the first call to the page, and it is + # necessary to display the form in which the user can enter the + # details of the new element for the given page of the given + # submission of the given doctype. + + makeEleForm($subname, $pageNumber, $nPgs, $doctype, + $noElements); + } // END else +} + + + /**********************Start of main script***************************/ + + # Connect to the MySQL server + serverConnect(MYSQLDOCMACHINE, MYSQLDOCUSERID, MYSQLDOCPASSWORD); + + # Select the CDS Search database... + dbSelect(DOCS_DATABASE); + + if (!canUseWebSubmitAdmin($uid,$doctype)) + outWarning("You are not allowed to access WebSubmit Admin for this " + . "type of documents"); + else + displayPage(); + + /************************End of main script***************************/ + + +?> diff --git a/modules/websubmit/web/admin/addElementDescrEDS.php.wml b/modules/websubmit/web/admin/addElementDescrEDS.php.wml new file mode 100644 index 000000000..311ffefea --- /dev/null +++ b/modules/websubmit/web/admin/addElementDescrEDS.php.wml @@ -0,0 +1,995 @@ +## $Id$ + +## This file is part of the CERN Document Server Software (CDSware). +## Copyright (C) 2002 CERN. +## +## The CDSware is free software; you can redistribute it and/or +## modify it under the terms of the GNU General Public License as +## published by the Free Software Foundation; either version 2 of the +## License, or (at your option) any later version. +## +## The CDSware is distributed in the hope that it will be useful, but +## WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +## General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with CDSware; if not, write to the Free Software Foundation, Inc., +## 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + +#include "cdspage.wml" \ + title="Add an element description" \ + navtrail_previous_links="/admin/> > /admin/websubmit/>" \ + navbar_name="admin" \ + navbar_select="websubmit_listelements" \ + cdspageboxlefttopadd="" + + +## $Id$ +## DO NOT EDIT THIS FILE! IT WAS AUTOMATICALLY GENERATED FROM CDSware WML SOURCES. + + /*********************Function Descriptions***************************/ + + function enterEDSelementDescr($elename = "", $alephcode = "", + $size = "", $rows = "", $cols = "", $maxlength = "", $val = "", + $fidesc = "", $cookie = 0, $type = "") + { + /******************************************************************* + This function has the task of creating the form that allows a + user to enter the details of a new element description. + + Author: Nicholas Robinson + Email: Nicholas.Robinson@cern.ch + ca8nro@yahoo.co.uk + Created: 10/01/2001 + Last Modified: 08/02/2001 + *******************************************************************/ + + + # Now, display a quick set of page instructions for the user.. + print("\n\n" + . "\n
\n

Below, is " + . "a form in which you can enter the details of a new " + . "element description." + . "

When you enter a new element description, it will " + . "not be accepted by the system unless you have given it a " + . "unique
\"Element Name\".
" + . "
You can commit this new element description to the " + . "database by clicking on \"SAVE DETAILS\".

\n
\n"); + + # Make a horizontal rule to divide the page sections... + drawSeparator(); + + print("
\n" + . "\n" + . "\n"); + + # Get the columns list + $columns = mysql_list_fields(DOCS_DATABASE, "sbmFIELDDESC"); + + # Get the number of fields + $numTblFlds = mysql_num_fields($columns); + + # Get the data, so that it can be committed for the modification + # date field (md)... + $dateDets = makeEDSmdDate(); + + # Now display the upper part of the table - fields that are system + # generated... + print("
"); + + # Now create the fields that the user can edit... + + # Make the name field... + print("\n\n\n\n"); + + # Make the type field... + + print("\n\n\n" + . "\n"); + + for($indx = 0; $indx < $numTblFlds; $indx++) + { + # Get the name of the current field... + $currentField = mysql_field_name($columns, $indx); + + # Ensure we dont once again print certain fields + if(($currentField != "cd") && ($currentField != "md") + && ($currentField != "name") && ($currentField != "type") + && ($currentField != "cookie") && ($currentField != "fddfi1") + && ($currentField != "fddfi2")) + { + # First display the form field label... + print("\n\n\n\n"); + } // END if + } // END for + + print("\n\n\n
\n" + . "Element Name " + . "(Req'd): \n\n
\n" + . "Element Type (Req'd): " + . "\n" + . "\n
\n"); + + if($currentField == "alephcode") + { + print("Aleph Code " + . ":"); + } // END if + elseif($currentField == "marccode") + { + print("Marc Code:"); + } // END elseif + elseif($currentField == "size") + { + print("Size (Text" + . "):"); + } // END elseif + elseif($currentField == "rows") + { + print("No. Rows (TextArea)" + . ":"); + } // END elseif + elseif($currentField == "cols") + { + print("No. Cols (TextArea)" + . ":"); + } // END elseif + elseif($currentField == "maxlength") + { + print("Max Length (Text)" + . ":"); + } // END elseif + elseif($currentField == "val") + { + print("Value (Text" + . "/Hidden):"); + } // END elseif + elseif($currentField == "fidesc") + { + print("Item Description " + . "(User Defined):"); + } // END elseif + else + { + print("$currentField:"); + } // END else + + print(" \n"); + + if($currentField == "fidesc") + { + # Here, we ought to make a textarea for fidesc... + + print("\n"); + } // END if + else + { + # Just a normal text input will do... + + print("\n"); + } // END else + + print("
\n" + . "Sets Cookie?: "); + + printCookie($cookie); + + # Close up the cookie row, and the table! + print("\n
\n"); + + # Now make the commit, reset, and cancel buttons for the form... + print("" + . "\n\n\n\n\n\n\n
\n\n\n\n
\n\n
" + . "\n"); + } // END enterEDSelementDescr() + + //************ + + function charIsInt($thing) + { + /******************************************************************* + This function tests to see if a string only contains integer + characters. + + Author: Nicholas Robinson + Email: Nicholas.Robinson@cern.ch + ca8nro@yahoo.co.uk + Created: 11/01/2001 + Last Modified: 11/01/2001 + *******************************************************************/ + + # Reset an error flag + $errorFlag = 0; + + # get the length of the string.. + $len = strlen($thing); + + for($i = 0; $i < $len; $i++) + { + if($thing[$i] < "0" || $thing[$i] > "9") + { + $errorFlag = 1; + break; + } // END if + } // END for + + # Return true/false depending upon string status + return ($errorFlag == 1) ? false : true; + } // END function charIsInt($thing) + + //******** + + function insertBon($elename) + { + /******************************************************************* + This function has the task of displaying a message on the screen + to say that the insertion of the new element was successful. It + also displays a button to click to send the browser to the page + displaying the details of the new element description. + + Author: Nicholas Robinson + Email: Nicholas.Robinson@cern.ch + ca8nro@yahoo.co.uk + Created: 11/01/2001 + Last Modified: 11/01/2001 + *******************************************************************/ + + print("

Element Added.
Click To View details." + . "

\n
\n\n\n\n\n\n\n
\n\n
\n
" + . "\n\n"); + + } // END function insertBon() + + //*********** + + function insertMal() + { + /******************************************************************* + This function handles the situation whereby the insert of the new + element description has failed, and we wish to inform the user, + and provide a button to click to goto the list all element + descriptions page. + + Author: Nicholas Robinson + Email: Nicholas.Robinson@cern.ch + ca8nro@yahoo.co.uk + Created: 12/01/2001 + Last Modified: 12/01/2001 + *******************************************************************/ + + print("

\nERROR:" + . " Unable to insert new element description.

\n" + . "\n\n\n" + . "\n
\n" + . "
\n\n
\n
\n"); + print mysql_error(); + } // END function insertMal() + + //************ + + function emailRecord($elename) + { + /******************************************************************* + Since it is necessary to email the admin informing them about the + success of the addition of a new element description, this + function has been written, which does just that. + + Author: Nicholas Robinson + Email: Nicholas.Robinson@cern.ch + ca8nro@yahoo.co.uk + Created: 11/01/2001 + Last Modified: 25/01/2001 + *******************************************************************/ + + $msgTxt = "A new element description was successfully added to the " + . DOCS_DATABASE . " database. This was the $elename element " + . "description.\n\nWebSubmit Administrator. ("; + + $msgTxt .= makeDate(); + $msgTxt .= ")"; + + # Now send the mail.. + mail(ADMIN_EMAIL, "$elename Element Description Added", + $msgTxt, "From: WebSubmit_Administrator"); + } // END function emailRecord($elename) + + + function displayPage() + { + global $commitElement,$elename,$alephcode,$size,$rows,$cols,$maxlength,$val,$fidesc,$cookie,$type; + + if($commitElement) + { + # In this case, this is a self-referential call to the form, and + # it is time to process the addition of the new element. + + # Carry out some form validation (I'm not using JavaScript any + # more for this, as it is rubbish), and take the relevant action + # based upon the resuts... + + if($type == "NONE_SELECTED") + { + # In this case, the user has not selected a type for the new + # element. Therefore redisplay the form with the values in + # that they have already entered. + + print("

Selection Of Element " + . "Type is Mandatory.

\n"); + + enterEDSelementDescr($elename, $alephcode, $size, + $rows, $cols, $maxlength, stripslashes($val), + stripslashes($fidesc), $cookie); + } // END if + else + { + # The element type was selected, but we must now ensure that + # the other various field combos were correct... + + if(!$elename) + { + # User has not input the element name, or aleph code. + print("

The Element Name " + . "Field Is Mandatory.

\n"); + + enterEDSelementDescr($elename, $alephcode, $size, + $rows, $cols, $maxlength, stripslashes($val), + stripslashes($fidesc), $cookie, $type); + } // END if + else + { + if(!test_key_legal($elename)) + { + # Damn...invalid characters in either the alephcode or + # the element name... + + print("

The Element Name " + . "May Only Contain Alphabetical" + . " Characters, Integer Digits or Underscores.

\n"); + + enterEDSelementDescr("", $alephcode, $size, + $rows, $cols, $maxlength, stripslashes($val), + stripslashes($fidesc), $cookie, $type); + } // END if + else + { + # General Mandatory fields all filled correctly. Now + # make specialised tests... + + if($type == "T") + { + # Element is TextArea - can have rows and cols. + + if($rows) + { + if(!charIsInt($rows)) + { + # Damn...user has given a non-int value for + # $rows + print("

The No. Rows Field Must Have" + . " an Integer Value.

"); + + # Make an error flag to mark this fact... + $rowsInvalid = true; + + enterEDSelementDescr($elename, + $alephcode, + $size, "", $cols, $maxlength, + stripslashes($val), stripslashes($fidesc), + $cookie, $type); + } // END if + } // END if + + if($cols && !$rowsInvalid) + { + if(!charIsInt($cols)) + { + # Damn...user has given a non-int value for + # $rows + print("

The No. Cols Field Must Have" + . " an Integer Value.

"); + + # Set an error flag to mark this failure + $colsInvalid = true; + + enterEDSelementDescr($elename, + $alephcode, $size, $rows, "", $maxlength, + stripslashes($val), + stripslashes($fidesc), $cookie, $type); + } // END if + } // END if + + if(!$rowsInvalid && !$colsInvalid) + { + # Well now. If we have reached this far, then the + # data for the TEXTAREA must all be present and + # valid, so we can finally make this new element + # description, and commit it to the DB. + + $insStr = "INSERT INTO sbmFIELDDESC (name, alephcode" + . ", marccode, type, size, rows, cols, maxlength, val, " + . "fidesc, cd, md, fddfi1, fddfi2, cookie) VALUES" + . "('$elename', '$alephcode', '$marccode', '$type', NULL, "; + + # Deal with rows + if(isset($rows) && $rows != "") + { + # A value was provided for rows... + $insStr .= "'$rows', "; + } // END if + else + { + # No value was provided for rows... + $insStr .= "NULL, "; + } // END else + + # Deal with cols + if(isset($cols) && $cols != "") + { + # A value was provided for rows... + $insStr .= "'$cols', "; + } // END if + else + { + # No value was provided for rows... + $insStr .= "NULL, "; + } // END else + + $insStr .= "NULL, NULL, NULL, '$cd', '$md', NULL," + . " NULL, '$cookie')"; + + # Execute the insertion + $insRes = mysql_query($insStr); + + if($insRes) + { + # In this case, the insertion of the new + # element description has been successful. + # Therefore we need to inform the user and + # redirect the browser. + + emailRecord($elename); + insertBon($elename); + } // END if + else + { + # If the insert failed... + insertMal(); + } // END else + } // END if + } // END if + elseif($type == "I") + { + # Element is HTML text input - needs size, maxlength, + # val + + if($size) + { + if(!charIsInt($size)) + { + # Damn...user has given a non-int value for + # $size + print("

The Size Field Must Have an" + . " Integer Value.

"); + + # Make a flag to mark this failure + $sizeFailed = true; + + enterEDSelementDescr($elename, + $alephcode, "", $rows, $cols, $maxlength, + stripslashes($val), stripslashes($fidesc), + $cookie, $type); + } // END if + } // END if + + if($maxlength && !$sizeFailed) + { + if(!charIsInt($maxlength)) + { + # User has given a non-int value for $maxlength + print("

" + . "The Max Length Field Must Have an " + . "Integer Value.

"); + + # Make a flag to mark this failure + $maxlengthFailed = true; + + enterEDSelementDescr($elename, + $alephcode, $size, $rows, $cols, "", + stripslashes($val), stripslashes($fidesc), + $cookie, $type); + } // END if + } // END if + + if(!$sizeFailed && !$maxlengthFailed) + { + # Well now. If we have reached this far, then the + # data for the input must all be present and + # valid, so we can finally make this new element + # description, and commit it to the DB. + + $insStr = "INSERT INTO sbmFIELDDESC (name, alephcode, marccode" + . ", type, size, rows, cols, maxlength, val, " + . "fidesc, cd, md, fddfi1, fddfi2, cookie) " + . "VALUES('$elename', '$alephcode', '$marccode', '$type', "; + + # Deal with size + if(isset($size) && $size != "") + { + # A value was provided for rows... + $insStr .= "'$size', "; + } // END if + else + { + # No value was provided for rows... + $insStr .= "NULL, "; + } // END else + + $insStr .= "NULL, NULL, "; + + # Deal with maxlength + if(isset($maxlength) && $maxlength != "") + { + # A value was provided for rows... + $insStr .= "'$maxlength', "; + } // END if + else + { + # No value was provided for rows... + $insStr .= "NULL, "; + } // END else + + # Deal with val + if(isset($val) && $val != "") + { + # A value was provided for rows... + $insStr .= "'$val', "; + } // END if + else + { + # No value was provided for rows... + $insStr .= "NULL, "; + } // END else + + $insStr .= "NULL, '$cd', '$md', NULL, NULL, " + . "'$cookie')"; + + # Execute the insertion + $insRes = mysql_query($insStr); + + if($insRes) + { + # In this case, the insertion of the new + # element description has been successful. + # Therefore we need to inform the user and + # redirect the browser. + + emailRecord($elename); + insertBon($elename); + } // END if + else + { + # Insert failed... + insertMal(); + } // END else + } // END if + } // END elseif + elseif($type == "H") + { + # Element is hidden - can have val + + $insStr = "INSERT INTO sbmFIELDDESC (name, alephcode, marccode, " + . "type, size, rows, cols, maxlength, val, fidesc, " + . "cd, md, fddfi1, fddfi2, cookie) VALUES('" + . "$elename', '$alephcode', '$marccode', '$type', NULL, NULL, " + . "NULL, NULL, "; + + # Deal with val + if(isset($val) && $val != "") + { + # A value was provided for rows... + $insStr .= "'$val', "; + } // END if + else + { + # No value was provided for rows... + $insStr .= "NULL, "; + } // END else + + $insStr .= "NULL, '$cd', '$md', NULL, NULL, " + . "'$cookie')"; + + # Execute the insertion + $insRes = mysql_query($insStr); + + if($insRes) + { + # In this case, the insertion of the new element + # description has been successful. Therefore we + # need to inform the user and redirect the + # browser. + + emailRecord($elename); + insertBon($elename); + } // END if + else + { + # Insert failed + insertMal(); + } // END else + } // END elseif + elseif($type == "F") + { + # Element is file - needs size, maxlength + + if($size) + { + if(!charIsInt($size)) + { + # Damn...user has given a non-int value for + # $size + print("

The Size Field Must Have " + . "an Integer Value.

"); + + # Make a flag to mark this failure + $sizeFailed = true; + + enterEDSelementDescr($elename, + $alephcode, "", $rows, $cols, $maxlength, + stripslashes($val), stripslashes($fidesc), + $cookie, $type); + } // END if + } // END if + + if($maxlength && !$sizeFailed) + { + if(!charIsInt($maxlength)) + { + # User has given a non-int value for $maxlength + print("

" + . "The Max Length Field Must Have an " + . "Integer Value.

"); + + # Make a flag to mark this failure + $maxlengthFailed = true; + + enterEDSelementDescr($elename, + $alephcode, $size, $rows, $cols, "", + stripslashes($val), stripslashes($fidesc), + $cookie, $type); + } // END if + } // END if + + if(!$sizeFailed && !$maxlengthFailed) + { + # Well now. If we have reached this far, then the + # data for the input must all be present and + # valid, so we can finally make this new element + # description, and commit it to the DB. + + $insStr = "INSERT INTO sbmFIELDDESC (name, alephcode" + . ", marccode, type, size, rows, cols, maxlength, val, " + . "fidesc, cd, md, fddfi1, fddfi2, cookie) " + . "VALUES('$elename', '$alephcode', '$marccode', '$type', "; + + # Deal with size + if(isset($size) && $size != "") + { + # A value was provided for rows... + $insStr .= "'$size', "; + } // END if + else + { + # No value was provided for rows... + $insStr .= "NULL, "; + } // END else + + $insStr .= "NULL, NULL, "; + + # Deal with maxlength + if(isset($maxlength) && $maxlength != "") + { + # A value was provided for rows... + $insStr .= "'$maxlength', "; + } // END if + else + { + # No value was provided for rows... + $insStr .= "NULL, "; + } // END else + + $insStr .= "NULL, NULL, '$cd', '$md', NULL, NULL," + . " '$cookie')"; + + # Execute the insertion + $insRes = mysql_query($insStr); + + if($insRes) + { + # In this case, the insertion of the new + # element description has been successful. + # Therefore we need to inform the user and + # redirect the browser. + + emailRecord($elename); + insertBon($elename); + } // END if + else + { + # Insert failed + insertMal(); + } // END else + } // END if + } // END elseif + elseif($type == "D") + { + # Element is user defined - needs fidesc + + $insStr = "INSERT INTO sbmFIELDDESC (name, alephcode, marccode, " + . "type, size, rows, cols, maxlength, val, fidesc, " + . "cd, md, fddfi1, fddfi2, cookie) VALUES('" + . "$elename', '$alephcode', '$marccode', '$type', NULL, NULL, " + . "NULL, NULL, NULL, "; + + $insStr .= "'$fidesc', '$cd', '$md', NULL, NULL, " + . "'$cookie')"; + + # Execute the insertion + $insRes = mysql_query($insStr); + + if($insRes) + { + # In this case, the insertion of the new element + # description has been successful. Therefore we + # need to inform the user and redirect the + # browser. + + emailRecord($elename); + insertBon($elename); + } // END if + else + { + # Insert failed + insertMal(); + } // END else + } // END elseif + elseif($type == "R") + { + # Element is of response type - needs fidesc + + $insStr = "INSERT INTO sbmFIELDDESC (name, alephcode, marccode, " + . "type, size, rows, cols, maxlength, val, fidesc, " + . "cd, md, fddfi1, fddfi2, cookie) VALUES('" + . "$elename', '$alephcode', '$marccode', '$type', NULL, NULL, " + . "NULL, NULL, NULL, "; + + $insStr .= "'$fidesc', '$cd', '$md', NULL, NULL, " + . "'$cookie')"; + + # Execute the insertion + $insRes = mysql_query($insStr); + + if($insRes) + { + # In this case, the insertion of the new element + # description has been successful. Therefore we + # need to inform the user and redirect the + # browser. + + emailRecord($elename); + insertBon($elename); + } // END if + else + { + # Insert failed + insertMal(); + } // END else + } // END elseif + elseif($type == "S") + { + # Element is user defined - needs fidesc + + $insStr = "INSERT INTO sbmFIELDDESC (name, alephcode, marccode, " + . "type, size, rows, cols, maxlength, val, fidesc, " + . "cd, md, fddfi1, fddfi2, cookie) VALUES('" + . "$elename', '$alephcode', '$marccode', '$type', NULL, NULL, " + . "NULL, NULL, NULL, "; + + $insStr .= "'$fidesc', '$cd', '$md', NULL, NULL, " + . "'$cookie')"; + + # Execute the insertion + $insRes = mysql_query($insStr); + + if($insRes) + { + # In this case, the insertion of the new element + # description has been successful. Therefore we + # need to inform the user and redirect the + # browser. + + emailRecord($elename); + insertBon($elename); + } // END if + else + { + # Insert failed + insertMal(); + } // END else + } // END elseif + else + { + # Oops! Element type invalid! We must deny + # commitment, and represent the form for the user to + # once again attempt to fill in. + + print("

Invalid " + . "Element Type is Mandatory.

\n"); + + enterEDSelementDescr($elename, $alephcode, + $size, $rows, $cols, $maxlength, + stripslashes($val), stripslashes($fidesc), + $cookie); + } // END else + } // END else + } // END else + } // END else + } // END if + else + { + # In this case, this is not a self-referential call to this page, + # and it is therefore time to display a form in which the user + # can enter the details of the element description... + + enterEDSelementDescr(); + } // END else + } + + + /**********************Start of main script***************************/ + + # Connect to the MySQL server + serverConnect(MYSQLDOCMACHINE, MYSQLDOCUSERID, MYSQLDOCPASSWORD); + + # Select the CDS Search database... + dbSelect(DOCS_DATABASE); + + if (!canUseWebSubmitAdmin($uid)) + outWarning("You are not allowed to access WebSubmit Admin for this " + . "type of documents"); + else + displayPage(); + + /************************End of main script***************************/ + + +?> diff --git a/modules/websubmit/web/admin/addFunctions.php.wml b/modules/websubmit/web/admin/addFunctions.php.wml new file mode 100644 index 000000000..a1e3e5c9b --- /dev/null +++ b/modules/websubmit/web/admin/addFunctions.php.wml @@ -0,0 +1,571 @@ +## $Id$ + +## This file is part of the CERN Document Server Software (CDSware). +## Copyright (C) 2002 CERN. +## +## The CDSware is free software; you can redistribute it and/or +## modify it under the terms of the GNU General Public License as +## published by the Free Software Foundation; either version 2 of the +## License, or (at your option) any later version. +## +## The CDSware is distributed in the hope that it will be useful, but +## WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +## General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with CDSware; if not, write to the Free Software Foundation, Inc., +## 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA. + +#include "cdspage.wml" \ + title="Add a functions for on $doctype";?>" \ + navtrail_previous_links="/admin/> > /admin/websubmit/>" \ + navbar_name="admin" \ + navbar_select="websubmit" \ + cdspageboxlefttopadd="" + + +## $Id$ +## DO NOT EDIT THIS FILE! IT WAS AUTOMATICALLY GENERATED FROM CDSware WML SOURCES. +?> + + +Functions of the $action action
on the $doctype" + . " document type\n"); + + if(mysql_num_rows($selQRes) > 0) + { + # If this clause has been reached, there are functions + # belonging to the current action on the given doctype, and + # therefore we can create a table to display them in for + # reference when adding the new function. + + # Get the fields names of the fields in the relevant functions + # table... + $tableFields = mysql_list_fields(DOCS_DATABASE, "sbmFUNCTIONS"); + + + print("\n"); + + # Display the column titles in the table + makeTableHeaderRow($tableFields, 2); + + print(""); + + # Now that the table headers have been displayed, it is + # possible to display the table body. + + makeTbleBdy($selQRes,2); + + # Now close the table, as it is finished. + print("
\n"); + + # Destroy all query result sets etc that are no longer needed + + mysql_free_result($tableFields); + + } // END if + else + { + # If this clause has been reached, it means that there are no + # functions belonging to the current action on the current + # doctype, and so we should just display a message stating + # this, as opposed to a table of functions. + + print("

The $action action on" + . " the $doctype
document type has no functions

"); + } // END else + } // END function createActFunsList($selQRes) + + //***************** + + + function makeTbleBdy($result, $forIndxStrt = 0) + { + /******************************************************************* + This function is a very simple function that creates the body of + a table, with no bells or whistles, by taking a result set, and + displaying each row of the result set in a row of the table. It + closes each row after it has been displayed. The function is + passed the $result variable, which contains the result set, and + the $forIndxStrt variable, which simply contains an integer, + allowing the function to commence each row at a given cell index. + + Author: Nicholas Robinson + Email: Nicholas.Robinson@cern.ch + Created: 10/10/2000 + Last Modified: 10/10/2000 + *******************************************************************/ + + # Get the number of fields in the result set + $numTblFlds = mysql_num_fields($result); + + while($dataRow = mysql_fetch_array($result)) + { + print("\n"); + + # Display each field in a given row... + + for($indx = $forIndxStrt; $indx < $numTblFlds; $indx++) + { + print("" + . ereg_replace("'", "'", + htmlspecialchars($dataRow[$indx])) + . "\n"); + } // END for + + # Now close up the table row... + print("\n"); + } // END while + } // END function + + //********************** + + + function pageFocusHome() + { + /****************************************************************** + This function is just a simple page to redirect the browser to + the prototype.php page (the administrators home page). + is the page that displays details of a document type and all of + its actions. The function makes a quick form with no inputs, but + an action of prototype.php. + It then pauses for 2 seconds, before submitting this form, and + hence calling the prototype.php script. + + This function uses client-side JavaScript to automatically submit + the form after a time delay. + + Author: Nicholas Robinson + Email: Nicholas.Robinson@cern.ch + Created: 04/09/2000 + Last Modified: 06/02/2001 + ******************************************************************/ + + # Make the invisible html form... + + print("
\n" + . "\n" + . "
\n"); + + # Now, pause for 2 seconds, and then submit the form... + + print("\n"); + + } // END function pageFocusHome() + + //*************** + + function makeSelectList($queryResult, $listName, $defaultCode, + $defaultText, $valueIndex, $textIndex) + { + /**************************************************************** + This function has the task of making a drop down list (type + SELECT in HTML). The list made is of course part of a form, but + this form is not made by this function. It is intended that this + function will be called after the form has been opened, and when + it is desired that a SELECT list be added to a form. + + This function is passed 6 variables upon calling. They are as + follows: + 1. $queryResult. This is the result of mysql_query - a select + query. + 2. $listName. This is the name that the SELECT list will be + given. + 3. $defaultCode. This is the default value of the first selected + item of the list. + 4. $defaultText. This is the text of the first default selected + item. + 5. $valueIndex. The values for each