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