UCW::Gallery::Web: Better interface between web FE and hooks

Each hook is now passed a reference to the front-end object,
which provides a trivial interface to hooks.

diff --git a/gal/UCW/Gallery/Web.pm b/gal/UCW/Gallery/Web.pm
index af87ba5c9d7e109a16fce38c3770bf3f40ba8b42..693e349d37c59483ea17fe648df5cf9f52a6b039 100644 (file)
--- a/gal/UCW/Gallery/Web.pm
+++ b/gal/UCW/Gallery/Web.pm
@@ -32,12 +32,24 @@ sub extras($$) {
        my ($self, $key) = @_;
        my $val = $self->get($key);
        if (ref $val eq 'CODE') {
-               return &$val($self->{gal});
+               return &$val($self);
        } else {
                return $val;
        }
 }
 
+# For use by extras hooks
+sub gallery($) {
+       my ($self) = @_;
+       return $self->{gal};
+}
+
+# For use by extras hooks: return true if we are showing an image page, false for index page
+sub showing_image($) {
+       my ($self) = @_;
+       return $show_img ne "";
+}
+
 sub html_top($) {
        my ($self) = @_;
        my $title = UCW::CGI::html_escape($self->get('Title'));