Bug 11474: Remove errors caused by use of given/when statement
authorColin Campbell <colin.campbell@ptfs-europe.com>
Fri, 3 Jan 2014 10:47:23 +0000 (10:47 +0000)
committerGalen Charlton <gmc@esilibrary.com>
Mon, 6 Jan 2014 05:46:28 +0000 (05:46 +0000)
commit690fbfbb8aa97729f8eeb810e3ec91adbc15be50
tree0bae293147f311c777bbe2464b8c1807da5a513b
parente45edca42a44d094eabbd3347cc83b43cd2166f4
Bug 11474: Remove errors caused by use of given/when statement

This patch replaces a given/when statement by an if so we
do not get warnings on compilation when using Perl 5.18 or later.

Note the perldoc for the subroutine was not correct;
code was not testing that paramater equalled the values
but that it contained them. Have amended accordingly

Have documented behaviour in case parameter contains
neither value.

Subroutine does not appear to me used elsewhere in
codebase

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Passes all tests and QA script, especially t/DateUtils.t.

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
C4/Utils/DataTables.pm