Pflichtenheft -> Angebot: Langtext setzen
[kivitendo-erp.git] / SL / DB / CustomVariableConfig.pm
1 # This file has been auto-generated only because it didn't exist.
2 # Feel free to modify it at will; it will not be overwritten automatically.
3
4 package SL::DB::CustomVariableConfig;
5
6 use strict;
7
8 use SL::DB::MetaSetup::CustomVariableConfig;
9 use SL::DB::Manager::CustomVariableConfig;
10 use SL::DB::Helper::ActsAsList;
11
12 __PACKAGE__->meta->initialize;
13
14 __PACKAGE__->configure_acts_as_list(group_by => [qw(module)]);
15
16 sub validate {
17   my ($self) = @_;
18
19   my @errors;
20   push @errors, $::locale->text('The name is missing.')        if !$self->name;
21   push @errors, $::locale->text('The description is missing.') if !$self->description;
22   push @errors, $::locale->text('The type is missing.')        if !$self->type;
23   push @errors, $::locale->text('The option field is empty.')  if (($self->type || '') eq 'select') && !$self->options;
24
25   return @errors;
26 }
27
28 use constant OPTION_DEFAULTS =>
29   {
30     MAXLENGTH => 75,
31     WIDTH => 30,
32     HEIGHT => 5,
33   };
34
35 sub processed_options {
36   my ($self) = @_;
37
38   if( exists($self->{processed_options_cache}) ) {
39     return $self->{processed_options_cache};
40   }
41
42   my $ops = $self->options;
43   my $ret;
44
45   if ( $self->type eq 'select' ) {
46     my @op_array = split('##', $ops);
47     $ret = \@op_array;
48   }
49   else {
50     $ret = {%{$self->OPTION_DEFAULTS}};
51     while ( $ops =~ /\s*([^=\s]+)\s*=\s*([^\s]*)(?:\s*|$)/g ) {
52       $ret->{$1} = $2;
53     }
54   }
55
56   $self->{processed_options_cache} = $ret;
57
58   return $ret;
59 }
60
61 sub processed_flags {
62   my ($self) = @_;
63
64   if( exists($self->{processed_flags_cache}) ) {
65     return $self->{processed_flags_cache};
66   }
67
68   my $flags = $self->flags;
69   my $ret;
70
71   foreach my $flag (split m/:/, $flags) {
72     if ( $flag =~ m/(.*?)=(.*)/ ) {
73       $ret->{$1} = $2;
74     } else {
75       $ret->{$flag} = 1;
76     }
77   }
78
79   $self->{processed_flags_cache} = $ret;
80
81   return $ret;
82 }
83
84 sub has_flag {
85   my ($self, $flag) = @_;
86
87   return $self->processed_flags()->{$flag};
88 }
89
90 1;