use utf8;
use warnings;
no warnings 'redefine';
use strict;

use Loader qw(list_hardwares);

sub list_person_hardware($;$) {
    my ( $person_id, $flags ) = @_;
    list_hardwares( undef, $flags, "hardware.standort = $person_id" );
}

1;
