XAO::DO::Web::Footer - simple HTML footer

XAO-Web documentation Contained in the XAO-Web distribution.

Index

Code Index:

NAME

Top

XAO::DO::Web::Footer - simple HTML footer

SYNOPSIS

Top

Currently is only useful in XAO::Web site context.

DESCRIPTION

Top

Displays "/bits/page-footer" template (can be overriden with "path" argument) giving it the following arguments:

Copyright information for XAO::Web.

Copyright information for XAO::Web suitable for HTML, with '©' for (C).

TITLE

Content of the 'title' argument if there is any or empty string otherwise.

VERSION

Current XAO::Web package version.

In most cases you would want to extend or override this object or at least its default template with something site specific.

METHODS

Top

No publicly available methods except overriden display().

EXPORTS

Top

Nothing.

AUTHOR

Top

Copyright (c) 2005 Andrew Maltsev

Copyright (c) 2001-2004 Andrew Maltsev, XAO Inc.

<am@ejelta.com> -- http://ejelta.com/xao/

SEE ALSO

Top

Recommended reading: XAO::Web, XAO::DO::Web::Page.

XAO-Web documentation Contained in the XAO-Web distribution. 
###############################################################################
package XAO::DO::Web::Footer;
use strict;
use XAO::Web;
use XAO::Utils;
use XAO::Objects;
use base XAO::Objects->load(objname => 'Web::Page');

use vars qw($VERSION);
$VERSION=(0+sprintf('%u.%03u',(q$Id: Footer.pm,v 2.1 2005/01/14 01:39:57 am Exp $ =~ /\s(\d+)\.(\d+)\s/))) || die "Bad VERSION";

sub display ($;%) {
    my $self=shift;
    my $args=get_args(\@_);

    my %a=(
        path            => '/bits/page-footer',
        VERSION         => $XAO::Web::VERSION,
        COPYRIGHT       => 'Copyright (C) 2000-2002 XAO, Inc.',
        'COPYRIGHT.HTML'=> 'Copyright &copy; 2000-2002 XAO, Inc.',
        TITLE           => $args->{title} || '',
    );

    $self->SUPER::display(merge_refs(\%a,$args));
}

###############################################################################
1;