SL/Helper/UserPreferences/PartPickerSearch.pm

   1 package SL::Helper::UserPreferences::PartPickerSearch;
   2
   3 use strict;
   4 use parent qw(Rose::Object);
   5
   6 use Carp;
   7 use List::MoreUtils qw(none);
   8
   9 use SL::Helper::UserPreferences;
  10
  11 use Rose::Object::MakeMethods::Generic (
  12   'scalar --get_set_init' => [ qw(user_prefs) ],
  13 );
  14
  15 sub get_sales_search_customer_partnumber {
  16   !!$_[0]->user_prefs->get('sales_search_customer_partnumber');
  17 }
  18
  19 sub get_purchase_search_makemodel {
  20   !!$_[0]->user_prefs->get('purchase_search_makemodel');
  21 }
  22
  23 sub get_all_as_list_default {
  24   !!$_[0]->user_prefs->get('all_as_list_default', $_[1]);
  25 }
  26
  27 sub store_sales_search_customer_partnumber {
  28   $_[0]->user_prefs->store('sales_search_customer_partnumber', $_[1]);
  29 }
  30
  31 sub store_purchase_search_makemodel {
  32   $_[0]->user_prefs->store('purchase_search_makemodel', $_[1]);
  33 }
  34
  35 sub store_all_as_list_default {
  36   $_[0]->user_prefs->store('all_as_list_default', $_[1]);
  37 }
  38
  39 sub init_user_prefs {
  40   SL::Helper::UserPreferences->new(
  41     namespace => $_[0]->namespace,
  42   )
  43 }
  44
  45 # read only stuff
  46 sub namespace     { 'PartPickerSearch' }
  47 sub version       { 1 }
  48
  49 1;
  50
  51 __END__
  52
  53 =pod
  54
  55 =encoding utf-8
  56
  57 =head1 NAME
  58
  59 SL::Helper::UserPreferences::PartPickerSearch - preferences intended
  60 to store user settings for the behavior of a partpicker search.
  61
  62 =head1 SYNOPSIS
  63
  64   use SL::Helper::UserPreferences::PartPickerSearch;
  65   my $prefs = SL::Helper::UserPreferences::PartPickerSearch->new();
  66
  67   $prefs->store_purchase_search_makemodel(1);
  68   my $value = $prefs->get_purchase_search_makemodel;
  69
  70 =head1 DESCRIPTION
  71
  72 This module manages storing the settings for the part picker to search for
  73 customer/vendor partnumber in sales/purchase forms (new order controller).
  74
  75 =head1 BUGS
  76
  77 None yet :)
  78
  79 =head1 AUTHOR
  80
  81 Bernd Bleßmann E<lt>bernd@kivitendo-premium.deE<gt>
  82
  83 =cut