Personal/drupal-civicrm
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

First commit

Browse source
This commit is contained in:
Theodotos Andreou 2018-01-14 13:10:16 +00:00
commit c6e2478c40
13918 changed files with 2303184 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

103
sites/all/modules/civicrm/packages/Validate/Finance.php Normal file
View file

@ -0,0 +1,103 @@
<?php
/* vim: set expandtab tabstop=4 shiftwidth=4: */
// +----------------------------------------------------------------------+
// | Copyright (c) 1997-2005 Stefan Neufeind |
// +----------------------------------------------------------------------+
// | This source file is subject to the New BSD license, That is bundled |
// | with this package in the file LICENSE, and is available through |
// | the world-wide-web at |
// | http://www.opensource.org/licenses/bsd-license.php |
// | If you did not receive a copy of the new BSDlicense and are unable |
// | to obtain it through the world-wide-web, please send a note to |
// | pajoye@php.net so we can mail you a copy immediately. |
// +----------------------------------------------------------------------+
// | Author: Tomas V.V.Cox <cox@idecnet.com> |
// | Pierre-Alain Joye <pajoye@php.net> |
// +----------------------------------------------------------------------+
//
/**
* Financial functions for validation and calculation
*
* @category Validate
* @package Validate_Finance
* @author Stefan Neufeind <pear.neufeind@speedpartner.de>
* @copyright 2005 The PHP Group
* @license http://www.opensource.org/licenses/bsd-license.php new BSD
* @version CVS: $Id: Finance.php,v 1.11 2005/11/01 13:12:30 pajoye Exp $
* @link http://pear.php.net/package/Validate_Finance
*/
/**
* Requires the IBAN Finance Validate class
*/
require_once 'Validate/Finance/IBAN.php';
/**
* Financial functions for validation and calculation
*
* This class provides methods to validate:
* - IBAN (international bankaccount number)
* - Euro banknote id
*
* @category Validate
* @package Validate_Finance
* @author Stefan Neufeind <neufeind@speedpartner.de>
* @copyright 1997-2005 Stefan Neufeind
* @license http://www.opensource.org/licenses/bsd-license.php new BSD
* @version Release: @package_version@
* @link http://pear.php.net/package/Validate_Finance
*/
class Validate_Finance
{
/**
* Validation of an IBAN (international bankaccount number)
*
* @param string $iban IBAN to be validated
* @access public
* @since 0.1
* @return boolean true if IBAN is okay
*/
function iban($iban = '')
{
return Validate_Finance_IBAN::validate($iban);
} // end func iban
/**
* Validation of a Euro banknote id
*
* @param string $banknote Euro banknote id to be validated
* @access public
* @since 0.1
* @return boolean true if Euro banknote id is okay
*/
function banknoteEuro($banknote = '')
{
$euro_countrycode = array('J', 'K', 'L', 'M', 'N', 'P', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');
if (strlen($banknote) != 12) {
return false;
}
if (!in_array($banknote[0], $euro_countrycode)) {
return false;
}
// build checksum, preparation
$banknote_replace_chars = range('A', 'Z');
foreach (range(10, 35) as $tempvalue) {
$banknote_replace_values[] = strval($tempvalue);
}
// build checksum, substitute and calc
$tempbanknote = str_replace($banknote_replace_chars, $banknote_replace_values, substr($banknote, 0, -1));
$tempcheckvalue = 0;
for ($strcounter = 0; $strcounter < strlen($tempbanknote); $strcounter++) {
$tempcheckvalue += intval($tempbanknote[$strcounter]);
}
$tempcheckvalue %= 9; // modulo 9
$tempcheckvalue = 8 - $tempcheckvalue;
return (intval($banknote[strlen($banknote)-1]) == $tempcheckvalue);
} // end func banknoteEuro
} // end class Validate_Finance
?>