'Fehlbetrag setzen' mit Schweizer Zahlenformat kompatibel machen
[kivitendo-erp.git] / SL / Presenter / Project.pm
1 package SL::Presenter::Project;
2
3 use strict;
4
5 use SL::Presenter::EscapedText qw(escape is_escaped);
6 use SL::Presenter::Tag qw(input_tag html_tag name_to_id select_tag);
7
8 use Exporter qw(import);
9 our @EXPORT_OK = qw(project project_picker);
10
11 use Carp;
12
13 sub project {
14   my ($project, %params) = @_;
15
16   return '' unless $project;
17
18   $params{display} ||= 'inline';
19
20   croak "Unknown display type '$params{display}'" unless $params{display} =~ m/^(?:inline|table-cell)$/;
21
22   my $description = $project->full_description(style => $params{style});
23   my $callback    = $params{callback} ? '&callback=' . $::form->escape($params{callback}) : '';
24
25   my $text = join '', (
26     $params{no_link} ? '' : '<a href="controller.pl?action=Project/edit&amp;id=' . escape($project->id) . $callback . '">',
27     escape($description),
28     $params{no_link} ? '' : '</a>',
29   );
30   is_escaped($text);
31 }
32
33 sub project_picker {
34   my ($name, $value, %params) = @_;
35
36   $value      = SL::DB::Manager::Project->find_by(id => $value) if $value && !ref $value;
37   my $id      = delete($params{id}) || name_to_id($name);
38   my @classes = $params{class} ? ($params{class}) : ();
39   push @classes, 'project_autocomplete';
40
41
42   my %data_params = map { $_ => delete $params{$_}  } grep { defined $params{$_} } qw(customer_id active valid description_style);
43
44   my $ret =
45     input_tag($name, (ref $value && $value->can('id') ? $value->id : ''), class => "@classes", type => 'hidden', id => $id,
46               'data-project-picker-data' => JSON::to_json(\%data_params),
47     ) .
48     input_tag("", ref $value ? $value->displayable_name : '', id => "${id}_name", %params);
49
50   $::request->layout->add_javascripts('autocomplete_project.js');
51   $::request->presenter->need_reinit_widgets($id);
52
53   html_tag('span', $ret, class => 'project_picker');
54 }
55
56 sub picker { goto &project_picker };
57
58 1;
59
60 __END__
61
62 =pod
63
64 =encoding utf8
65
66 =head1 NAME
67
68 SL::Presenter::Project - Presenter module for project Rose::DB objects
69
70 =head1 SYNOPSIS
71
72   my $project = SL::DB::Manager::Project->get_first;
73   my $html    = SL::Presenter::Project->project($project, display => 'inline');
74
75 =head1 FUNCTIONS
76
77 =over 4
78
79 =item C<project $object, %params>
80
81 Returns a rendered version (actually an instance of
82 L<SL::Presenter::EscapedText>) of the project object C<$customer>.
83
84 C<%params> can include:
85
86 =over 2
87
88 =item * display
89
90 Either C<inline> (the default) or C<table-cell>. At the moment both
91 representations are identical and produce the project's description
92 (controlled by the C<style> parameter) linked to the corresponding
93 'edit' action.
94
95 =item * style
96
97 Determines what exactly will be output. Can be one of the values with
98 C<both> being the default if it is missing:
99
100 =over 2
101
102 =item C<projectnumber> (or simply C<number>)
103
104 Outputs only the project's number.
105
106 =item C<projectdescription> (or simply C<description>)
107
108 Outputs only the project's description.
109
110 =item C<both>
111
112 Outputs the project's number followed by its description in
113 parenthesis (e.g. "12345 (Secret Combinations)"). If the project's
114 description is already part of the project's number then it will not
115 be appended.
116
117 =back
118
119 =item * no_link
120
121 If falsish (the default) then the project's description will be linked to
122 the "edit project" dialog from the master data menu.
123
124 =back
125
126 =back
127
128 =head1 BUGS
129
130 Nothing here yet.
131
132 =head1 AUTHOR
133
134 Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
135
136 =cut