Hello,

Can someone help me see what I might be doing wrong here, or point me to a simpler solution? Without the stringify_self subroutine, everything works just fine. With stringify_self, I get very similar results to those described by Aaron here:

http://maypole.sourceforge.net/old_list_archive/0097.html

But alas, his solution has not worked for me, although I can get a away with something useless like this

sub stringify_self {
   my $self = shift;
   my $stringified = 1;
   return $stringified;
}

Or with anything else that does not actually use $self.

package Beer::Drinker;
use strict;
use base qw(Maypole::Model::CDBI);
__PACKAGE__->untaint_columns(
   printable => [qw/ last_name first_name /],
);

sub stringify_self {
   my $self = shift;
   return join " ", $self->last_name, $self->first_name;
}

1;

Particulars:
Maypole 2.10
Class-DBI-FromCGI 1.00
CGI-Untaint 1.26

Thanks in advance for any insight!

Bill

--
   Bill Broomall
   [EMAIL PROTECTED]
   425-280-4232

   Quantum Linux Laboratories     http://www.quantumlinux.com
   ACCELERATING Business with Linux Technology
Integration * Support * Development * Education






-------------------------------------------------------
SF.Net email is sponsored by:
Tame your development challenges with Apache's Geronimo App Server. Download
it for free - -and be entered to win a 42" plasma tv or your very own
Sony(tm)PSP.  Click here to play: http://sourceforge.net/geronimo.php
_______________________________________________
Maypole-users mailing list
Maypole-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/maypole-users

Reply via email to