use strict;
use warnings;
use CGI;
use CGI qw(:standard :html3);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Data::Dumper;
use URI::Escape;
use vars qw($SELF_URL $session);


sub sess_set_key_value
{
    my $self = shift;
    my ($session, $key, $value) = @_;

    $session->param($key, $value) or
                        dienice("Enter a proper key / value pair");

    if ($self->is_debug_set) {
        my $id = $session->id();
        print "SESSION ID - $id\n";
        print "SESSION SET Key - $key, Value - $value\n";
    }
    return 1;
}


sub sess_get_key_value
{
    my $self = shift;
    my ($session, $key) = @_;

    my $value = $session->param($key);
                        #dienice("Enter a proper key ");

    if ($self->is_debug_set) {
        my $id = $session->id();
        print "SESSION ID - $id\n";
        print "SESSION GET Key - $key, Value - $value\n";
    }

    return $value;
}