29 lines
586 B
Perl
29 lines
586 B
Perl
#!/usr/bin/perl
|
|
# Value of 'operating system' field
|
|
# License: Dual-license GPL 3.0+ or MPL 1.1+
|
|
# Contributor(s): Vitaliy Filippov <vitalif@mail.ru>
|
|
|
|
package Bugzilla::OS;
|
|
|
|
use strict;
|
|
|
|
use base qw(Bugzilla::Field::Choice);
|
|
use constant DB_TABLE => 'op_sys';
|
|
use constant FIELD_NAME => 'op_sys';
|
|
|
|
use constant DB_COLUMNS => (Bugzilla::Field::Choice->DB_COLUMNS, 'ua_regex');
|
|
use constant UPDATE_COLUMNS => (Bugzilla::Field::Choice->UPDATE_COLUMNS, 'ua_regex');
|
|
|
|
sub ua_regex
|
|
{
|
|
return $_[0]->{ua_regex};
|
|
}
|
|
|
|
sub set_ua_regex
|
|
{
|
|
return $_[0]->set('ua_regex', $_[1]);
|
|
}
|
|
|
|
1;
|
|
__END__
|