[Bast-commits] r9750 - SQL-Abstract/1.x/trunk/examples

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-10-09 08:57:12 +0100 (Sat, 09 Oct 2010)
New Revision: 9750

Modified:
   SQL-Abstract/1.x/trunk/examples/console.pl
Log:
add a couple more examples

Modified: SQL-Abstract/1.x/trunk/examples/console.pl
===================================================================
--- SQL-Abstract/1.x/trunk/examples/console.pl	2010-10-08 16:59:29 UTC (rev 9749)
+++ SQL-Abstract/1.x/trunk/examples/console.pl	2010-10-09 07:57:12 UTC (rev 9750)
@@ -19,5 +19,11 @@
 print "\n\n'" . $sqlat->format($_) . "'\n" for @sql;
 
 print "\n\n'" . $sqlat->format(
-   "UPDATE session SET expires = ?  WHERE (id = ?)", ['1', 1]
+   "UPDATE session SET expires = ? WHERE (id = ?)", ['2010-12-02', 1]
 ) . "'\n";
+
+
+print "\n\n'" . $sqlat->format(
+ "SELECT raw_scores FROM ( SELECT raw_scores, ROW_NUMBER() OVER ( ORDER BY ( SELECT (1))) AS rno__row__index FROM ( SELECT rpt_score.raw_scores FROM users me JOIN access access ON access.userid = me.userid JOIN mgmt mgmt ON mgmt.mgmtid = access.mgmtid JOIN [order] orders ON orders.mgmtid = mgmt.mgmtid JOIN shop shops ON shops.orderno = orders.orderno JOIN rpt_scores rpt_score ON rpt_score.shopno = shops.shopno WHERE ( datecompleted IS NOT NULL AND ( (shops.datecompleted BETWEEN ? AND ?)  AND (type = ? AND me.userid = ?)))) rpt_score) rpt_score WHERE rno__row__index BETWEEN ? AND ? )", ['2009-10-01', '2009-10-08', 1, 'frew', 1, 1]
+ ) . "'\n";
+