source: branches/htmlform/cgi-bin/CommonWeb.pm@ 502

# ipdb/cgi-bin/CommonWeb.pm
###
# SVN revision info
# $Date$
# SVN revision $Rev$
# Last update by $Author$
###

package CommonWeb;

use strict;             
use warnings;
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

$VERSION     = 1.00;
@ISA         = qw(Exporter);
@EXPORT_OK      = qw( &printError );

@EXPORT      = (); #export nothing by default
%EXPORT_TAGS = ( ALL => [qw( &printError )],
                 lean    => [qw( &printError )]
                );


sub printError($)
{
        my $errStr = $_[0];
        print qq(
        <center><p class="regular"> $errStr </p>
        <input type="button" value="Back" onclick="history.go(-1)">
        </center>
        );
}

# indicate that the module loaded okay.
1;