#!/perl/bin/perl -wT
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use CGI::Session;
use strict;

use vivek::money_pm::money ;

my $cgi = CGI->new;
#print $cgi->header;

########### -- SPECIAL CODE FOR FIRST PAGE OF WEBSITE--##################

# user_id is being passed from login.cgi

my $login_user_id = $cgi->param('user_id');	

########### -- Creating The session--##################

my $session = CGI::Session->new( undef, $cgi, {Directory=>'/tmp'} );
$session->flush();
my $cookie = $cgi->cookie(CGISESSID => $session->id );
print $cgi->header(-cookie=>$cookie);

print $cgi->start_html("ADD CATEGORY");

print " sid = ", $session->id();

if ($login_user_id) {	$session->param('user_id', $login_user_id)  ;	}

print "<BR> login_user_id = $login_user_id <BR>" ;

my $user_id		= $session->param('user_id');			print " user_id = $user_id <BR>" ;

#$user_id = 'vivekjain';

###### HTML TEMPLATE  ##############

print "<TABLE BORDER = 1 width = 600  cellpadding = 10> ";
print "<TR > <TD colspan = 2 height = 60 width = 150 align = left> Main Heading </TD></TR>" ;

print "<TR  > <TD height = 30 width = 175 > 	 ll";	#	Left menu

& user_left_menu () ;

print "</TD> <TD valign = 'top'> MAIN PAGE" ;

		
##############################################
print "<p class=\"heading\"> Add Payment Category Here </p> <BR>" ;
##############################################

if(!$cgi->param('flag') ) {		# hidden Variable

	& add_category_html ();
}
else {	

		my $category_name		= $cgi->param('category_name');
		my $description			= $cgi->param('description');

		my $payment_category = qq { INSERT INTO PAYMENT_CATEGORY ( CATEGORY_NAME, CATEGORY_TYPE_ID, DESCRIPTION, SURITY_OF_RETURN, CREATE_DATE, IS_DELETED, USER_ID) values( '$category_name','$category_type_id', '$description', '$surity_of_return', NOW(), 'N', '$user_id') } ;
 
#		& query_execute ($payment_category) ;

print"</TD> </TR>" ;	# HTML Template ends
print"</TABLE>";

print $cgi->end_html();

1;

sub add_category_html {	

HTML CODE FOR ADDING CATEGORY
	
}