File Coverage

blib/lib/Wizard/Elem/Text/HTML.pm

Criterion	Covered	Total	%
statement	6	20	30.0
branch			n/a
condition	0	2	0.0
subroutine	2	3	66.6
pod	0	1	0.0
total	8	26	30.7

# -*- perl -*-
#
#   Wizard - A Perl package for implementing system administration
#            applications in the style of Windows wizards.
#
#
#   This module is
#
#           Copyright (C) 1999     Jochen Wiedmann
#                                  Am Eisteich 9
#                                  72555 Metzingen
#                                  Germany
#
#                                  Email: [e-mail]
#                                  Phone: [phone]
#
#                          and     Amarendran R. Subramanian
#                                  Grundstr. 32
#                                  72810 Gomaringen
#                                  Germany
#
#                                  Email: [e-mail]
#                                  Phone: [phone]
#
#   All Rights Reserved.
#
#   You may distribute under the terms of either the GNU General Public
#   License or the Artistic License, as specified in the Perl README file.
#
#   $Id$
#

use strict;

use Wizard::Elem::HTML ();


package Wizard::Elem::Text::HTML;

@Wizard::Elem::Text::HTML::ISA = qw(Wizard::Elem::HTML);
$Wizard::Elem::Text::HTML::VERSION = '0.01';


sub Display {
    my($self, $wiz, $form, $state) = @_;
    $self->SUPER::Display($wiz, $form, $state);
    my $attrstr = '';
    my $hurl = $form->HelpUrl() || 'gethelp.ep';
    my $mod = ref($state); $mod =~ s/\::/\//g; $mod .= '.pm';
    my $item = "item_" . $self->{'name'}; $item =~ s/\-/\_/g;
    foreach my $key (keys %$self) {
	my $keystr = $key; $keystr =~ tr/a-z/A-Z/;
	$attrstr .= ' ' . $keystr . '="'
	         . HTML::Entities::encode_entities($self->{$key}) . '" ';
    }


    $form->AddHTML('
		   . '
		   . $hurl . '?module=' . CGI->escape($mod)
		   . '#' . CGI->escape($item) . '">Help'
		   . '
}


1;