perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Carlos Kassab <...@glin.com.mx>
Subject Re: subroutine not found in the same file...please help
Date Sun, 29 Dec 2002 18:33:40 GMT
ok, i corrected the name of the subroutine but still have the
error...please help...

Thank you in advance

Carlos Kassab

El dom, 29-12-2002 a las 10:40, Carlos Kassab escribió:
> Hi:
> 
> I have a file called recommend.epl
> 
> at the beginning of the file i have
> 
> [$ if $option eq "sendmail" $]
> 	[- &sendrecommend; -]
> [$ else $]
> 	[- &disprecommend; -]
> [$ endif $]
> 
> and under this i have the subroutines:
> 
> i am posting here only sendrecommend:
> 
> [$ sub sendrecommend $]
> 
> [-
> $ENV{EMBPERL_MAILHOST}="cybercable.net.mx";
> $ENV{EMBPERL_MAILFROM}=$fdat{frommail};
> 
> $toname=$fdat{toname};
> $fromname=$fdat{fromname};
> $tomail=$fdat{tomail};
> 
> delete $fdat{fromname}; delete $fdat{frommail}; delete $fdat{toname};
> delete $fdat{tomail};
> delete $fdat{module}; delete $fdat{option}; delete $fdat{mpath};
> 
> $message = "Hola ".$toname."\n\nTu amigo(a) ".$fromname." te recomienda
> visitar el sitio ";
> $message .= "\"".$sitename."\" ".$eplsite_url;
> 
> MailFormTo ($tomail,$message,'email'); 
> 
> &OpenTable;
> 
> -]
> 
> <center><font class="content">La referencia a nuestro sitio a sido
> enviada a [+$toname+]...<br><br>Gracias por
> recomendarnos</font></center>
> 
> [- &CloseTable; -]
> 
> [$ endsub $]
> 
> 
> but sometimes i get the error:
> 
> [3904]ERR: 24: Error in Perl code: Undefined subroutine
> &HTML::Embperl::DOC::_7::sendrecommend called at
> modules/Recommend/recommend.epl line 36.
> 
> 
> Do you know why?
> 
> Please help me....
> 
> 
> Thank you in advance.
> 
> Carlos Kassab
> 
> 
> 
> 
> 
-- 
Consultoría ERP BaaN Tools
Aplicaciones Internet/Intranet
http://www.glin.com.mx



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message