SL/Controller/TopQuickSearch/CustomerVendor.pm

   1 package SL::Controller::TopQuickSearch::CustomerVendor;
   2
   3 use strict;
   4 use parent qw(Rose::Object);
   5
   6 use SL::Locale::String qw(t8);
   7 use SL::Controller::Helper::GetModels;
   8 use SL::Controller::Base;
   9
  10 use Rose::Object::MakeMethods::Generic (
  11   'scalar --get_set_init' => [ qw(models) ],
  12 );
  13
  14 # nope. this is only for subclassing
  15 sub auth { 'NOT ALLOWED' }
  16
  17 sub name { die 'must be overwritten' }
  18
  19 sub description_config { die 'must be overwritten' }
  20
  21 sub description_field { die 'must be overwritten' }
  22
  23 sub query_autocomplete {
  24   my ($self) = @_;
  25
  26   my $objects = $self->models->get;
  27
  28   [
  29     map {
  30      value       => $_->displayable_name,
  31      label       => $_->displayable_name,
  32      id          => $_->id,
  33     }, @$objects
  34   ];
  35 }
  36
  37 sub select_autocomplete {
  38   $_[0]->redirect_to_object($::form->{id});
  39 }
  40
  41 sub do_search {
  42   my ($self) = @_;
  43
  44   my $objects = $self->models->get;
  45
  46   return !@$objects     ? ()
  47        : @$objects == 1 ? $self->redirect_to_object($objects->[0]->id)
  48        :                  $self->redirect_to_search($::form->{term});
  49 }
  50
  51 sub redirect_to_search {
  52   SL::Controller::Base->new->url_for(
  53     controller => 'ct.pl',
  54     action     => 'list_names',
  55     db         => $_[0]->db,
  56     sortdir    => 0,
  57     status     => 'all',
  58     obsolete   => 'N',
  59     all        => $_[1],
  60     (map {; "l_$_" => 'Y' } $_[0]->db . "number", qw(name street contact phone zipcode email city country gln)),
  61
  62   );
  63 }
  64
  65 sub redirect_to_object {
  66   SL::Controller::Base->new->url_for(
  67     controller => 'CustomerVendor',
  68     action     => 'edit',
  69     db         => $_[0]->db,
  70     id         => $_[1],
  71   );
  72 }
  73
  74 sub init_models {
  75   my ($self) = @_;
  76
  77   my $cvnumber = $self->db eq 'customer' ? 'customernumber' : 'vendornumber';
  78
  79   SL::Controller::Helper::GetModels->new(
  80     controller => $self,
  81     model      => $self->model,
  82     source     => {
  83       filter => {
  84         'all:substr:multi::ilike' => $::form->{term}, # all filter spec is set in SL::DB::Manager::Customer
  85         or => [ obsolete => undef, obsolete => 0 ],
  86       },
  87     },
  88     sorted     => {
  89       _default   => {
  90         by  => $cvnumber,
  91         dir => 0,
  92       },
  93       $cvnumber => $self->db eq 'customer' ? t8('Customer Number') : t8('Vendor Number'),
  94     },
  95     paginated  => {
  96       per_page => 10,
  97     },
  98   )
  99 }
 100
 101 sub type {
 102   die 'must be overwritten'
 103 }
 104
 105 sub cv {
 106   die 'must be overwritten'
 107 }
 108
 109 sub model {
 110   die 'must be overwritten'
 111 };
 112
 113 1;