gal2/UCW/Gallery/Web/Plain.pm

   1 # Plain Theme for MJ's Photo Gallery
   2 # (c) 2012 Martin Mares <mj@ucw.cz>; GPL'ed
   3
   4 package UCW::Gallery::Web::Plain;
   5
   6 use strict;
   7 use warnings;
   8
   9 use UCW::Gallery;
  10 use UCW::Gallery::Web;
  11
  12 our @ISA = qw(UCW::Gallery::Web);
  13
  14 my $theme_name = "plain";
  15 my $navw = 48;
  16 my $navh = 48;
  17 my $box_w = 130;
  18 my $box_h = 110;
  19 my $thumb_w = 114;
  20 my $thumb_h = 94;
  21
  22 sub theme_dir($) {
  23         my ($self) = @_;
  24         return $self->get('ThemeUrlPrefix') . $theme_name;
  25 }
  26
  27 sub theme_head_extras($) {
  28         my ($self) = @_;
  29         my $stylesheet = $self->theme_dir . "/style.css";
  30         return "<link rel=stylesheet href='$stylesheet' type='text/css' media=all>\n";
  31 }
  32
  33 sub show_links($$$$) {
  34         my ($self, $prev, $up, $next) = @_;
  35         my $theme = $self->theme_dir;
  36         print "<p class=parent>";
  37         print "<span class=back style='width: ${navw}px; height: ${navh}px'>";
  38         print "<a href='$prev'><img src='$theme/prev.png' width=${navw} height=${navh} alt='Back'></a>" if $prev ne "";
  39         print "</span>\n";
  40         printf "<span class=fwd style='width: ${navw}px; height: ${navh}px'>";
  41         printf "<a href='$next'><img src='$theme/next.png' width=${navw} height=${navh} alt='Forward'></a>" if $next ne "";
  42         print "</span>\n";
  43         printf "<a href='$up'><img src='$theme/back.png' width=${navw} height=${navh} alt='Up'></a>" if $up ne "";
  44 }
  45
  46 sub show_thumb($) {
  47         my ($self, $meta, $photo_id, $click_url) = @_;
  48         my $theme = $self->theme_dir;
  49         my $m = $meta->{photo}->{$photo_id};
  50         my $annot = UCW::CGI::html_escape($m->{title});
  51         my $tf = $self->{thumb_fmt};
  52         my $tm = $meta->{thumb}->{$tf}->{$photo_id} or die "No thumbnails for format $tf found!\n";
  53         my $tw = $tm->{w};
  54         my $th = $tm->{h};
  55         my $thumb = $self->get('ThumbUrlPrefix') . "$tf/$photo_id.jpg";
  56         print "<div class=thf><div class=thumb>\n";
  57         my $ol = int(($box_w - $tw)/2);
  58         my $ot = int(($box_h - $th)/2);
  59         my $tit = ($annot ne "") ? " title=\"$annot\"" : "";
  60         print "<a href='$click_url'><img src='$thumb' width=$tw height=$th alt='Photo'$tit class=ti style='left: ${ol}px; top: ${ot}px'></a>\n";
  61         print "</div></div>\n\n";
  62 }
  63
  64 sub attach($$) {
  65         my ($class, $gal) = @_;
  66         my $self = $class->SUPER::attach($gal);
  67         $self->{thumb_fmt} = $gal->require_thumbnails($thumb_w, $thumb_h);
  68         return $self;
  69 }
  70
  71 1;