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;
