From 14f59b5697b711f20cdcaf459a36ad103531565c Mon Sep 17 00:00:00 2001 From: Eugene Crosser Date: Thu, 4 Sep 2008 13:40:45 +0000 Subject: [PATCH] rollback it. will go a simpler road. --- include/chrome.pm | 52 ----------------------------------------------- 1 file changed, 52 deletions(-) delete mode 100644 include/chrome.pm 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 "
"; -} -- 2.39.2