Hi:
I am trying to call a subrutine that is in the file tables.epl but i get
the error:
[6455]ERR: 24: Error in Perl code: Undefined subroutine
&HTML::Embperl::DOC::_6::loadthecolors called at
modules/Recommend/recommend.epl line 30.
####### Here is when i load the file where the sub is and i call the
sub:
[-
Execute ({inputfile => 'tables.epl', import=>1});
&loadthecolors;
$r = shift ;
$option = $r -> {option} ;
-]
############# The next is defined in file tables.epl ###############3
[$ sub loadthecolors $]
[-
Execute ('themes/GLIN/colors.epl');
$thecolors = shift ;
$bgcolor1= $thecolors -> {bgcolor1};
$bgcolor2= $thecolors -> {bgcolor2};
$bgcolor3= $thecolors -> {bgcolor3};
$bgcolor4= $thecolors -> {bgcolor4};
$textcolor1= $thecolors -> {textcolor1};
$textcolor2= $thecolors -> {textcolor2};
-]
[$ endsub $]
################# The file colors.epl contains :
[-
$thecolors = shift ;
$thecolors -> {bgcolor1} = "#efefef";
$thecolors -> {bgcolor2} = "#cfcfbb";
$thecolors -> {bgcolor3} = "#efefef";
$thecolors -> {bgcolor4} = "#cfcfbb";
$thecolors -> {textcolor1} = "#000000";
$thecolors -> {textcolor2} = "#000000";
-]
Thank you in advance for your help.
Carlos Kassab
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
