Adding a preference

I have a preference I would like to store for each user. I added a column
to the Users table. I have a function In User.pm that is supposed to return
it. However I cannot figure out how to access that attribute of the current
user? is it possible?

my function so far is

sub Order
{
my $self = shift;
my $o = ‘’;
$o = $self->_Value(‘HistoryOrder’);
return $o;
}

HistoryOrder is the column I want to get?

John

<>< Proverbs 3:5 “Trust in the Lord with all your heart and lean not on
your own understanding;”