oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added an SQL macro derived from cmarcant's SQL macro and the SQL Report.

Browse source
This commit is contained in:
JT Smith 2002-08-15 00:46:19 +00:00
parent dd4d05df91
commit 99ca8bcf6c
1 changed files with 46 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

46
lib/WebGUI/Macro/SQL.pm Normal file
View file

@ -0,0 +1,46 @@
package WebGUI::Macro::SQL;
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black Software.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
use WebGUI::Macro;
use WebGUI::Session;
use WebGUI::SQL;
sub _replacement {
my ($output, @data, $rownum, $temp);
my ($statement, $format) = WebGUI::Macro::getParams(shift);
my $result = eval {
my $sth = WebGUI::SQL->new($statement,$session{dbh});
while (@data = $sth->array) {
$temp = $format;
$temp =~ s/\^(\d+)\;/$data[$1]/g;
$rownum++;
$temp =~ s/\^rownum\;/$rownum/g;
$output .= $temp;
}
$sth->finish;
};
if ($@) {
return '<p><b>SQL Macro Failed:</b> '.$@.'<p>';
} else {
return $output;
}
}
sub process {
my $output = shift;
$output =~ s/\^SQL\((.*?)\)\;/_replacement($1)/ges;
return $output;
}
1;