package Textbook::Preference;

require Exporter;
@ISA       = qw(Exporter);
# Symbols to be exported by default
#@EXPORT    = qw(
#    opl_
#);
# Symbols to be exported on request
@EXPORT_OK = qw(
    pref_getPreference
    );
# Version number
$VERSION   = 0.01;      

#use utf8;
use strict;

############################################################
#
# function schoolyear_getCurrent
#   
#
############################################################
sub pref_getPreference{
    my ($dbh)=@_;
    my $sql="select * from tbk_preference ";
    
    my $sth = $dbh->prepare($sql);
    $sth->execute();
    my $rec ;
    if($rec = $sth->fetchrow_hashref ){
        return $rec;
    }
    return undef;
}

1;