in reply to Unblessed Reference Message

1. try 'use warnings;' and 'use diagnostics;' at the top of your code and then see what it says.
2. try posting your code here and telling us which line produces the error?
C.

Replies are listed 'Best First'.
Re: Re: Unblessed Reference Message
by b310 (Scribe) on Jan 26, 2003 at 21:02 UTC
    Hello, I tried 'use warnings' and 'use diagnostics' and received the same message. Here's part of the code: 
    sub get_product_table
{
my $sth = shift;
my @row;

              
    
    while (my $ref = $sth->fetchrow_hashref ())
    {
my $serve_url = sprintf ("serve_image.cgi?item_id=%s",
                                escape ($ref->{item_id}));
        

# generate a form allowing a quantity of the item to be added
# to the cart
push (@row, start_form(-method=>'GET', -action=>url()),
hidden( -name => "choice", -override => 1, 
-default => "add" ),
hidden( -name => "item_id", -override => 1, 
-default => escapeHTML( $ref->{item_id} )),
        Tr (
   print img ({-src => "$serve_url;thumbnail=1", -alt => $ref->item_id
+}), 
   td ( escapeHTML( $ref->{item_id} )),

    [download]
    I believe the line that is causing the problem is the line that starts with "print img". Thanks
[reply]
[d/l]
      And you are correct.
      You wrote '$ref->item_id' when you probably meant '$ref->{item_id}', it's trying to call item_id as a function/method..
      C.
[reply]

In Section Seekers of Perl Wisdom