Release 2.08. Add Maypole::Config->template_extension, Maypole::Application adds...

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@334 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/Changes b/Changes
index 96caa5db60ba62a6bb932c1e5ab40a0386b672ce..ccc23d9aed3c63f113df58983a8aa49fa7ff56db 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,7 +2,20 @@ This file documents the revision history for Perl extension Maypole.
 For information about current developments and future releases, see:
     http://maypole.perl.org/?TheRoadmap
 
-2.07  Mon Jan 24 20:00:00 2005
+2.08  Mon Jan 24 20:45:00 2005
+    - Added $r->config->template_extension() to set optional file extension
+      for templates (Dave Howorth)
+
+    Fixes:
+    - Maypole::Application adds plugin classes to caller's @ISA (Marcus Ramberg)
+    - FETCH_CODE_ATRIBUTES in M::M::Base should return an empty list if there
+      are no attributes
+    - M::M::CDBI will warn() about Class::DBI::FromCGI errors
+    
+
+2.07  Sun Jan 16 18:45:00 2005
+    (This version was not uploaded to CPAN)
+
     Internal changes:
     - Removed Maypole::Model->description. It didn't work as expected and
       clashed with 'description' columns in the database
@@ -12,9 +25,6 @@ For information about current developments and future releases, see:
       undefined element
     - Fixed overriding $r->template_args->{classmetadata} in M::V::Base
       (Thanks to Dave Howorth for spotting the mistake)
-    - FETCH_CODE_ATRIBUTES in M::M::Base should return an empty list if there
-      are no attributes
-    - M::M::CDBI will warn() about Class::DBI::FromCGI errors
     - #9473: Maypole::Model::CDBI->related_class (Thanks David Baird)
     - #9434: M::M::CDBI->search generated "uninitialized value" warnings
 

diff --git a/lib/Apache/MVC.pm b/lib/Apache/MVC.pm
index 45dd897ec0ac0abf65502c4d3222bc6595640871..ce9e656bc1f1c598f324d990a7d1b729a0507cce 100644 (file)
--- a/lib/Apache/MVC.pm
+++ b/lib/Apache/MVC.pm
@@ -1,6 +1,6 @@
 package Apache::MVC;
 
-our $VERSION = '2.07';
+our $VERSION = '2.08';
 
 use strict;
 use warnings;

diff --git a/lib/CGI/Maypole.pm b/lib/CGI/Maypole.pm
index e002cf2d2ddc47099d291fedd849496219bf7d9f..7ea9ee7a9b153cf425946ca087227a645fef3dcc 100644 (file)
--- a/lib/CGI/Maypole.pm
+++ b/lib/CGI/Maypole.pm
@@ -6,7 +6,7 @@ use warnings;
 use CGI::Simple;
 use Maypole::Headers;
 
-our $VERSION = '2.07';
+our $VERSION = '2.08';
 
 sub run {
     my $self = shift;

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 7f1e9d33ee3034e397195bf9ee64362a9f99a1d1..34e2ebbc2b7819c7657e98550fa4e03a97b3d99e 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -7,7 +7,7 @@ use Maypole::Config;
 use Maypole::Constants;
 use Maypole::Headers;
 
-our $VERSION = '2.07';
+our $VERSION = '2.08';
 
 __PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
 __PACKAGE__->mk_accessors(

diff --git a/lib/Maypole/Application.pm b/lib/Maypole/Application.pm
index 18cd589fccf03e0f62f15c21047e2cbd5db76bda..3336c1f73cd7d1da68d9fbbb1c6677856e41b302 100644 (file)
--- a/lib/Maypole/Application.pm
+++ b/lib/Maypole/Application.pm
@@ -7,7 +7,7 @@ use Maypole;
 use Maypole::Config;
 
 our @ISA;
-our $VERSION = '2.07';
+our $VERSION = '2.08';
 
 sub import {
     my ( $self, @plugins ) = @_;
@@ -28,7 +28,7 @@ sub import {
             if ($@) { warn qq(Loading plugin "Maypole::Plugin::$_" failed: $@) }
             else {
                 warn "Loaded plugin: Maypole::Plugin::$_" if $caller->debug;
-                unshift @ISA, "Maypole::Plugin::$_";
+                push @{"${caller}::ISA"}, "Maypole::Plugin::$_";
             }
         }
     }

diff --git a/lib/Maypole/Config.pm b/lib/Maypole/Config.pm
index cc9a9f59250b9a9faa74f4689b3629e7991c3b65..a2660d78c9f999176ecb667f3b610da19ac83aec 100644 (file)
--- a/lib/Maypole/Config.pm
+++ b/lib/Maypole/Config.pm
@@ -9,8 +9,9 @@ our $VERSION = "1." . sprintf "%04d", q$Rev$ =~ /: (\d+)/;
 
 # Public accessors.
 __PACKAGE__->mk_accessors(
-     qw( view view_options uri_base template_root model loader display_tables
-         ok_tables rows_per_page dsn user pass opts application_name)
+     qw( view view_options uri_base template_root template_extension model
+         loader display_tables ok_tables rows_per_page dsn user pass opts
+         application_name)
 );
 
 # Should only be modified by model.
@@ -46,6 +47,10 @@ Optional.
 
 Contains a list of all tables, if supported by model.
 
+=head3 template_extension
+
+Optional template file extension.
+
 =head3 template_root
 
 This is where your application can find its templates.

diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index 59c3f8fe888388b26dbf969e14fadd6288c43ec6..13130e53ec1154c6ecfe1c44019db12582265096 100644 (file)
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -21,8 +21,12 @@ sub template {
 
     $self->{provider}->include_path([ $self->paths($r) ]);
 
+    my $template_file = $r->template;
+    my $ext = $r->config->template_extension;
+    $template_file .= $ext if defined $ext;
+
     my $output;
-    if ($self->{tt}->process( $r->template, { $self->vars($r) }, \$output )) {
+    if ($self->{tt}->process($template_file, { $self->vars($r) }, \$output )) {
         $r->{output} = $output;
         return OK;
     }