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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
