#!/usr/bin/perl -w
package Net4Lib;
use 5.004;
use strict;      # Restrict unsafe variables, references, barewords
use Carp;
use RepLib;
use CGI;
use vars qw(@ISA @EXPORT @EXPORT_OK $Version);
@ISA = qw(Exporter);
@EXPORT = qw();
@EXPORT_OK = qw(1);
#---------------------------------------------------------------------------
#################################################
#		PRIME FUNCTIONS 						#
#################################################
#===========================================================
#that displays the page on the browser
sub DisplayHTML
{
	my ($filepath,%hash) = @_;
	my $html = Net4Base::GetTextFile($filepath);
	if($html ne "no")
	{
		$html = RepLib::repError($html,$hash{'error'});
		$hash{"CGIPATH"} = $Net4Constants::CGIPATH;
		$html = SendValuesToHTML($html, $filepath, %hash);
	}
	else
	{
		$html = "$filepath : Error - There's problem with displaying the page.";
	}
	return $html;
}
#===========================================================
#Send values to the HTML PAGE
sub SendValuesToHTML
{
	my ($html, $filepath, %hash) = @_;
#Freedom Quest
	if($filepath eq $Net4Constants::htmlpathFQForm)
	{
		return RepLib::repFQFormHTML($html, %hash);
	}
	elsif($filepath eq $Net4Constants::htmlpathFQSuccess)
	{
		return RepLib::repFQSuccHTML($html, %hash);
	}
}