Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: Generalizing table display for subclass

by PodMaster (Abbot)
on Jul 29, 2003 at 09:03 UTC ( #278773=note: print w/replies, xml ) Need Help??


in reply to Generalizing table display for subclass

How do you invoke this? (what do I plug in to get results -- you can't expect anyone to figure it out by looking at your code, use Data::Dumper to get *sample* data)

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

  • Comment on Re: Generalizing table display for subclass

Replies are listed 'Best First'.
Re: Re: Generalizing table display for subclass
by jest (Pilgrim) on Jul 29, 2003 at 09:24 UTC

    I'm sorry, I'm not entirely sure what to do to be able to supply sample data. This runs through several different modules, each one doing some other thing, and I don't know how to simplify it enough to show here.

    The immediate calling mechanism comes from the superclass, and looks like this, with the $sth coming from another module that handles the database querying:

    my @row; # construct a table header; store in @row push (@row, $self->_get_table_header(\@order)); # construct each table row; add to @row while (my $ref = $sth->fetchrow_hashref()) { # clean this up with named parameter calls? push (@row, $self->_get_table_row(\@order, $ref, $book, $rowcolor)); $rowcolor = ($rowcolor eq "lightrow" ? "darkrow" : "lightrow"); } $sth->finish(); print table ({width=>"95%"},-cellspacing=>"0"},@row);
Re: Re: Generalizing table display for subclass
by jest (Pilgrim) on Jul 29, 2003 at 14:28 UTC

    Sorry to keep bouncing back and forth like this, but: while I'm still not sure how to generate something from which you could run the code extract, the result of running it would look something like this:

    AuthorTitleDate acquired
    Bekman, Stas, and Eric Cholet Practical mod_perl (2003) 2003-06-30
    Burke, Sean M. Perl and LWP (2002) 2002-07-09
    Conway, Damian Object Oriented Perl (2000) 2000-07-25
    Hall, Joseph N., with Randal L. Schwartz Effective Perl Programming (1998) 2000-11-10

    Except that the links would work, and there would be alternating-colored rows, etc. I don't know if that helps anyone help me, but thank you anyway.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://278773]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2022-05-26 21:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (94 votes). Check out past polls.

    Notices?