X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPresenter.pm;h=deeed1eb4fa8696ba64e1e4e22f7e119d1552e95;hb=c0158b6b111fa98fbde66a300237133c999bfb9f;hp=61ddab4082922064730bfc1fec7efd780715042a;hpb=d093f01c664ae2afaaed1a5b41e65ebc0ac154f3;p=kivitendo-erp.git diff --git a/SL/Presenter.pm b/SL/Presenter.pm index 61ddab408..deeed1eb4 100644 --- a/SL/Presenter.pm +++ b/SL/Presenter.pm @@ -7,15 +7,27 @@ use parent qw(Rose::Object); use Carp; use Template; +use SL::Presenter::Chart; use SL::Presenter::CustomerVendor; use SL::Presenter::DeliveryOrder; use SL::Presenter::EscapedText; use SL::Presenter::Invoice; +use SL::Presenter::GL; use SL::Presenter::Order; +use SL::Presenter::Part; use SL::Presenter::Project; use SL::Presenter::Record; +use SL::Presenter::RequirementSpec; +use SL::Presenter::RequirementSpecItem; +use SL::Presenter::RequirementSpecTextBlock; +use SL::Presenter::SepaExport; use SL::Presenter::Text; use SL::Presenter::Tag; +use SL::Presenter::BankAccount; + +use Rose::Object::MakeMethods::Generic ( + scalar => [ qw(need_reinit_widgets) ], +); sub get { return $::request->presenter; @@ -40,7 +52,7 @@ sub render { } # Only certain types are supported. - croak "Unsupported type: " . $options->{type} unless $options->{type} =~ m/^(?:html|js|json)$/; + croak "Unsupported type: " . $options->{type} unless $options->{type} =~ m/^(?:html|js|json|text)$/; # The "template" argument must be a string or a reference to one. $template = ${ $template } if ((ref($template) || '') eq 'REF') && (ref(${ $template }) eq 'SL::Presenter::EscapedText'); @@ -49,7 +61,8 @@ sub render { # Look for the file given by $template if $template is not a reference. my $source; if (!ref $template) { - $source = "templates/webpages/${template}." . $options->{type}; + my $ext = $options->{type} eq 'text' ? 'txt' : $options->{type}; + $source = "templates/webpages/${template}.${ext}"; croak "Template file ${source} not found" unless -f $source; } elsif (ref($template) eq 'SCALAR') { @@ -109,6 +122,7 @@ sub get_template { COMPILE_EXT => '.tcc', COMPILE_DIR => $::lx_office_conf{paths}->{userspath} . '/templates-cache', ERROR => 'templates/webpages/generic/exception.html', + ENCODING => 'utf8', }) || croak; return $self->{template}; @@ -223,9 +237,10 @@ The following options are available: =item C -The template type. Can be C (the default), C for JavaScript -or C for JSON content. Affects only the extension that's added -to the file name given with a non-reference C<$template> argument. +The template type. Can be C (the default), C for JavaScript, +C for JSON and C for plain text content. Affects only the +extension that's added to the file name given with a non-reference +C<$template> argument. =item C @@ -242,13 +257,17 @@ the following variables: =item * C -- C<$::auth> +=item * C -- the flash instance (C<$::form-E{FLASH}>) + =item * C
-- C<$::form> +=item * C -- C<$::instance_conf> + =item * C -- C<$::locale> =item * C -- all parameters from C with the same name they appear in the file (first level is the -section, second the actual variable, e.g. C, +section, second the actual variable, e.g. C, C etc) =item * C -- C<$::lxdebug> @@ -257,6 +276,9 @@ C etc) =item * C -- the controller instance +=item * C -- the presenter instance the template is +rendered with + =item * All items from C<%locals> =back