For information about current developments and future releases, see:
http://maypole.perl.org/?TheRoadmap
For information about current developments and future releases, see:
http://maypole.perl.org/?TheRoadmap
+2.09 Mon Jan 25 22:00:00 2005
+ Fixes:
+ - Fixed plugin inheritance set up by Maypole::Application, added tests
+
+ Templates:
+ - factory/addnew will only prefill values when there's a row creation error
+
+
2.08 Mon Jan 24 20:45:00 2005
- Added $r->config->template_extension() to set optional file extension
for templates (Dave Howorth)
2.08 Mon Jan 24 20:45:00 2005
- Added $r->config->template_extension() to set optional file extension
for templates (Dave Howorth)
MANIFEST.SKIP
META.yml Module meta-data (added by MakeMaker)
README
MANIFEST.SKIP
META.yml Module meta-data (added by MakeMaker)
README
-t/constants.t
-t/maypole.t
-t/apache_mvc.t
-t/cgi_maypole.t
-t/headers.t
t/01basics.t
t/02pod.t
t/03podcoverage.t
t/01basics.t
t/02pod.t
t/03podcoverage.t
+t/apache_mvc.t
+t/application.t
+t/cgi_maypole.t
+t/constants.t
+t/headers.t
+t/maypole.t
t/templates/custom/classdata
t/templates/custom/frontpage
t/templates/custom/list
t/templates/custom/classdata
t/templates/custom/frontpage
t/templates/custom/list
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Maypole
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Maypole
version_from: lib/Maypole.pm
installdirs: site
requires:
version_from: lib/Maypole.pm
installdirs: site
requires:
use strict;
use warnings;
use strict;
use warnings;
use CGI::Simple;
use Maypole::Headers;
use CGI::Simple;
use Maypole::Headers;
sub run {
my $self = shift;
sub run {
my $self = shift;
use Maypole::Constants;
use Maypole::Headers;
use Maypole::Constants;
use Maypole::Headers;
__PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
__PACKAGE__->mk_accessors(
__PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
__PACKAGE__->mk_accessors(
use Maypole::Config;
our @ISA;
use Maypole::Config;
our @ISA;
- my ( $self, @plugins ) = @_;
+ my ( $class, @plugins ) = @_;
- no strict 'refs';
- push @{"${caller}::ISA"}, $self;
- foreach (sort @plugins) {
- if (/^\-Setup$/) { $autosetup++; }
- elsif (/^\-Debug$/) {
- *{"$caller\::debug"} = sub { 1 };
- warn "Debugging enabled";
- }
- elsif (/^-.*$/) { warn "Unknown flag: $_" }
- else {
- # The plugin caller should be our application class
- eval "package $caller; require Maypole::Plugin::$_";
- if ($@) { warn qq(Loading plugin "Maypole::Plugin::$_" failed: $@) }
+ my @plugin_modules;
+ {
+ foreach (@plugins) {
+ if (/^\-Setup$/) { $autosetup++; }
+ elsif (/^\-Debug$/) {
+ no strict 'refs';
+ *{"$caller\::debug"} = sub { 1 };
+ warn "Debugging enabled";
+ }
+ elsif (/^-.*$/) { warn "Unknown flag: $_" }
- warn "Loaded plugin: Maypole::Plugin::$_" if $caller->debug;
- push @{"${caller}::ISA"}, "Maypole::Plugin::$_";
+ my $plugin = "Maypole::Plugin::$_";
+ if ($plugin->require) {
+ push @plugin_modules, "Maypole::Plugin::$_";
+ warn "Loaded plugin: $plugin"
+ if $caller->can('debug') && $caller->debug;
+ } else {
+ warn qq(Loading plugin "$plugin" failed: )
+ . $UNIVERSAL::require::ERROR;
+ }
+ no strict 'refs';
+ push @{"${caller}::ISA"}, @plugin_modules, $class;
$caller->config(Maypole::Config->new);
$caller->setup() if $autosetup;
}
$caller->config(Maypole::Config->new);
$caller->setup() if $autosetup;
}
<label><span class="field">[% classmetadata.colnames.$col %]</span>
[%
SET elem = classmetadata.cgi.$col.clone;
<label><span class="field">[% classmetadata.colnames.$col %]</span>
[%
SET elem = classmetadata.cgi.$col.clone;
- IF elem.tag == "textarea";
- elem = elem.push_content(request.param(col));
- ELSE;
- elem.attr("value", request.param(col));
+ IF request.action == 'do_edit';
+ IF elem.tag == "textarea";
+ elem = elem.push_content(request.param(col));
+ ELSE;
+ elem.attr("value", request.param(col));
+ END;
END;
elem.as_XML; %]
</label>
END;
elem.as_XML; %]
</label>