From: Aaron Trevena <aaron.trevena@gmail.com>
Date: Wed, 13 Jul 2005 14:07:01 +0000 (+0000)
Subject: change to Maypole::Model::CDBI::stringify_column to match name_foo rather than foo_na... 
X-Git-Tag: 2.10~6
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=abdf439e7920361321f503996c45c4aecdc0e4b8;p=maypole.git

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
---

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];
 }