if ($serviceitem->{status} eq 'CLOSED') {
SWC::WebUtil::RedirectTemp(
($ENV{HTTPS} ? 'https' : 'http') . "://$ENV{HTTP_HOST}/error.html?msgs=Your+web+mail+account+is+closed."
);
} elsif ($serviceitem->{status} eq '') {
$rval = Execute({ inputfile => 'purchase.html', errors => [EMAIL PROTECTED], options => HTML::Embperl::optReturnError, import => 0});
} else {
$rval = Execute({ inputfile => '*', errors => [EMAIL PROTECTED], options => HTML::Embperl::optReturnError, import => 0});
}
After that I call
$this->display()
which is a method implemented in both '*' and 'purchase.html'.
However if the second if condition executes, it doesn't call the method in purchase.html, it calls the one in *. In fact, I discovered that the code continues to work even if I don't Execute *. EmbperlObject is doing an implicit import of *.
1. If all I want to do is import the file, what should I do? Not call Execute? What if there's an error while importing, where would I trap it?
2. How do I force the methods in purchase.html to get called and the ones in * to be ignored?
--
Kee Hinckley
http://www.messagefire.com/ Anti-Spam Service for your POP Account
http://commons.somewhere.com/buzz/ Writings on Technology and Society
I'm not sure which upsets me more: that people are so unwilling to accept responsibility for their own actions, or that they are so eager to regulate everyone else's.
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
