From: Eugene Crosser Date: Thu, 4 Sep 2008 13:40:45 +0000 (+0000) Subject: rollback it. will go a simpler road. X-Git-Tag: 2.00~11 X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=commitdiff_plain;h=14f59b5697b711f20cdcaf459a36ad103531565c rollback it. will go a simpler road. --- diff --git a/include/chrome.pm b/include/chrome.pm deleted file mode 100644 index e27fb5b..0000000 --- a/include/chrome.pm +++ /dev/null @@ -1,52 +0,0 @@ -#!/usr/bin/perl -# $Id$ -# -# customizable class to generate html around the gallery index - -package Chrome; - -use strict; - -# Boilerplate. Do not change this (unless you know better). - -sub new { - my $this=shift; - my $self; - my $parm=shift; - if (ref($this)) { - die "$this::new should not be called as instance method"; - } else { - $self={ - -title => $parm->{-title}, - -depth => $parm->{-depth}, - -breadcrumbs => $parm->{-breadcrumbs}, - }; - } - bless $self,$this; - return $self; -} - -# Public methods. Replace this with what suits you. - -sub header { - my $self=shift; - return $self{-depth}? - "
UP
": - "". - "

$self{-title}

"; -} - -sub axheader { - my $self=shift; - return "

Albums

"; -} - -sub ixheader { - my $self=shift; - return "

Images

"; -} - -sub footer { - my $self=shift; - return "
"; -}