use hiSession;

sub change_event
{
 
  my ($this,$Testcase_Version)=@_;
  
  my $mycart = hiSession->new();
  my $session = $mycart->sess_load();

  # chk for session expire
  if ($mycart->sess_check_expire($session))
   { exit(0); }

  my $cart_test;
  my %test_info; 

    if($mycart->sess_get_key_value($session, 'Testver'))
    {
        $cart_test=$mycart->sess_get_key_value($session, 'Testver');
        %test_info = %$cart_testbed_info;

    }
   
  print "#########Retrive from cart";

  print Dumper \%test_info;
 
  print "##########################";

  my %tc_ver_prev_cart;

    chomp(my (@testcasenameofver)  =
        split /\*/,$Testcase_Version);

    $tc_ver_prev_cart{testcasename}=$testcasenameofver[0];
    $tc_ver_prev_cart{testcasever}=$testcasenameofver[1];
    
    print Dumper \%tc_ver_prev_cart;

    $mycart->sess_set_key_value($session,"Testver",\%tc_ver_prev_cart);
}

##</code><code>##

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;
}