#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use Encode;

use Opals::Context;use POSIX qw(
    ceil
);

use Opals::Template qw(
    tmpl_read
    tmpl_redirect
    tmpl_preference
);

use Opals::Session qw(
    SessionHdl_clearVar
    SessionHdl_copy
    SessionHdl_get
    
);

my $dbh = Opals::Context->dbh();
END { $dbh->disconnect(); }

my $cgi     = CGI->new;
my $input   = $cgi->Vars();
my $ssid    = $cgi->cookie('globalSessionID');
my $src     = $input->{"src"};
my $target  = $input->{"target"};
   $target  = ($target && $target ne "")? $target :"marcEditHitlist";
my $path    = "";
   if ($target eq "marcEditHitlist"){
        $path    = "/bin/marc21/edit?op=hitlist";
   }
   elsif($target eq "addRsPathfinder"){
        $path    = "/bin/pf/pfList?op=addBookRs";
   }


if (!defined $src || $src eq ""){
    my @s =SessionHdl_get($dbh,$ssid,'delExpHitlist',0,1);
    $src= scalar(@s)>0?"delExpHitlist":"bibliography";
}

SessionHdl_clearVar($dbh,$ssid,$target);
SessionHdl_copy($dbh,$ssid,$src,$target);


tmpl_redirect($cgi,$path);