Mason expects "%" as first character in line. Try correcting it in your HTML page.
Regards, Vimal -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jim Babcock Sent: Thursday, March 23, 2006 5:45 PM To: [email protected] Subject: [Mason] %_method error 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&kid=110944&bid=241720&dat=121642 _______________________________________________ Mason-users mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/mason-users ------------------------------------------------------- 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
