From 6465c6f9680c138430b31cc71024d545b9f412ca Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Thu, 2 May 2019 15:51:30 -0300 Subject: [PATCH] Bug 22834: Add Koha::Plugins::Base->bundle_path This patch adds a 'bundle_path' method that return the base path for assets included in the plugin. The idea is that it will be used for calculation of the absolute path in the filesystem for static content. To test: - Apply the unit tests patch - Run: $ kshell k$ prove t/db_dependent/Plugins.t => FAIL: The method is not implemented - Apply this patch - Run: k$ prove t/db_dependent/Plugins.t => SUCCESS: Tests pass! - Sign off :-D Signed-off-by: Arthur Suzuki Signed-off-by: Kyle M Hall Signed-off-by: Martin Renvoize (cherry picked from commit 0cca2795cdae643a6a94b95ad7879c363006cfed) Signed-off-by: Lucas Gass --- Koha/Plugins/Base.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/Koha/Plugins/Base.pm b/Koha/Plugins/Base.pm index 6b40a88911..ebcb4b262b 100644 --- a/Koha/Plugins/Base.pm +++ b/Koha/Plugins/Base.pm @@ -69,6 +69,8 @@ sub new { $self->store_data({ '__INSTALLED_VERSION__' => $plugin_version }); } + $self->{_bundle_path} = abs_path($self->mbf_dir); + return $self; } @@ -256,6 +258,20 @@ sub output_html { output_with_http_headers( $self->{cgi}, undef, $data, 'html', $status, $extra_options ); } +=head2 bundle_path + + my $bundle_path = $self->bundle_path + +Returns the directory in which bundled files are. + +=cut + +sub bundle_path { + my ($self) = @_; + + return $self->{_bundle_path}; +} + =head2 output $self->output( $data, $content_type[, $status[, $extra_options]]); -- 2.39.2