91bd1aee41
* utils/hbmk2/hbmk2.prg
- Deleted hb_DirBase() DJGPP hack after Przemek's fix.
- Deleted gcc compiler command line hack after Przemek's fix.
* contrib/hbxbp/xbp.ch
+ Added extra protection for Windows-only debug line.
* contrib/hbxbp/apig.ch
* Minor in comment.
* contrib/rddado/adordd.prg
* Minor formatting.
* Changed it to use non-legacy OLE interface.
PLEASE REVIEW & TEST.
* contrib/hbwin/legacy.prg
+ Added support for TOleAuto():cClassName var.
+ Added RTE generation in case the OLE object cannot be created.
PLEASE REVIEW & TEST.
+ contrib/rddado/tests/test.mdb
+ Added. It's generated by access2.prg to avoid any problems.
* contrib/rddado/tests/access1.prg
* Minor formatting.
; TOFIX: Does't work:
---
Error BASE/3012 Argument error: OPEN
Called from WIN_OLEAUTO:OPEN(0)
Called from ADO_OPEN(0)
Called from DBUSEAREA(0)
Called from MAIN(11)
---
- examples/uhttpd
+ examples/httpsrv
- examples/httpsrv/uhttpd.ini
+ examples/httpsrv/httpsrv.ini
- examples/httpsrv/uhttpdgd.hbp
+ examples/httpsrv/httpsrvg.hbp
- examples/httpsrv/uhttpdc.c
+ examples/httpsrv/httpsrvc.c
- examples/httpsrv/uhttpd.prg
+ examples/httpsrv/httpsrv.prg
* examples/httpsrv/cookie.prg
* examples/httpsrv/cgifunc.prg
* examples/httpsrv/session.prg
* examples/httpsrv/readme.txt
* Renamed uhttpd to httpsrv.
NOTE: If there are better names proposed I can rename
it to anything else. Mindaugas's new uhttpd will
be name uhttpd2 to avoid any ambiguity.
74 lines
2.2 KiB
XML
74 lines
2.2 KiB
XML
<?xml version="1.0" encoding="ISO-8859-1"?>
|
|
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
|
|
<xsl:output method="html" omit-xml-declaration="yes" indent="no"/>
|
|
|
|
<xsl:variable name="numCols" select="count(table/header/cell)" />
|
|
<xsl:variable name="numToPad" select="23 - count(table/row)" />
|
|
<xsl:template match="/">
|
|
|
|
<!-- start Data Section table -->
|
|
<table cellspacing="0" cellpadding="0" class="datatable">
|
|
|
|
<tr>
|
|
|
|
<xsl:for-each select="table/header/cell">
|
|
<th><xsl:value-of select="." /></th>
|
|
</xsl:for-each>
|
|
|
|
</tr>
|
|
|
|
<xsl:if test="count(table/row) = 0">
|
|
<tr class="blank">
|
|
<td width="100%" colspan="{$numCols}" align="center" style="font-style: italic; padding:10px;">No Records Found</td>
|
|
</tr>
|
|
</xsl:if>
|
|
|
|
<xsl:for-each select="table/row">
|
|
<xsl:variable name="rowClass">
|
|
<xsl:choose>
|
|
<xsl:when test="position() mod 2">even</xsl:when>
|
|
<xsl:otherwise>odd</xsl:otherwise>
|
|
</xsl:choose>
|
|
</xsl:variable>
|
|
<tr class="{$rowClass}">
|
|
<xsl:call-template name="buildCell">
|
|
<xsl:with-param name="rowNode" select="." />
|
|
</xsl:call-template>
|
|
</tr>
|
|
</xsl:for-each>
|
|
|
|
<xsl:call-template name="padding">
|
|
<xsl:with-param name="max_count" select="$numToPad"/>
|
|
<xsl:with-param name="counter" select="'0'"/>
|
|
</xsl:call-template>
|
|
|
|
</table>
|
|
<!-- end Data Section table -->
|
|
|
|
</xsl:template>
|
|
|
|
<xsl:template name="buildCell">
|
|
<xsl:param name="rowNode"/>
|
|
|
|
<xsl:for-each select="/table/header/cell">
|
|
<xsl:variable name="colName" select="@key" />
|
|
<td><xsl:value-of select="$rowNode/*[@key=$colName]" disable-output-escaping="yes"/> </td>
|
|
</xsl:for-each>
|
|
|
|
</xsl:template>
|
|
|
|
<xsl:template name="padding">
|
|
<xsl:param name="max_count"/>
|
|
<xsl:param name="counter"/>
|
|
<xsl:if test="$counter < $max_count">
|
|
<tr class="blank">
|
|
<td colspan="{$numCols + 1}"> </td>
|
|
</tr>
|
|
<xsl:call-template name="padding">
|
|
<xsl:with-param name="max_count" select="$max_count"/>
|
|
<xsl:with-param name="counter" select="$counter + 1"/>
|
|
</xsl:call-template>
|
|
</xsl:if>
|
|
</xsl:template>
|
|
|
|
</xsl:stylesheet> |