From: Jan T. <de...@us...> - 2002-10-23 09:35:15
|
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> |