X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole%2FModel%2FCDBI%2FAsForm.pm;h=d76ecb42da5bcca50de5497b3231e169d54f2fad;hb=c4b63ea7f89aaf4480098e4d916de649dbaac29f;hp=06f1039f3f1da76866a975733e63dbd0efb9909b;hpb=99967c293b1b617a0cac8126f923f6acfa2e4598;p=maypole.git diff --git a/lib/Maypole/Model/CDBI/AsForm.pm b/lib/Maypole/Model/CDBI/AsForm.pm index 06f1039..d76ecb4 100644 --- a/lib/Maypole/Model/CDBI/AsForm.pm +++ b/lib/Maypole/Model/CDBI/AsForm.pm @@ -1,6 +1,4 @@ package Maypole::Model::CDBI::AsForm; - -use Class::C3; use strict; use warnings; @@ -1179,7 +1177,7 @@ sub _options_from_objects { for my $object (@$items) { my $stringify = $args->{stringify}; if ($object->can('stringify_column') ) { - $stringify ||= $object->stringify_column if ($object->can($object->stringify_column)); + $stringify ||= $object->stringify_column if ($object->stringify_column && $object->can($object->stringify_column)); } my $id = $object->id; my $opt = HTML::Element->new("option", value => $id);