#! /usr/bin/perl -w
package RepLib;
use 5.004;
use strict;      # Restrict unsafe variables, references, barewords
use Carp;
use Net4Base;
use vars qw(@ISA @EXPORT @EXPORT_OK);
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw(1);
#***********************************************
# To replace the repValues as a error on html
#**********************************************
sub repError
{
	my ($form, $error) = @_;
	my %repValues;
	$error='' if(defined($error)==0);
	$repValues{'error'} = $error;
	return Net4Base::ReplaceTags($form, %repValues);
}
#***********************************************
# To replace the repValues as a header on html
#**********************************************
sub repHeader
{
	my ($form, $header) = @_;
	my (%repValues);
	$header='' if(defined($header) == 0);
	$repValues{'header'} = $header;
	return Net4Base::ReplaceTags($form, %repValues);
}
## Freedom Quest
sub repFQFormHTML
{
	my ($form, %hash)=@_;
	my %repValues;
	return Net4Base::ReplaceTags($form, %repValues);
}
sub repFQSuccHTML
{
	my ($form, %hash)=@_;
	my %repValues;
	return Net4Base::ReplaceTags($form, %repValues);
}