my $self = shift;

    my $self = shift;

    my $var  = shift;                          # The system preference to return

    my $var  = shift;                          # The system preference to return

    if (exists $sysprefs{$var}) {

    if (exists $sysprefs{$var}) {

        return $sysprefs{$var};

        return $sysprefs{$var};

    }

    }

    my $sql = <<'END_SQL';

    my $sql = <<'END_SQL';

        SELECT    value

        SELECT    value

        FROM    systempreferences

        FROM    systempreferences

        LIMIT    1

        LIMIT    1

END_SQL

END_SQL

    $sysprefs{$var} = $dbh->selectrow_array( $sql, {}, $var );

    $sysprefs{$var} = $dbh->selectrow_array( $sql, {}, $var );