sub SafeNumberParam
{
    my ($self)  = shift;
    my ($param) = @_;

    my ($number) = $self->param($param) =~ /^(\d+)/;

    return $number;
}