[ic] bareword error in perl

[interchange-users@interchange.redhat.com (Stefan Hornburg Racke]

Paul Jordan <paul@gishnetwork.com> writes:

> Hi
> 
> I am trying to install a usertag but am getting a bareword error:
> ------------------------
> Bareword "products" not allowed while "strict subs" in use at (eval 138)
> line 27, <CONFIG> line 46.
> 
> In line 46 of the configuration file 'etc/after2.cfg':
> UserTag im_onfly Routine <<EOR
> ------------------------
> 
> 
> This is the area in question:
> 
> 21    $base_sku =~ s/^\s+|\s+$//g;
> 22    $append =~ s/^\s+|\s+$//g;
> 23    return {} unless ($base_sku && $append);
> 24
> 25    my $query = qq{
> 26        SELECT  pp.price, pp.download, pp.weight, pd.title, pd.description
> 27->      FROM    products pd, properties pp
> 28        WHERE   pd.cap_group = pp.cap_group
> 29        AND     pd.code = '$base_sku'
> 30        AND     pp.append = '$append'
> 31    };
> 32    my $db = ::database_exists_ref(products) or die 'Bad products
table';

There are no quotes around products, e.g. use ('products')

Ciao
        Racke

-- 
Free resources for Interchange programming NOW !!! 
Don't hesitate to contact me if you need my professional help.
Your core developer and consultant for the most sophisticated,
flexible and extensible Open Source eCommerce software.