1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
package Api::Ocsinventory::Restapi::Computer::Get::ComputerIdField;
=for comment
This function return a computer field from his ID and field
=cut
# Common sub for api
use Api::Ocsinventory::Restapi::ApiCommon;
use Mojo::JSON qw(decode_json encode_json);
sub get_computer_field {
my ($id, $field, $where, $operator, $value) = @_;
my $computers = Api::Ocsinventory::Restapi::ApiCommon::get_item_table_informations("hardware", $id, "id");
my $json_return;
foreach my $computer ( @$computers ) {
$$json_return{"$computer->{ID}"}{"hardware"} = $computer;
if($field eq "softwares") {
$json_return = Api::Ocsinventory::Restapi::ApiCommon::generate_item_software_json("computer", $computer->{ID}, $json_return, $field, $where, $operator, $value);
} else {
$json_return = Api::Ocsinventory::Restapi::ApiCommon::generate_item_datamap_json("computer", $computer->{ID}, $json_return, $field, $where, $operator, $value);
}
}
return encode_json($json_return);
}
1;
|
