PDF::FromHTML::Template::Element::Weblink - PDF::FromHTML::Template::Element::Weblink documentation

PDF-FromHTML documentation

Contained in the PDF-FromHTML distribution.

Index

NAME
PURPOSE
NODE NAME
INHERITANCE
ATTRIBUTES
- * URL The URL to go to, when clicked
- * X1 / X2 / Y1 / Y2
CHILDREN
AFFECTS
DEPENDENCIES
USAGE
- USE AT YOUR OWN RISK
AUTHOR
SEE ALSO

Code Index:

package PDF::FromHTML::Template::Element::Weblink
- render
__END__
EOF

NAME

PDF::FromHTML::Template::Element::WebLink

PURPOSE

To provide a clickable web-link

NODE NAME

WEBLINK

INHERITANCE

PDF::FromHTML::Template::Element

ATTRIBUTES

* URL The URL to go to, when clicked
* X1 / X2 / Y1 / Y2: The dimensions of the clickable area

CHILDREN

None

AFFECTS

Nothing

DEPENDENCIES

None

USAGE

This node is currently under review as to whether it should be removed and a URL attribute should be added to various nodes, such as IMAGE, TEXTBOX, and ROW.

USE AT YOUR OWN RISK

AUTHOR

Rob Kinyon (rkinyon@columbus.rr.com)

SEE ALSO

PDF-FromHTML documentation

Contained in the PDF-FromHTML distribution.

package PDF::FromHTML::Template::Element::Weblink;

use strict;

BEGIN {
    use vars qw(@ISA);
    @ISA = qw(PDF::FromHTML::Template::Element);

    use PDF::FromHTML::Template::Element;
}

sub render
{
    my $self = shift;
    my ($context) = @_;

    return 0 unless $self->should_render($context);

    return 1 if $context->{CALC_LAST_PAGE};

    my $url = $context->get($self, 'URL');

    unless (defined $url)
    {
        warn "Weblink: no URL defined!", $/;
        return 1;
    }

    my @dimensions = map {
        $context->get($self, $_) || 0
    } qw( X1 Y1 X2 Y2 );

    $context->{PDF}->add_weblink( @dimensions, $url );

    return 1;
}

1;
__END__