#!/usr/bin/perl

#use utf8;
use strict;
use CGI;

use POSIX qw(
    ceil
    floor
);
use Opals::Context;#use MARC::File::USMARC;
use Opals::Template qw(
    tmpl_read
    tmpl_write
    tmpl_preference
    tmpl_rangedPageList
    tmpl_searchFieldAdvance
);
use Opals::Portal qw(
    portal_get
   );


use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);

    my $dbh = Opals::Context->dbh();
    my $cgi     = CGI->new;
    my $input = $cgi->Vars();
    END { $dbh->disconnect(); }

my ($permission, $cookie, $template) = tmpl_read(
        {
            dbh             => $dbh,
            cgi             => $cgi,
            tmplFile        => 'homeNew.tmpl',
        }
);
my @cookieList = (@$cookie);
my $self = $ENV{'SCRIPT_NAME'};

my $msgValMap={} ;

  my($layout, $portletList) = portal_get($dbh);
  $template->param(layout =>$layout,
                   portletList=> $portletList,
                   bgcolor     =>'#2EB8E6');    

#Mon, Nov 30, 2009 @ 09:04:13 EST
#
my $stdMsgMap  =loc_getMsgFile('search/standard.msg',$msgValMap);
loc_write($template,$stdMsgMap);
tmpl_write($dbh, $cgi, \@cookieList, $template);