Hi all,
I keep getting the following error when running the code below. I don't know
what's going wrong because that's all the error says. I was thinking maybe $re
isn't retrieving the row in the DB but I don't think that is the case. It seems
more like 'set' method is not working for some reason. Any ideas why this would
be happening? When I create the row in the step1 method (not displayed)
'insert' inserts the row into the db just fine. And in the same class, if I
call $obj->set() on other objects it works just fine. It's simply this
subroutine it doesn't work in.
[Mon Feb 26 13:22:34 2007] [notice] Apache/2.2.4 (Unix) mod_perl/2.0.3
Perl/v5.8.8 configured -- resuming normal operations
Raymond::RoofingEstimate Raymond::RoofingEstimate=HASH(0x92e79cc) destroyed
without saving changes to asphalt, ridgevent, copper, snowguard, slate, icedam,
cedar, clay, rooftype, flat, heattape at
/usr/local/lib/perl5/site_perl/5.8.8/Maypole/Model/Base.pm line 33
sub step2 :Exported {
my ($class, $r) = @_;
my $key = $r->{params}{'eid'};
delete $r->{params}{'image.x'};
delete $r->{params}{'image.y'};
my $re = $class->retrieve( reference => $key );
$re->set(
rooftype => $r->{params}{'rooftype'},
asphalt => $r->{params}{'asphalt'},
cedar => $r->{params}{'cedar'},
flat => $r->{params}{'flat'},
slate => $r->{params}{'slate'},
copper => $r->{params}{'copper'},
clay => $r->{params}{'clay'},
ridgevent => $r->{params}{'ridgevent'},
heattape => $r->{params}{'heattape'},
icedam => $r->{params}{'icedam'},
snowguard => $r->{params}{'snowguard'},
);
$r->{template_args}{tbl} = "RoofingEstimate";
$r->{template_args}{e_id} = $key;
$r->template("RoofingEstimate/roofingestimate3");
}
-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV
_______________________________________________
Maypole-users mailing list
Maypole-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/maypole-users
