$(call copy, $(addprefix nrt-blue/,back.png bot.png left.png next.png prev.png right.png top.png style.css))
$(call copy, $(addprefix plain/,back.png next.png prev.png style.css))
+$(call copy, $(addprefix highslide/nav/,back.png next.png prev.png))
$(call copy, $(addprefix highslide/, highslide.css highslide-ie6.css highslide-with-gallery.js custom.css custom.js))
$(call copy, $(addprefix highslide/graphics/, \
our @ISA = qw(UCW::Gallery::Web);
-my $theme_name = "plain";
-
-sub theme_dir($) {
- my ($self) = @_;
- return $self->get('ThemeUrlPrefix') . $theme_name;
-}
-
sub theme_head_extras($) {
my ($self) = @_;
my $hsdir = $self->get('ThemeUrlPrefix') . "highslide";
sub show_links($$$$) {
my ($self, $prev, $up, $next) = @_;
- my $theme = $self->theme_dir;
+ my $nav = $self->get('ThemeUrlPrefix') . "highslide/nav";
print "<p class=parent>";
- print "<a href='$prev'><img class=back prev src='$theme/prev.png'></a>" if $prev ne "";
- printf "<a href='$next'><img class=fwd src='$theme/next.png'></a>" if $next ne "";
- printf "<a href='$up'><img class=up src='$theme/back.png'></a>" if $up ne "";
+ print "<a href='$prev'><img class=back prev src='$nav/prev.png'></a>" if $prev ne "";
+ printf "<a href='$next'><img class=fwd src='$nav/next.png'></a>" if $next ne "";
+ printf "<a href='$up'><img class=up src='$nav/back.png'></a>" if $up ne "";
}
sub show_pre_thumbs($) {