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=0000000000000000000000000000000000000000;hb=79aa8d27d124d06bf88b2fc0487ae97563b98936;hp=aaafce1eec74e1e1249a43c009af0e287a8637fb;hpb=1c8db728a3fb5adb4f0ea876ea1316457700edf8;p=maypole.git

diff --git a/ex/fancy_example/BeerDB/Base.pm b/ex/fancy_example/BeerDB/Base.pm
deleted file mode 100644
index aaafce1..0000000
--- a/ex/fancy_example/BeerDB/Base.pm
+++ /dev/null
@@ -1,51 +0,0 @@
-package BeerDB::Base;
-use base qw/Maypole::Model::CDBI/;
-use strict;
-use warnings;
-use Data::Dumper;
-
-# 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) }; 
-}
-
-# Override view to make inputs and process form to add to related 
-sub view : Exported {
-    my ($self, $r, $obj) = @_;
-    $self->_croak( "Object method only") unless $obj;
-
-    if ($r->params->{submit}) {
-        my @related  = $obj->add_to_from_cgi($r, { required => [$self->related ]});
-        if (my $errs = $obj->cgi_update_errors) {
-            $r->template_args->{errors} = $errs;
-        }
-    }
-
-    # Inputs to add to related on the view page
-	# Now done on the view template 
-	# my %cgi = $self->to_cgi($self->related);
-	#$r->template_args->{classmetadata}{cgi} =  \%cgi ;
-}
-
-
-# Template switcheroo bug bit me -- was seeing view page but the view action was never 
-# being executed after an edit.
-sub do_edit : Exported {
-	my ($self, $r) = (shift, shift);
-	$self->SUPER::do_edit($r, @_);
-	if (my $obj = $r->object) {
-		my $url = $r->config->uri_base . "/" . $r->table . "/view/" . $obj->id;
-		$r->redirect_request(url => $url);
-	}
-}
-
-sub metadata: Exported {}
-	
-
-1;