[Phpgroupware-cvs] phpgwapi/inc/adodb/rsfilter.inc.php, 1.2

[nomail]

Update of /phpgwapi/inc/adodb
Added Files:
        Branch: 
          rsfilter.inc.php

date: 2004/12/30 06:47:32;  author: skwashd;  state: Exp;  lines: +54 -0

Log Message:
new HEAD
=====================================================================
<?php
/** 
 * @version V4.50 6 July 2004 (c) 2000-2004 John Lim (address@hidden). All 
rights reserved.
 * Released under both BSD license and Lesser GPL library license. 
 * Whenever there is any discrepancy between the two licenses, 
 * the BSD license will take precedence. 
 *
 * Set tabs to 4 for best viewing.
 * 
 * Latest version is available at http://php.weblogs.com
 *
 * Requires PHP4.01pl2 or later because it uses include_once
*/

/*
        Filter all fields and all rows in a recordset and returns the 
        processed recordset. We scroll to the beginning of the new recordset
        after processing.
        
        We pass a recordset and function name to RSFilter($rs,'rowfunc');
        and the function will be called multiple times, once
        for each row in the recordset. The function will be passed
        an array containing one row repeatedly.
        
        Example: 
        
        // ucwords() every element in the recordset
        function do_ucwords(&$arr,$rs)
        {
                foreach($arr as $k => $v) {
                        $arr[$k] = ucwords($v);
                }
        }
        $rs = RSFilter($rs,'do_ucwords');
 */
function &RSFilter($rs,$fn)
{
        if ($rs->databaseType != 'array') {
                if (!$rs->connection) return false;
                
                $rs = &$rs->connection->_rs2rs($rs);
        }
        $rows = $rs->RecordCount();
        for ($i=0; $i < $rows; $i++) {
                $fn($rs->_array[$i],$rs);
        }
        if (!$rs->EOF) {
                $rs->_currentRow = 0;
                $rs->fields = $rs->_array[0];
        }
        
        return $rs;
}
?>