Update of /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries
In directory usw-pr-cvs1:/tmp/cvs-serv1093
Modified Files:
DatabaseLibrary.pm
Log Message:
* fixed wrong documentation
Index: DatabaseLibrary.pm
===================================================================
RCS file: /cvsroot/net-script/netscript2/src/perl/NetScript/Libraries/DatabaseLibrary.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DatabaseLibrary.pm 24 Sep 2002 22:40:05 -0000 1.3
--- DatabaseLibrary.pm 23 Oct 2002 09:35:12 -0000 1.4
***************
*** 66,78 ****
# <!-- Select all cars -->
# <db:exec db="myDB" query="SELECT * FROM Car" name="allCars"/>
! # <ns:var name="numCars" val="0"/>
# <ns:invoke var="allCars" method="getRemainingLines" value="numCars"/>
! # <ns:while test="$(numCars) &gt; 0">
! # <ns:var name="aLine:!"/>
! # <ns:invoke var="allCars" method="fetchLine" value="aLine" escape="yes"/>
! # <ns:for name="i" from="0" to="$(eval[@[aLine]-1])">
! # $(aLine:$(i))
! # </ns:for>
! # <ns:invoke var="allCars" method="getRemainingLines" value="numCars"
# </ns:while>
# </example>
--- 66,79 ----
# <!-- Select all cars -->
# <db:exec db="myDB" query="SELECT * FROM Car" name="allCars"/>
! # <ns:var name="isCarLeft" val="1"/>
# <ns:invoke var="allCars" method="getRemainingLines" value="numCars"/>
! # <ns:while test="$(isCarLeft)">
! # <ns:invoke var="allCars" method="nextLine"/>
! # <ns:if test="$(allCars.lineFetched)">
! # <ns:for name="i" from="0" to="$(eval[@[allCars.content]-1])">
! # $(allCars.content:$(i))
! # </ns:for>
! # </ns:if>
! # <ns:var var="isCarLeft" val="$(allCars.lineFetched)"/>
# </ns:while>
# </example>
|
