#!/usr/bin/perl -w

BEGIN {
    if (!$ENV{'PERL5LIB'} || !$ENV{'OPALS_CONF'}) {
        exit 1;
    }
}


use Opals::Context;

use strict;
my $dbh = Opals::Context->dbh();;
END {
    if ($dbh) {
        $dbh->disconnect();
    }
}
$| = 1;

my ($v)=$dbh->selectrow_array("select var from opl_preference where var='showGenre'");
if(!$v){
    $dbh->do(<<_SQL_);
    insert into opl_preference(var,val,valShow,varType,description,hidden,gid,gOrder)
    values('showGenre', 0,'Off','radio','On / Off Genre - Featured Collections in home menu',0,5,30)
_SQL_
    $dbh->do(<<_SQL_);
    insert into opl_prefFormParam(var,listOrder,name,val)
    values('showGenre', 0,'On',1),('showGenre', 1,'Off',0)
_SQL_
    
}


# Codes end.

exit 0;
################################################################################


#sub {
#}
############################################################