• Order.pm

    302 303  
    24 24 _s_filter
    25 25
    26 26 _uid_filter
    27 _manager_filter
    28 _vault_filter
    29 _postman_filter
    27 30 )];
    28 31
    29 32 sub available_filters {
    … …  
    191 194 return &SQL::Common::_generic_int_filter('d.uid', $opts{uid});
    192 195 }
    193 196
    197 sub _manager_filter {
    198 my ($self,%opts)=@_;
    199 return undef unless ( exists $opts{manager} );
    200 return &SQL::Common::_generic_int_filter('d.manager_id', $opts{manager});
    201 }
    202
    203 sub _vault_filter {
    204 my ($self,%opts)=@_;
    205 return undef unless ( exists $opts{vault} );
    206 return &SQL::Common::_generic_int_filter('d.vault_id', $opts{vault});
    207 }
    208
    209 sub _postman_filter {
    210 my ($self,%opts)=@_;
    211 return undef unless ( exists $opts{postman} );
    212 return &SQL::Common::_generic_int_filter('d.postman_id', $opts{postman});
    213 }
    214
    194 215 1;