change to Maypole::Model::CDBI::stringify_column to match name_foo rather than foo_na...

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 022d2220145ddea8ab2b7fdd65d5fa06ac1ef2d0..ce2b29485934a438293c832ff668dbe3f024872c 100644 (file)
--- 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 c1d37516aa07eb18cd2bd61819ac3d1577779bd7..0615f876388d8934c5bb10bfca560485781a684c 100644 (file)
--- 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];
 }