^SQL();
-A one line SQL report. Sometimes you just need to pull something back from the database quickly. This macro is also useful in extending the SQL Report wobject. It uses the numeric macros (^0; ^1; ^2; etc) to position data and can also use the ^^rownum; macro just like the SQL Report wobject. Examples:
Examples:
^SQL("select count(*) from users","There are ^0; users on this system.");
^SQL("select userId,username from users order by username","<a href='^/;?op=viewProfile&uid=^0;'>^1;</a><br />");
+If there are more numeric macros than selected columns in the SQL report the extra macros will be discarded.
+The rownum macro, ^rownum;, begins counting at 1.
|, - lastUpdated => 1146805799, + lastUpdated => 1151986323, }, 'illegal query' => { diff --git a/t/Help/related.t b/t/Help/related.t index fb3df5ccc..f30a26181 100644 --- a/t/Help/related.t +++ b/t/Help/related.t @@ -66,7 +66,7 @@ plan tests => scalar @relatedHelp + scalar @isaHelp; foreach my $related (@relatedHelp) { my ($topic, $entry, $parentTopic, $parentEntry) = @{ $related }{'namespace', 'tag', 'parentTopic', 'parentEntry'}; - ok( exists $helpTable{$topic}{$entry}, "Help entry: $topic -> $entry from $parentTopic -> $parentEntry"); + ok( exists $helpTable{$topic}{$entry}, "Help entry: $topic -> '$entry' from $parentTopic -> $parentEntry"); } foreach my $isa (@isaHelp) { diff --git a/t/Macro/SQL.t b/t/Macro/SQL.t index 06c4364a5..50bce5045 100644 --- a/t/Macro/SQL.t +++ b/t/Macro/SQL.t @@ -73,6 +73,16 @@ my @testSets = ( template => '^0;', output => 'Cannot execute this type of query.', }, + { ##Test unused macro variables + sql => q!select zero,one,two,three from testTable order by one!, + template => join(':', map { "^$_;" } 0..4).'-', + output => '0:1:2:3:-100:101:102:103:-', + }, + { ##rownum test + sql => q!select zero,one,two,three from testTable order by one!, + template => join(':', map { "^$_;" } 'rownum', 0..3).',', + output => '1:0:1:2:3,2:100:101:102:103,', + }, ); my $numTests = scalar @testSets;