Fixes for KH 3.3 - to do with case file names

application/classes/Database/TSM/Result.php

@@ -0,0 +1,49 @@
+<?php defined('SYSPATH') or die('No direct access allowed.');
+
+/**
+ * TSM database result.   See [Results](/database/results) for usage and examples.
+ *
+ * @package    PTA
+ * @subpackage TSM
+ * @category   Query/Result
+ * @author     Deon George
+ * @copyright  (c) 2010 phpTSMadmin Development Team
+ * @license    http://phptsmadmin.sf.net/license.html
+ */
+class Database_TSM_Result extends Database_Result {
+	public function __construct($result, $sql, $as_object = FALSE, array $params = NULL) {
+		parent::__construct($result, $sql, $as_object, $params);
+
+		$start = FALSE;
+		// Is this a DB2 result?
+		if (is_resource($result) AND function_exists('db2_fetch_object')) {
+			// If we are running a DB2 set command, we can return
+			if (preg_match('/^SET/',$sql))
+				return;
+
+			while ($r = db2_fetch_object($result))
+				$this->_rows[$this->_internal_row++] = (array)$r;
+
+		// Is this an DSMADMC result?
+		} elseif (is_array($result))
+			foreach ($result as $line) {
+				if (! trim($line)) {
+					if ($start)
+						$this->_internal_row++;
+
+					continue;
+				}
+
+				list($k,$v) = explode(':',$line,2);
+
+				$this->_rows[$this->_internal_row][trim($k)] = trim($v);
+				$start = TRUE;
+			}
+		else
+			throw new Kohana_Exception('Unknown result :result',array(':result'=>$result));
+
+		$this->_total_rows = $this->_internal_row;
+		$this->_internal_row = 0;
+	}
+}
+?>