in reply to Re: Re: Re: Re: Re: Re: No results from script
in thread No results from script

sub get_customer
{
   my ($customer_id) = @_;

   my $dbh = WebDB::connect ();
   my $sth = $dbh->prepare ("SELECT * FROM Shipments WHERE customer_id
+ = ?");
   $sth->execute($customer_id);
   my @customer;               ### <-- this was missing
   while (my $track_ref = $sth->fetchrow_hashref ()){
      push(@customer, $track_ref);
   }
   return(\@customer);
}

[download]

first line of print_results should be:

sub print_results
{
my ($customer) = @_;
print table ({-border => 0},

[download]

$customer was being assigned with the number of elements in @_...

cheers,

J

Replies are listed 'Best First'.
Re: Re: Re: Re: Re: Re: Re: Re: No results from script
by b310 (Scribe) on Jun 04, 2003 at 19:15 UTC
    Hello, :)

    The help you gave me earlier was awesome. The script works wonderfully. I have one quick and hopefully easy question for you.

    Shouldn't my table data line up underneath my table headings?

    My data shifts back and forth from one row to the next. I pasted the code that creates the table. Any ideas on this would be great?

    Here it is... 
    print table ({-border => 0},
   Tr ({-align => "CENTER",  -valign=>"TOP",  -BGCOLOR=>"silver",  -st
+yle=>"font-family: verdana; font-size: 10pt;"},
                                             
                        th ({-width=>"50"},("Customer ID")),
                th ({-width=>"50"},("Customer Order")),
                        th ({-width=>"50"},("Purchase Order")),
                        th ({-width=>"90"},("Ship Date")),
                        th ({-width=>"40"},("Carrier")),
                        th ({-width=>"150"},("Tracking Number")),
                        th ({-width=>"60"},("Item Number")),
                        th ({-width=>"50"},("Wt")),
                        th ({-width=>"50"},("Invoice Number")),
                        th ({-width=>"20"},("Qty")),
                        th ({-width=>"50"},("Customer Item Number"))  
+                                
            ));

foreach my $row (@$customer) {
print table ({-border => 0},
    Tr ({-align=>"center", -valign=>"TOP", -style=>"font-family: verda
+na; font-size: 10pt;"},
                               
            td ({-width=>"60", -align => "center"},(escapeHTML ($row->
+{customer_id}))),
            td ({-width=>"70", -align => "center"},(escapeHTML ($row->
+{customer_order}))),
        td ({-width=>"80", -align => "center"},(escapeHTML ($row->{pur
+chase_order}))),
            td ({-width=>"90", -align => "center"},(escapeHTML ($row->
+{ship_date}))),
            td ({-width=>"40", -align => "center"},(escapeHTML ($row->
+{carrier_id}))),
            td ({-width=>"175", -align => "center"},(escapeHTML ($row-
+>{tracking_number}))),
            td ({-width=>"45", -align => "center"},(escapeHTML ($row->
+{item_number}))),
            td ({-width=>"50", -align => "center"},(escapeHTML ($row->
+{weight}))),
            td ({-width=>"50", -align => "center"},(escapeHTML ($row->
+{invoice_number}))),
            td ({-width=>"20", -align => "center"},(escapeHTML ($row->
+{quantity_shipped}))),
            td ({-width=>"50", -align => "center"},(escapeHTML ($row->
+{customer_item_number})))
                ));

    [download]
[reply]
[d/l]

      Pretty sure that's the CGI stuff, which I've never used. If you look in your html I'd guess you've got a table for the header and a separate table for each row. We should be able to drop 'table ...' from the print in the loop and just print the Tr, but I don't know how to prevent CGI from ending the table when we print the header.

      cheers,

      J

[reply]

      ok, from another discussion where I got told off for telling fibs..8)

      #!/usr/bin/perl -w
use strict;
use CGI qw/:standard *table/;

print header(),
 start_html('foo bar qux'),
  start_table();

print Tr(
 td('foo'), td('bar'), td('qux')
);

print end_table(),
 end_html();

      [download]

      so some changes..

      change:
use CGI;

to:
use CGI qw/:standard *table/;

change the first:
print table ({-border => 0},
to 
print start_table ({-border => 0},

change in the loop:
print table ({-border => 0},
    Tr ({-align=>"center", -valign=>"TOP", -style=>"font-family: verda

to:
print Tr ({-align=>"center", -valign=>"TOP", -style=>"font-family: ver
+da

and add:
print end_table(),

after the loop.

      [download]

      cheers,

      J

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom