Index: Order.pm =================================================================== --- Order.pm (revision 302) +++ Order.pm (revision 303) @@ -24,6 +24,9 @@ _s_filter _uid_filter + _manager_filter + _vault_filter + _postman_filter )]; sub available_filters { @@ -191,4 +194,22 @@ return &SQL::Common::_generic_int_filter('d.uid', $opts{uid}); } +sub _manager_filter { + my ($self,%opts)=@_; + return undef unless ( exists $opts{manager} ); + return &SQL::Common::_generic_int_filter('d.manager_id', $opts{manager}); +} + +sub _vault_filter { + my ($self,%opts)=@_; + return undef unless ( exists $opts{vault} ); + return &SQL::Common::_generic_int_filter('d.vault_id', $opts{vault}); +} + +sub _postman_filter { + my ($self,%opts)=@_; + return undef unless ( exists $opts{postman} ); + return &SQL::Common::_generic_int_filter('d.postman_id', $opts{postman}); +} + 1; \ No newline at end of file