From abdf439e7920361321f503996c45c4aecdc0e4b8 Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Wed, 13 Jul 2005 14:07:01 +0000 Subject: [PATCH] change to Maypole::Model::CDBI::stringify_column to match name_foo rather than foo_name as stringifying column git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@358 48953598-375a-da11-a14b-00016c27c3ee --- META.yml | 2 +- lib/Maypole/Model/CDBI.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/META.yml b/META.yml index 022d222..ce2b294 100644 --- a/META.yml +++ b/META.yml @@ -1,7 +1,7 @@ # http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: Maypole -version: 2.10_pre2a +version: 2.10_pre3 version_from: lib/Maypole.pm installdirs: site requires: diff --git a/lib/Maypole/Model/CDBI.pm b/lib/Maypole/Model/CDBI.pm index c1d3751..0615f87 100644 --- a/lib/Maypole/Model/CDBI.pm +++ b/lib/Maypole/Model/CDBI.pm @@ -152,7 +152,7 @@ sub stringify_column { my $class = shift; return ( $class->columns("Stringify"), - ( grep { /(name|title)/i } $class->columns ), + ( grep { /^(name|title)/i } $class->columns ), ( grep { !/id$/i } $class->primary_columns ), )[0]; } -- 2.39.2