kivitendo/SL/Controller/Part.pm @ 79b7fc43
| 7abae2f3 | Sven Schöling | package SL::Controller::Part;
|
||
use strict;
|
||||
use parent qw(SL::Controller::Base);
|
||||
| 2504ebe1 | Sven Schöling | use Clone qw(clone);
|
||
| 7abae2f3 | Sven Schöling | use SL::DB::Part;
|
||
| 2504ebe1 | Sven Schöling | use SL::Controller::Helper::GetModels;
|
||
use SL::Locale::String qw(t8);
|
||||
| 7a646681 | Sven Schöling | use SL::JSON;
|
||
| 2504ebe1 | Sven Schöling | |||
use Rose::Object::MakeMethods::Generic (
|
||||
| 57faab8f | Sven Schöling | 'scalar --get_set_init' => [ qw(parts models part) ],
|
||
| 2504ebe1 | Sven Schöling | );
|
||
| 7abae2f3 | Sven Schöling | |||
# safety
|
||||
| 63575bd2 | Bernd Bleßmann | __PACKAGE__->run_before(sub { $::auth->assert('part_service_assembly_edit') },
|
||
except => [ qw(ajax_autocomplete part_picker_search part_picker_result) ]);
|
||||
| 7abae2f3 | Sven Schöling | |||
sub action_ajax_autocomplete {
|
||||
my ($self, %params) = @_;
|
||||
| eff6af28 | Sven Schöling | # if someone types something, and hits enter, assume he entered the full name.
|
||
# if something matches, treat that as sole match
|
||||
| 58e12eca | Sven Schöling | # unfortunately get_models can't do more than one per package atm, so we d it
|
||
# the oldfashioned way.
|
||||
| eff6af28 | Sven Schöling | if ($::form->{prefer_exact}) {
|
||
| 58e12eca | Sven Schöling | my $exact_matches;
|
||
if (1 == scalar @{ $exact_matches = SL::DB::Manager::Part->get_all(
|
||||
query => [
|
||||
obsolete => 0,
|
||||
SL::DB::Manager::Part->type_filter($::form->{filter}{type}),
|
||||
or => [
|
||||
| 57faab8f | Sven Schöling | description => { ilike => $::form->{filter}{'all:substr:multi::ilike'} },
|
||
partnumber => { ilike => $::form->{filter}{'all:substr:multi::ilike'} },
|
||||
| 58e12eca | Sven Schöling | ]
|
||
],
|
||||
limit => 2,
|
||||
) }) {
|
||||
$self->parts($exact_matches);
|
||||
}
|
||||
| eff6af28 | Sven Schöling | }
|
||
| 7a646681 | Sven Schöling | my @hashes = map {
|
||
+{
|
||||
| dc824520 | Geoffrey Richardson | value => $_->displayable_name,
|
||
label => $_->displayable_name,
|
||||
| 7a646681 | Sven Schöling | id => $_->id,
|
||
partnumber => $_->partnumber,
|
||||
description => $_->description,
|
||||
type => $_->type,
|
||||
| 579f5842 | Moritz Bunkus | unit => $_->unit,
|
||
| a261c693 | Moritz Bunkus | cvars => { map { ($_->config->name => { value => $_->value_as_text, is_valid => $_->is_valid }) } @{ $_->cvars_by_config } },
|
||
| 7a646681 | Sven Schöling | }
|
||
| 58e12eca | Sven Schöling | } @{ $self->parts }; # neato: if exact match triggers we don't even need the init_parts
|
||
| 7a646681 | Sven Schöling | |||
$self->render(\ SL::JSON::to_json(\@hashes), { layout => 0, type => 'json', process => 0 });
|
||||
| 7abae2f3 | Sven Schöling | }
|
||
| 2504ebe1 | Sven Schöling | sub action_test_page {
|
||
$_[0]->render('part/test_page');
|
||||
}
|
||||
sub action_part_picker_search {
|
||||
$_[0]->render('part/part_picker_search', { layout => 0 }, parts => $_[0]->parts);
|
||||
}
|
||||
sub action_part_picker_result {
|
||||
$_[0]->render('part/_part_picker_result', { layout => 0 });
|
||||
}
|
||||
| 57faab8f | Sven Schöling | sub action_show {
|
||
my ($self) = @_;
|
||||
if ($::request->type eq 'json') {
|
||||
my $part_hash;
|
||||
if (!$self->part) {
|
||||
# TODO error
|
||||
} else {
|
||||
| eb07117b | Geoffrey Richardson | $part_hash = $self->part->as_tree;
|
||
$part_hash->{cvars} = $self->part->cvar_as_hashref;
|
||||
| 57faab8f | Sven Schöling | }
|
||
$self->render(\ SL::JSON::to_json($part_hash), { layout => 0, type => 'json', process => 0 });
|
||||
}
|
||||
}
|
||||
| 2504ebe1 | Sven Schöling | sub init_parts {
|
||
| 57faab8f | Sven Schöling | if ($::form->{no_paginate}) {
|
||
$_[0]->models->disable_plugin('paginated');
|
||||
}
|
||||
| 9d015fd3 | Sven Schöling | $_[0]->models->get;
|
||
| fa7a37a2 | Sven Schöling | }
|
||
| 57faab8f | Sven Schöling | sub init_part {
|
||
SL::DB::Part->new(id => $::form->{id} || $::form->{part}{id})->load;
|
||||
}
|
||||
| fa7a37a2 | Sven Schöling | sub init_models {
|
||
my ($self) = @_;
|
||||
SL::Controller::Helper::GetModels->new(
|
||||
controller => $self,
|
||||
sorted => {
|
||||
_default => {
|
||||
| dc824520 | Geoffrey Richardson | by => 'partnumber',
|
||
| fa7a37a2 | Sven Schöling | dir => 1,
|
||
},
|
||||
partnumber => t8('Partnumber'),
|
||||
| 57faab8f | Sven Schöling | description => t8('Description'),
|
||
| 9d015fd3 | Sven Schöling | },
|
||
with_objects => [ qw(unit_obj) ],
|
||||
| fa7a37a2 | Sven Schöling | );
|
||
| 2504ebe1 | Sven Schöling | }
|
||
| 7abae2f3 | Sven Schöling | |||
1;
|