[ic] Very Simple UserTag - Failed Safe Check

[Ed LaFrance (New Media E.M.S.)]

At 11:29 AM 9/16/2004, you wrote:

>Hi,
>
>I'm trying to define an extremely simple usertag in catalog.cgi called 
>'lease-cost' that is giving me the following error when trying to start up 
>the catalogue:
>
>UserTag 'lease_cost' subroutine failed safe check: <HANDLE> trapped by 
>operation mask at (eval 219) line 3, <CONFIG> line 472.
>
>Here's the text of the code:
>
>=============================================================
>UserTag lease-cost      Routine <<EOR
>sub {
>
>You could lease this item for only _____ per month ex. VAT.<br>
><small><em>[ <a href="#">Click Here for Details</a> ]</em></small>
>
>}
>EOR
>=============================================================
>
>I see a reference to the use of "use" being disallowed but I'm not using 
>that function here so can't see why it's failing.  I need to be able to 
>configure this at catalogue level rather than server level and would 
>appreciate any hints/tips on offer.
>
>This is somewhat annoying because I've done some extemely complex stuff in 
>Interchange without problems but I'm now being bogged down by issues with 
>the simplest routines!
>
>Regards, Ade.

Your tag does not contain valid Perl syntax, that is most likely the 
problem. Try:

UserTag lease-cost      Routine <<EOR
sub {
         my $out = <<EOO;
You could lease this item for only _____ per month ex. VAT.<br>
<small><em>[ <a href="#">Click Here for Details</a> ]</em></small>
EOO
         return $out;
}
EOR

- Ed


===============================================================
New Media E.M.S.              Technology Solutions for Business
11630 Fair Oaks Blvd., #250   eCommerce | Consulting | Hosting
Fair Oaks, CA  95628          Ed.LaFrance at newmediaems.com
(916) 961-0446                http://www.newmediaems.com
(866) 519-4680 Toll-Free      (916) 961-0447 Fax
===============================================================