X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=ex%2Ffancy_example%2FBeerDB%2FBase.pm;fp=ex%2Ffancy_example%2FBeerDB%2FBase.pm;h=0f980d9892b5692de1fcf734e4cdcf8152beee59;hb=7bb021648c28d2f70ec2853f0d01dd49c6437460;hp=0000000000000000000000000000000000000000;hpb=c3973978e1373a262d13da63c9e9ecfde4b72cc7;p=maypole.git

diff --git a/ex/fancy_example/BeerDB/Base.pm b/ex/fancy_example/BeerDB/Base.pm
new file mode 100644
index 0000000..0f980d9
--- /dev/null
+++ b/ex/fancy_example/BeerDB/Base.pm
@@ -0,0 +1,18 @@
+package BeerDB::Base;
+use base qw/Maypole::Model::CDBI/;
+use strict;
+use warnings;
+
+# Overide list to add display_columns to cgi  
+# Perhaps do this in AsForm?
+
+sub list : Exported {
+	use Data::Dumper;
+	my ($self, $r) = @_;
+	$self->SUPER::list($r);
+	my %cols =  map { $_ => 1 } $self->columns, $self->display_columns;
+	my @cols = keys %cols;
+	$r->template_args->{classmetadata}{cgi} = { $self->to_cgi(@cols) }; 
+}
+
+1;