#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use Opals::Context;

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

my $cgi = CGI->new;

use Opals::Template qw(
    tmpl_preference
    tmpl_redirect

);

    my $pref = tmpl_preference($dbh);
    my $defaultPage=$pref->{'defaultSearchPage'};
    my $url="/bin/home";

    my $sth=$dbh->prepare("select path from opl_menuItem where headerkey='home'");
    $sth->execute();
    if(my $rec =$sth->fetchrow_hashref){
        $url=$rec->{'path'};
    }
    if($defaultPage==1){
         $url="/bin/search/beginner";
    }
    elsif($defaultPage==2){
        $url="/bin/search/advance";
    }
    elsif($defaultPage==3){# OWL Interface
        $url="/bin/search/bgnrSrch/srchPage";
    }
    
   tmpl_redirect($cgi,$url);