From abdf439e7920361321f503996c45c4aecdc0e4b8 Mon Sep 17 00:00:00 2001
From: Aaron Trevena <aaron.trevena@gmail.com>
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.5