I'm getting an error that I think is the compiler getting confused on an
earilier mistake, but I can't see it.
I've built a package called Reports::WSB that builds an mysql query with the
dbh and other parameters passed in the new method. The exec method prepares and
executes the query, puts the results in a HOA on the object and finishes the
statement. I developed the code and tested it with a command line Perl script,
so I'm pretty confident in it. The code in the html page is a derivation of
that script.
Here is the HTML:
<div id="content">
<h3><& SELF:title &></h3>
<table>
% foreach $date (sort keys %{$rep->{res}}) {
<tr>
% foreach $item (@{$rep->{res}->{$date}})
% {
<td> <% $item %> </td>
% }
</tr>
% }
</table>
</div>
<%method title>
Network Engineering and Operations Home
</%method>
<%once>
use Reports::WSB
</%once>
<%init>
my $item;
my $date;
my $rep = WSB->new($RepDBH, "2006", "March", "03");
$rep->exec();
</%init>
Here is the ERROR:
error: Error during compilation of /usr/local/www/docs/index.html:
Global symbol "%_method" requires explicit package name at
/usr/local/www/docs/index.html line 30.
context: ...
26: <%init>
27: my $item;
28: my $date;
29: my $rep = WSB->new($RepDBH, "2006", "March", "03");
30: $rep->exec();
31: </%init>
32:
code stack: /usr/local/lib/perl5/site_perl/5.8.7/HTML/Mason/Interp.pm:445
/usr/local/lib/perl5/site_perl/5.8.7/HTML/Mason/Request.pm:238
/usr/local/lib/perl5/site_perl/5.8.7/HTML/Mason/Request.pm:204
/usr/local/lib/perl5/site_perl/5.8.7/HTML/Mason/ApacheHandler.pm:97
/usr/local/lib/perl5/site_perl/5.8.7/Class/Container.pm:275
/usr/local/lib/perl5/site_perl/5.8.7/Class/Container.pm:353
/usr/local/lib/perl5/site_perl/5.8.7/HTML/Mason/Interp.pm:348
/usr/local/lib/perl5/site_perl/5.8.7/HTML/Mason/ApacheHandler.pm:869
/usr/local/lib/perl5/site_perl/5.8.7/HTML/Mason/ApacheHandler.pm:823
(eval 33):8
-e:0
Here is the PACKAGE:
#!/usr/bin/perl -I/usr/local/www/lib/
use strict;
use Reports::WSB;
use lib qw(/usr/local/www/lib/);
use DBI;
#! /usr/local/perl
package WSB;
use strict;
sub new
{
my $rep = ();
shift;
$rep->{dbh} = shift;
$rep->{year} = shift;
$rep->{month} = shift;
$rep->{day} = shift;
$rep->{qstr} = "";
$rep->{res} = ();
bless($rep);
my $where = "";
my $seg1 = "select date_format(tstamp,\'";
my $seg2 = "%Y%m";
my $seg3 = "\') d,date_format(tstamp,\'";
my $seg4 = "%M %Y";
my $seg5 = "') num, round(avg(average),1),max(maximum),sum(op100),
sum(op700),sum(total) from coal_counts ";
my $seg6 = " group by num order by d desc";
if (defined $rep->{month})
{
$seg2 = "%Y%m%d";
$seg4 = "%d %b";
$where = " where date_format(tstamp, \'%M %Y\') = \'$rep->{month}
$rep->{year}\' ";
}
if (defined $rep->{day})
{
$seg2 = "%Y%m%d%H";
$seg4 = "%l%p";
$where = " where date_format(tstamp, \'%Y%M%d\') =
\'$rep->{year}$rep->{month}$rep->{day}\' ";
}
$rep->{qstr} = $seg1 . $seg2 . $seg3 . $seg4 . $seg5 . $where . $seg6;
bless($rep);
return($rep);
}
sub exec
{
my $self = shift;
print "$self->{qstr}\n";
my $q_stmt = $self->{dbh}->prepare($self->{qstr});
$q_stmt->execute();
while (my @data = $q_stmt->fetchrow_array())
{
$self->{res}->{$data[0]} = [EMAIL PROTECTED];
}
$q_stmt->finish();
return;
}
1;
Thanks for your help!
JimB
--
___________________________________________________
Play 100s of games for FREE! http://games.mail.com/
-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid0944&bid$1720&dat1642
_______________________________________________
Mason-users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/mason-users
