1 package Maypole::View::Base;
3 use UNIVERSAL::moniker;
5 use Maypole::Constants;
7 sub new { bless {}, shift } # By default, do nothing.
10 my ( $self, $r ) = @_;
11 my $root = $r->config->template_root || $r->get_template_root;
16 && File::Spec->catdir( $root, $r->model_class->moniker )
18 File::Spec->catdir( $root, "custom" ),
19 File::Spec->catdir( $root, "factory" )
24 my ( $self, $r ) = @_;
25 my $class = $r->model_class;
26 my $base = $r->config->uri_base;
30 objects => $r->objects,
37 $args{classmetadata} = {
39 table => $class->table,
40 columns => [ $class->display_columns ],
41 list_columns => [ $class->list_columns ],
42 colnames => { $class->column_names },
43 related_accessors => [ $class->related($r) ],
44 moniker => $class->moniker,
45 plural => $class->plural_moniker,
46 cgi => { $class->to_cgi },
49 # User-friendliness facility for custom template writers.
50 if ( @{ $r->objects || [] } > 1 ) {
51 $args{ $r->model_class->plural_moniker } = $r->objects;
54 ( $args{ $r->model_class->moniker } ) = @{ $r->objects || [] };
59 %args = ( %args, %{ $r->{template_args} || {} } );
64 my ( $self, $r ) = @_;
65 $r->{content_type} ||= "text/html";
66 $r->{document_encoding} ||= "utf-8";
67 my $status = $self->template($r);
68 return $self->error($r) if $status != OK;
73 my ( $self, $r ) = @_;
75 if ( $r->{error} =~ /not found$/ ) {
77 # This is a rough test to see whether or not we're a template or
79 return -1 unless @{ $r->{objects} || [] };
83 <H1> Template not found </H1>
85 This template was not found while processing the following request:
87 <B>@{[$r->{action}]}</B> on table <B>@{[ $r->{table} ]}</B> with objects:
90 @{[join "\n", @{$r->{objects}}]}
93 Looking for template <B>@{[$r->{template}]}</B> in paths:
96 @{[ join "\n", $self->paths($r) ]}
99 $r->{content_type} = "text/html";
100 $r->{output} = $r->{error};
103 $r->{content_type} = "text/plain";
104 $r->{output} = $r->{error};
109 sub template { die shift() . " didn't define a decent template method!" }