diff --git a/core/trunk/core/tests/class/DataAccessService_Xml.php b/core/trunk/core/tests/class/DataAccessService_Xml.php
deleted file mode 100644
index 019160c0d4cccc997cc018a8882bc2010b0fc7b3..0000000000000000000000000000000000000000
--- a/core/trunk/core/tests/class/DataAccessService_Xml.php
+++ /dev/null
@@ -1,227 +0,0 @@
-<?php
-class DataAccessService_XML
- extends DataObjectController
-{
- public $file;
- public $DOMDocument;
- public $XSLT;
-
- public function DataAccessService_XML(
- $file
- )
- {
- $this->file = $file;
- $this->type = 'xml';
- $this->DOMDocument = new DOMDocument();
- $this->DOMDocument->load($file);
- $this->XSLT = new XSLTProcessor();
- }
-
-
- public function loadData($objectSchema, $parentObject, $key=false)
- {
- try {
- $this->queryData($objectSchema, $parentObject, $key);
- } catch (Exception $e) {
- throw $e;
- }
- }
-
- //*************************************************************************
- // PRIVATE XPATH QUERY CREATION FUNCTIONS
- //*************************************************************************
- private function makeSelectExpression($table)
- {
- $selectExpressionParts = array();
- foreach ($table->columns as $columnName => $column) {
- $selectExpressionParts[] = "name()='" .$columnName."'";
- }
- return implode(' or ', $selectExpressionParts);
-
- }
-
- private function makeValueExpression($table)
- {
- $valueExpressionParts = array();
- foreach ($table->columns as $columnName => $column) {
- $valueExpressionPart =
- '<xsl:template match="'.$columnName.'">
- <xsl:copy>';
- if($column->fixed) {
- $valueExpressionPart .= $column->fixed;
- } elseif($column->{'default'}) {
- $valueExpressionPart .=
- '<xsl:choose>
- <xsl:when test="string-length(.) > 0">
- <xsl:value-of select="node()" />
- </xsl:when>
- <xsl:otherwise>'.$column->{'default'}.'</xsl:otherwise>
- </xsl:choose>';
- } else {
- $valueExpressionPart .=
- '<xsl:value-of select="node()" />';
- }
- $valueExpressionPart .=
- '</xsl:copy>
- </xsl:template>';
- $valueExpressionParts[] = $valueExpressionPart;
- }
- return implode('', $valueExpressionParts);
- }
-
- private function makeSelectKeyExpression($table, $key)
- {
- $selectKeyExpressionParts = array();
- if(isset($table->primaryKey) && !is_null($table->primaryKey)) {
- $keyColumns = $table->primaryKey->getColumns();
- $keyValues = explode(' ', $key);
- for($i=0; $i<count($keyColumns); $i++) {
- $keyColumnName = $keyColumns[$i];
- $keyColumn = $table->columns[$keyColumnName];
- $keyValue = "'" . $keyValues[$i] . "'";
- $selectKeyExpressionParts[] = './' . $keyColumnName . '=' . $keyValue;
- }
- $selectKeyExpression = implode(' and ', $selectKeyExpressionParts);
- return $selectKeyExpression;
- }
- }
-
- private function makeFilterExpression($table)
- {
- $filterExpressionParts = array();
- if(isset($table->filter) && !is_null($table->filter)
- && isset($table->filterValue) && !is_null($table->filterValue)) {
- $filterColumns = explode(' ', $table->filter);
- $filterValue = "'" . $table->filterValue . "'";
- for($i=0; $i<count($filterColumns); $i++) {
- $filterColumnName = $filterColumns[$i];
- $filterColumn = $table->columns[$filterColumnName];
- $filterExpressionParts[] = "starts-with(" . './' . $filterColumnName . ',' . $filterValue . ')';
- }
- $filterExpression = implode(' or ', $filterExpressionParts);
- return $filterExpression;
- }
- }
-
- private function makeRelationExpression($relation, $table, $parentObject)
- {
- $relationExpressionParts = array();
- $childColumns = explode(' ', $relation->childColumns);
- $parentColumns = explode(' ', $relation->parentColumns);
- for($i=0; $i<count($childColumns); $i++) {
- $childColumnName = $childColumns[$i];
- $parentColumnName = $parentColumns[$i];
- $childColumn = $table->columns[$childColumnName];
- $parentColumnValue = "'" . $parentObject->{$parentColumnName} . "'";
- $relationExpressionParts[] = "./" . $childColumnName . " = " . $parentColumnValue;
- }
- $relationExpression = implode(' and ', $relationExpressionParts);
- return $relationExpression;
- }
-
- private function makeSortExpression($table)
- {
- if($table->order) {
- return '<xsl:sort select="*['.$table->order->select.']" order="'.$table->order->mode.'"/>';
- } elseif(isset($table->primaryKey) && !is_null($table->primaryKey)) {
- $orderElements = $table->primaryKey->getColumns();
- print_r($orderElements);
- for($i=0; $i<count($orderElements); $i++) {
- $orderElements[$i] = "name()='".$orderElements[$i]."'";
- }
- $order->select = implode(' or ' , $orderElements);
- $order->mode = 'ascending';
- return '<xsl:sort select="*['.$order->select.']" order="'.$order->mode.'"/>';
- }
- }
-
- //*************************************************************************
- // PRIVATE XPATH QUERY EXECUTION FUNCTIONS
- //*************************************************************************
- private function queryData($objectSchema, $parentObject, $key=false)
- {
- if(@$parentObject->ownerDocument) {
- $document = $parentObject->ownerDocument;
- } else {
- $document = $parentObject;
- }
-
- $tableName = $objectSchema->getTableName();
-
- $table = $this->tables[$tableName];
-
- // Select
- $selectExpression = $this->makeSelectExpression($table);
-
- // Values
- $valueExpression = $this->makeValueExpression($table);
-
- // Where
- $whereExpressionParts = array('.');
- if($parentObject
- && $parentObject != $document
- && $relation = $this->getRelation($parentObject->tagName, $tableName)) {
- //echo "<br/>relation " . print_r($relation, true);
- $whereExpressionParts[] = $this->makeRelationExpression($relation, $table, $parentObject);
- }
- if($key && $keyExpression = $this->makeSelectKeyExpression($table, $key)) {
- $whereExpressionParts[] = $keyExpression;
- }
- $filterExpression = $this->makeFilterExpression($table);
- if($filterExpression) {
- $whereExpressionParts[] = $filterExpression;
- }
- $whereExpression = implode(' and ', $whereExpressionParts);
- // === database ?
-
- $tableQuery = $table->name . "[" . $whereExpression . "]";
-
- // Order
- $sortExpression = $this->makeSortExpression($table);
-
- $xslString =
- '<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
- <xsl:template match="/">
- <root>
- <xsl:apply-templates select="//'.$tableQuery.'">
- '. $sortExpression .'
- </xsl:apply-templates>
- </root>
- </xsl:template>
- <xsl:template match="'.$tableName.'">
- <xsl:copy>
- <xsl:apply-templates select="*['.$selectExpression.']" />
- </xsl:copy>
- </xsl:template>
- '.$valueExpression.'
- </xsl:stylesheet>';
-
- echo "<pre>XSL = " . htmlspecialchars($xslString) . "</pre>";
-
- $XSL = new DOMDocument();
- $XSL->formatOutput = true;
- $XSL->loadXML($xslString);
- $this->XSLT->importStylesheet( $XSL );
-
- $root = $this->DOMDocument->documentElement;
-
- $DOMDocument = $this->XSLT->transformToDoc($root);
- echo htmlspecialchars($DOMDocument->saveXML());
- $results = array();
- $DOMTable = $DOMDocument->documentElement->childNodes;
- for($i=0; $i<$DOMTable->length; $i++) {
- $dataObject = $document->createElement($objectSchema->name);
- $parentObject->appendChild($dataObject);
-
- $DOMRow = $DOMTable->item($i);
- $DOMColumns = $DOMRow->childNodes;
- for($j=0; $j<$DOMColumns->length; $j++) {
- $DOMColumn = $DOMColumns->item($j);
- $columnName = $DOMColumn->tagName;
- $columnValue = $DOMColumn->nodeValue;
- $columnNode = $document->createElement($columnName, $columnValue);
- $dataObject->appendChild($columnNode);
- }
- }
- }
-}
\ No newline at end of file