Keine Rechnungen mit Bankauszug verbuchen überbezahlen

[mfinanz.git] / SL / Controller / Part.pm

diff --git a/SL/Controller/Part.pm b/SL/Controller/Part.pm
index edcf544b6b32855d2c936164bffff73ad24ba381..bd5fe6a301529053a06d965ea3f4ba0789f9de52 100644 (file)
--- a/SL/Controller/Part.pm
+++ b/SL/Controller/Part.pm
@@ -3,33 +3,115 @@ package SL::Controller::Part;
 use strict;
 use parent qw(SL::Controller::Base);
 
 use strict;
 use parent qw(SL::Controller::Base);
 

+use Clone qw(clone);

 use SL::DB::Part;
 use SL::DB::Part;

+use SL::Controller::Helper::GetModels;
+use SL::Locale::String qw(t8);
+use SL::JSON;
+
+use Rose::Object::MakeMethods::Generic (
+  'scalar --get_set_init' => [ qw(parts models part) ],
+);

 
 # safety
 
 # safety

-__PACKAGE__->run_before(sub { $::auth->assert('part_service_assembly_edit') });
+__PACKAGE__->run_before(sub { $::auth->assert('part_service_assembly_edit') },
+                        except => [ qw(ajax_autocomplete part_picker_search part_picker_result) ]);

 
 

-sub action_part_picker_testpage {
+sub action_ajax_autocomplete {

   my ($self, %params) = @_;
   my ($self, %params) = @_;

-  $self->render('part/testpage');
+
+  # if someone types something, and hits enter, assume he entered the full name.
+  # if something matches, treat that as sole match
+  # unfortunately get_models can't do more than one per package atm, so we d it
+  # the oldfashioned way.
+  if ($::form->{prefer_exact}) {
+    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 => [
+          description => { ilike => $::form->{filter}{'all:substr:multi::ilike'} },
+          partnumber  => { ilike => $::form->{filter}{'all:substr:multi::ilike'} },
+        ]
+      ],
+      limit => 2,
+    ) }) {
+      $self->parts($exact_matches);
+    }
+  }
+
+  my @hashes = map {
+   +{
+     value       => $_->displayable_name,
+     label       => $_->displayable_name,
+     id          => $_->id,
+     partnumber  => $_->partnumber,
+     description => $_->description,
+     type        => $_->type,
+     unit        => $_->unit,
+     cvars       => { map { ($_->config->name => { value => $_->value_as_text, is_valid => $_->is_valid }) } @{ $_->cvars_by_config } },
+    }
+  } @{ $self->parts }; # neato: if exact match triggers we don't even need the init_parts
+
+  $self->render(\ SL::JSON::to_json(\@hashes), { layout => 0, type => 'json', process => 0 });

 }
 
 }
 

-sub action_ajax_autocomplete {
-  my ($self, %params) = @_;
+sub action_test_page {
+  $_[0]->render('part/test_page');
+}

 
 

-  my $limit  = $::form->{limit}  || 20;
-  my $type   = $::form->{type} || {};
-  my $query  = { ilike => "%$::form->{term}%" };
-  my @filter;
-  push @filter, SL::DB::Manager::Part->type_filter($type);
-  push @filter, ($::form->{column})
-    ? ($::form->{column} => $query)
-    : (or => [ partnumber => $query, description => $query ]);
+sub action_part_picker_search {
+  $_[0]->render('part/part_picker_search', { layout => 0 }, parts => $_[0]->parts);
+}

 
 

-  $self->{parts} = SL::DB::Manager::Part->get_all(query => [ @filter ], limit => $limit);
-  $self->{value} = $::form->{column} || 'description';
+sub action_part_picker_result {
+  $_[0]->render('part/_part_picker_result', { layout => 0 });
+}

 
 

-  $self->render('part/ajax_autocomplete', { no_layout => 1 });
+sub action_show {
+  my ($self) = @_;
+
+  if ($::request->type eq 'json') {
+    my $part_hash;
+    if (!$self->part) {
+      # TODO error
+    } else {
+      $part_hash          = $self->part->as_tree;
+      $part_hash->{cvars} = $self->part->cvar_as_hashref;
+    }
+
+    $self->render(\ SL::JSON::to_json($part_hash), { layout => 0, type => 'json', process => 0 });
+  }
+}
+
+sub init_parts {
+  if ($::form->{no_paginate}) {
+    $_[0]->models->disable_plugin('paginated');
+  }
+
+  $_[0]->models->get;

 }
 
 }
 

+sub init_part {
+  SL::DB::Part->new(id => $::form->{id} || $::form->{part}{id})->load;
+}
+
+sub init_models {
+  my ($self) = @_;
+
+  SL::Controller::Helper::GetModels->new(
+    controller => $self,
+    sorted => {
+      _default  => {
+        by => 'partnumber',
+        dir  => 1,
+      },
+      partnumber  => t8('Partnumber'),
+      description  => t8('Description'),
+    },
+    with_objects => [ qw(unit_obj) ],
+  );
+}

 
 1;
 
 1;