# -*- 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: joe@ispsoft.de # Phone: +49 7123 14887 # # and Amarendran R. Subramanian # Grundstr. 32 # 72810 Gomaringen # Germany # # Email: amar@ispsoft.de # Phone: +49 7072 920696 # # 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::BR::HTML; @Wizard::Elem::BR::HTML::ISA = qw(Wizard::Elem::HTML); $Wizard::Elem::BR::HTML::VERSION = '0.01'; sub Display { my($self, $wiz, $form, $state) = @_; $self->SUPER::Display($wiz, $form, $state); $form->AddHTML('
'); }