[Maypole] Weird listing if stringify_self specified.

From: Peter Speltz (peterspeltz at yahoo.com)
Date: Tue Nov 02 2004 - 17:23:57 GMT


I have a person class and on the list it puts the value returned for stringify
self for the mid_name column or first_name column depending on whether i use
the Person::stingify_self method or Person->columns( Stringify=> ..).

When i take them I get the correct values in the listing.
Here's what it looks like with Stingify set.

Person ID First Name Mid Name Last Name
--------------------------------------------------
4 Peter Peter Joe Speltz Speltz

Here is my person class:

package My::Person;
use Class::Date ();
use strict;
use warnings;

__PACKAGE__->columns('Primary' => 'prsn_id' );
__PACKAGE__->untaint_columns( printable => [ qw/first_name mid_name last_name/
],
                              date => [ "dob" ] );

sub stringify_self { # with this, i get listing above
   my $self = shift; join (" " , ($self->first_name,
   $self->mid_name, $self->last_name) );
}

# With this, mid name is correct in listing above but first name is
# Peter/Joe/Speltz
#__PACKAGE__->columns('Stringify' => qw/first_name mid_name last_name/ );

# returns true if prsn is senior citizen
sub is_senior_cit
{
    my $self = shift;
    return 1 if ($self->dob <= ( Class::Date::now - '65Y' ) );
    return 0;
}

1;

thanks

=====
pjs

                
__________________________________
Do you Yahoo!?
Check out the new Yahoo! Front Page.
www.yahoo.com
 

_______________________________________________
maypole mailing list
maypole at lists.netthink.co.uk
http://lists.netthink.co.uk/listinfo/maypole



This archive was generated by hypermail 2.1.3 : Thu Feb 24 2005 - 22:25:57 GMT