#!/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_getLayout
);

use Opals::RSS ;
use Opals::Locale qw(
    loc_getMsgFile
    loc_write
);
use Opals::Constant;

    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        => 'home_edit.tmpl',
            reqPermission   => 'pref_edit',
        }
);
my @cookieList = (@$cookie);
my $self = $ENV{'SCRIPT_NAME'};

   
if($permission && $permission->{'pref_edit'}){
    my $msgValMap={} ;
    my($layout, $portletList) = portal_getLayout($dbh);
    my $portletTmp;
    foreach my $p (@$portletList){
        if($p->{'type'} eq 'aboutUs'){
            foreach my $item(@{$p->{'prop'}}){
                if($item->{'var'} eq 'content'){
                    $template->param(aboutUsContent =>$item->{'val'});
                    last;
                }
            }
        }
        elsif($p->{'type'} eq 'html'){
            foreach my $item(@{$p->{'prop'}}){
                if($item->{'var'} eq 'html'){
                    $item->{'val'}="";
                    last;
                }
            }
        }
     }
     
    my $syspref          = tmpl_preference($dbh); 
    my $header_logo_pos= lc($syspref->{'headerLogo_pos'});
    $template->param(layout         =>$layout,
                     portletList    => $portletList,
                     portalEdit     =>1,
                     logoOnLeft     => !($header_logo_pos eq 'right'),
                     hlpUrl         => HELP_URL->{"home_edit"},
                     );    
    
    if($header_logo_pos ne ""){
         $template->param(hasLogo=>1);
    }
    my $msgMap            =loc_getMsgFile('report/reports.msg',$msgValMap);
    loc_write($template,$msgMap);
    my $wlMsgMap  =loc_getMsgFile('/util/weblink.msg',$msgValMap);
    loc_write($template,$wlMsgMap);
    my $pageMsgMap  =loc_getMsgFile('/homeTab.msg',$msgValMap);
    loc_write($template,$pageMsgMap);
}
tmpl_write($dbh, $cgi, \@cookieList, $template);