f54ffefec646babff01c922a3721bdcc2bc054fc
[kivitendo-erp.git] / bin / mozilla / common.pl
1 #=====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 ######################################################################
7 #
8 # Stuff that can be used from other modules
9 #
10 ######################################################################
11
12 use SL::Common;
13 use SL::DBUtils;
14 use SL::Form;
15 use SL::MoreCommon;
16
17 sub build_std_url {
18   $lxdebug->enter_sub(2);
19
20   my $script = $form->{script};
21
22   my @parts;
23
24   foreach my $key (@_) {
25     next unless ($key);
26
27     if ($key =~ /(.*?)=(.*)/) {
28       if ($1 eq 'script') {
29         $script = $2;
30       } else {
31         push @parts, $key;
32       }
33
34     } else {
35       foreach my $var ($form->flatten_variables($key)) {
36         push @parts, E($var->{key}) . '=' . E($var->{value});
37       }
38     }
39   }
40
41   my $url = "${script}?" . join('&', @parts);
42
43   $lxdebug->leave_sub(2);
44
45   return $url;
46 }
47
48 # -------------------------------------------------------------------------
49
50 sub select_part {
51   $lxdebug->enter_sub();
52
53   my ($callback_sub, @parts) = @_;
54
55   my $remap_parts_id = 0;
56   if (defined($parts[0]->{parts_id}) && !defined($parts[0]->{id})) {
57     $remap_parts_id = 1;
58     map { $_->{id} = $_->{parts_id}; } @parts;
59   }
60
61   my $remap_partnumber = 0;
62   if (defined($parts[0]->{partnumber}) && !defined($parts[0]->{number})) {
63     $remap_partnumber = 1;
64     map { $_->{number} = $_->{partnumber}; } @parts;
65   }
66
67   my $has_charge = 0;
68   if (defined($parts[0]->{chargenumber})) {
69     $has_charge = 1;
70     map { $_->{has_charge} = 1; } @parts;
71   }
72
73   my $old_form = save_form();
74
75   $form->header();
76   print $form->parse_html_template("generic/select_part",
77                                    { "PARTS"            => \@parts,
78                                      "old_form"         => $old_form,
79                                      "title"            => $locale->text("Select a part"),
80                                      "nextsub"          => "select_part_internal",
81                                      "callback_sub"     => $callback_sub,
82                                      "has_charge"       => $has_charge,
83                                      "remap_parts_id"   => $remap_parts_id,
84                                      "remap_partnumber" => $remap_partnumber });
85
86   $lxdebug->leave_sub();
87 }
88
89 sub select_part_internal {
90   $lxdebug->enter_sub();
91
92   my ($new_item, $callback_sub);
93
94   my $re = "^new_.*_" . $form->{selection};
95
96   foreach (grep /$re/, keys %{ $form }) {
97     my $new_key           =  $_;
98     $new_key              =~ s/^new_//;
99     $new_key              =~ s/_\d+$//;
100     $new_item->{$new_key} =  $form->{$_};
101   }
102
103   if ($form->{remap_parts_id}) {
104     $new_item->{parts_id} = $new_item->{id};
105     delete $new_item->{id};
106   }
107
108   if ($form->{remap_partnumber}) {
109     $new_item->{partnumber} = $new_item->{number};
110     delete $new_item->{number};
111   }
112
113   my $callback_sub = $form->{callback_sub};
114
115   restore_form($form->{old_form});
116
117   call_sub($callback_sub, $new_item);
118
119   $lxdebug->leave_sub();
120 }
121
122 sub part_selection_internal {
123   $lxdebug->enter_sub();
124
125   $order_by  = "description";
126   $order_by  = $form->{"order_by"} if (defined($form->{"order_by"}));
127   $order_dir = 1;
128   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
129
130   %options   = map { $_ => 1 } split m/:/, $form->{options};
131
132   map { $form->{$_} = 1 if ($options{$_}) } qw(no_services no_assemblies stockable);
133
134   $parts = Common->retrieve_parts(\%myconfig, $form, $order_by, $order_dir);
135
136   if (0 == scalar(@{$parts})) {
137     $form->show_generic_information($locale->text("No part was found matching the search parameters."));
138   } elsif (1 == scalar(@{$parts})) {
139     $onload = "part_selected('1')";
140   }
141
142   map { $parts->[$_]->{selected} = $_ ? 0 : 1; } (0..$#{$parts});
143
144   my $callback = build_std_url('action=part_selection_internal', qw(partnumber description input_partnumber input_description input_partsid),
145                                grep({ /^[fl]_/ } keys %{ $form }));
146
147   my @header_sort  = qw(partnumber description);
148   my %header_title = ( "partnumber"  => $locale->text("Part Number"),
149                        "description" => $locale->text("Part description"),
150                        );
151
152   my @header =
153     map(+{ "column_title" => $header_title{$_},
154            "column"       => $_,
155            "callback"     => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
156          },
157         @header_sort);
158
159   $form->{title} = $locale->text("Select a part");
160   $form->header();
161   print $form->parse_html_template("generic/part_selection", { "HEADER" => \@header,
162                                                                "PARTS"  => $parts,
163                                                                "onload" => $onload });
164
165   $lxdebug->leave_sub();
166 }
167
168 # -------------------------------------------------------------------------
169
170 sub delivery_customer_selection {
171   $lxdebug->enter_sub();
172
173   $order_by = "name";
174   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
175   $order_dir = 1;
176   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
177
178   $delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);
179   map({ $delivery->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$delivery}));
180   if (0 == scalar(@{$delivery})) {
181     $form->show_generic_information($locale->text("No Customer was found matching the search parameters."));
182   } elsif (1 == scalar(@{$delivery})) {
183     $onload = "customer_selected('1')";
184   }
185
186   my $callback = "$form->{script}?action=delivery_customer_selection&";
187   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
188       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
189
190   my @header_sort = qw(name customernumber address);
191   my %header_title = ( "name" => $locale->text("Name"),
192                        "customernumber" => $locale->text("Customer Number"),
193                        "address" => $locale->text("Address"),
194                      );
195
196   my @header =
197     map(+{ "column_title" => $header_title{$_},
198            "column" => $_,
199            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
200          },
201         @header_sort);
202
203   $form->{"title"} = $locale->text("Select a Customer");
204   $form->header();
205   print $form->parse_html_template("generic/select_delivery_customer", { "HEADER"   => \@header,
206                                                                          "DELIVERY" => $delivery,
207                                                                          "onload"   => $onload });
208
209   $lxdebug->leave_sub();
210 }
211
212 # -------------------------------------------------------------------------
213
214 sub vendor_selection {
215   $lxdebug->enter_sub();
216
217   $order_by = "name";
218   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
219   $order_dir = 1;
220   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
221
222   $vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);
223   map({ $vendor->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$vendor}));
224   if (0 == scalar(@{$vendor})) {
225     $form->show_generic_information($locale->text("No Vendor was found matching the search parameters."));
226   } elsif (1 == scalar(@{$vendor})) {
227     $onload = "vendor_selected('1')";
228   }
229
230   my $callback = "$form->{script}?action=vendor_selection&";
231   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
232       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
233
234   my @header_sort = qw(name customernumber address);
235   my %header_title = ( "name" => $locale->text("Name"),
236                        "customernumber" => $locale->text("Customer Number"),
237                        "address" => $locale->text("Address"),
238                      );
239
240   my @header =
241     map(+{ "column_title" => $header_title{$_},
242            "column" => $_,
243            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
244          },
245         @header_sort);
246
247   $form->{"title"} = $locale->text("Select a Customer");
248   $form->header();
249   print $form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,
250                                                               "VENDOR" => $vendor,
251                                                               "onload" => $onload });
252
253   $lxdebug->leave_sub();
254 }
255
256 # -------------------------------------------------------------------------
257
258 sub calculate_qty {
259   $lxdebug->enter_sub();
260
261   my @variable_sort = ();
262   my %variable_list = ();
263   my $unit_list = ();
264   $form->{formel} =~ s/\r\n//g;
265
266   my ($variable_string, $formel) = split /###/,$form->{formel};
267
268
269   split m/;/, $variable_string;
270   foreach $item (@_) {
271     my($name, $valueunit) = split /=/,$item;
272     my($value, $unit) = split / /, $valueunit;
273
274     push(@variable_sort, $value);
275     $variable_list{$value} = $name;
276     $unit_list{$value} = $unit;
277   }
278
279   my @header_sort = qw(variable value unit);
280   my %header_title = ( "variable" => $locale->text("Variable"),
281                        "value" => $locale->text("Value"),
282                        "unit" => $locale->text("Unit"),
283                      );
284
285   my @variable = map(+{ "description" => $variable_list{$_},
286                         "name" => $_,
287                         "unit" => $unit_list{$_} }, @variable_sort);
288
289   my @header =
290     map(+{ "column_title" => $header_title{$_},
291            "column" => $_,
292          },
293         @header_sort);
294   $form->{formel} = $formel;
295   $form->{"title"} = $locale->text("Please enter values");
296   $form->header();
297   print($form->parse_html_template("generic/calculate_qty", { "HEADER"    => \@header,
298                                                               "VARIABLES" => \@variable,
299                                                               "onload"    => $onload }));
300
301   $lxdebug->leave_sub();
302 }
303
304 # -------------------------------------------------------------------------
305
306 sub set_longdescription {
307   $lxdebug->enter_sub();
308
309   $form->{title} = $locale->text("Enter longdescription");
310   $form->header();
311   print $form->parse_html_template("generic/set_longdescription");
312
313   $lxdebug->leave_sub();
314 }
315
316 # -------------------------------------------------------------------------
317
318 sub H {
319   return $form->quote_html($_[0]);
320 }
321
322 sub Q {
323   return $form->quote($_[0]);
324 }
325
326 sub E {
327   return $form->escape($_[0]);
328 }
329
330 sub NTI {
331   my ($element) = @_;
332
333   $element =~ s/tabindex\s*=\s*"\d+"//;
334   return $element;
335 }
336
337 sub format_dates {
338   $lxdebug->enter_sub();
339
340   my ($dateformat, $longformat, @indices) = @_;
341
342   $dateformat = $myconfig{"dateformat"} unless ($dateformat);
343
344   foreach my $idx (@indices) {
345     next unless (defined($form->{$idx}));
346
347     if (!ref($form->{$idx})) {
348       $form->{$idx} = $locale->reformat_date(\%myconfig, $form->{$idx},
349                                              $dateformat, $longformat);
350
351     } elsif (ref($form->{$idx}) eq "ARRAY") {
352       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
353         $form->{$idx}->[$i] =
354           $locale->reformat_date(\%myconfig, $form->{$idx}->[$i],
355                                  $dateformat, $longformat);
356       }
357     }
358   }
359
360   $lxdebug->leave_sub();
361 }
362
363 sub reformat_numbers {
364   $lxdebug->enter_sub();
365
366   my ($numberformat, $places, @indices) = @_;
367
368   return $lxdebug->leave_sub()
369     if (!$numberformat || ($numberformat eq $myconfig{"numberformat"}));
370
371   foreach my $idx (@indices) {
372     next unless (defined($form->{$idx}));
373
374     if (!ref($form->{$idx})) {
375       $form->{$idx} = $form->parse_amount(\%myconfig, $form->{$idx});
376
377     } elsif (ref($form->{$idx}) eq "ARRAY") {
378       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
379         $form->{$idx}->[$i] =
380           $form->parse_amount(\%myconfig, $form->{$idx}->[$i]);
381       }
382     }
383   }
384
385   my $saved_numberformat = $myconfig{"numberformat"};
386   $myconfig{"numberformat"} = $numberformat;
387
388   foreach my $idx (@indices) {
389     next unless (defined($form->{$idx}));
390
391     if (!ref($form->{$idx})) {
392       $form->{$idx} = $form->format_amount(\%myconfig, $form->{$idx}, $places);
393
394     } elsif (ref($form->{$idx}) eq "ARRAY") {
395       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
396         $form->{$idx}->[$i] =
397           $form->format_amount(\%myconfig, $form->{$idx}->[$i], $places);
398       }
399     }
400   }
401
402   $myconfig{"numberformat"} = $saved_numberformat;
403
404   $lxdebug->leave_sub();
405 }
406
407 # -------------------------------------------------------------------------
408
409 sub show_history {
410         $lxdebug->enter_sub();
411         my $dbh = $form->dbconnect(\%myconfig);
412         my ($sort, $sortby) = split(/\-\-/, $form->{order});
413   $sort =~ s/.*\.(.*)/$1/;
414
415         $form->{title} = $locale->text("History");
416     $form->header();
417     print $form->parse_html_template( "common/show_history", {
418         "DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
419         "SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
420       uc($sort) => 1,
421       uc($sort)."BY" => $sortby
422         } );
423
424         $dbh->disconnect();
425         $lxdebug->leave_sub();
426 }
427
428 # -------------------------------------------------------------------------
429
430 sub call_sub {
431   $lxdebug->enter_sub();
432
433   my $name = shift;
434
435   if (!$name) {
436     $form->error($locale->text("Trying to call a sub without a name"));
437   }
438
439   $name =~ s/[^a-zA-Z0-9_]//g;
440
441   if (!defined(&{ $name })) {
442     $form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
443   }
444
445   &{ $name }(@_);
446
447   $lxdebug->leave_sub();
448 }
449
450 # -------------------------------------------------------------------------
451
452 sub show_vc_details {
453         $lxdebug->enter_sub();
454
455   $form->{vc} = $form->{vc} eq "customer" ? "customer" : "vendor";
456   $form->isblank("vc_id",
457                  $form->{vc} eq "customer" ?
458                  $locale->text("No customer has been selected yet.") :
459                  $locale->text("No vendor has been selected yet."));
460
461   Common->get_vc_details(\%myconfig, $form, $form->{vc}, $form->{vc_id});
462
463   $form->{title} = $form->{vc} eq "customer" ?
464     $locale->text("Customer details") : $locale->text("Vendor details");
465   $form->header();
466   print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });
467
468         $lxdebug->leave_sub();
469 }
470
471 # -------------------------------------------------------------------------
472
473 sub retrieve_partunits {
474   $lxdebug->enter_sub();
475
476   my @part_ids = grep { $_ } map { $form->{"id_${_}"} } (1..$form->{rowcount});
477
478   if (@part_ids) {
479     my %partunits = IO->retrieve_partunits('part_ids' => \@part_ids);
480
481     foreach my $i (1..$form->{rowcount}) {
482       next unless ($form->{"id_${i}"});
483       $form->{"partunit_${i}"} = $partunits{$form->{"id_${i}"}};
484     }
485   }
486
487   $lxdebug->leave_sub();
488 }
489
490 # -------------------------------------------------------------------------
491
492 sub mark_as_paid_common {
493   $lxdebug->enter_sub();
494
495   my ($myconfig, $db_name) = @_;
496
497   if($form->{mark_as_paid}) {
498     my $dbh ||= $form->get_standard_dbh($myconfig);
499     my $query = qq|UPDATE $db_name SET paid = amount WHERE id = ?|;
500     do_query($form, $dbh, $query, $form->{id});
501     $dbh->commit();
502     $form->redirect($locale->text("Marked as paid"));
503
504   } else {
505     my $referer = $ENV{HTTP_REFERER};
506     $referer =~ s/^(.*)action\=.*\&(.*)$/$1action\=mark_as_paid\&mark_as_paid\=1\&id\=$form->{id}\&$2/;
507     $form->header();
508     print qq|<body>|;
509     print qq|<p><b>|.$locale->text('Mark as paid?').qq|</b></p>|;
510     print qq|<input type="button" value="|.$locale->text('yes').qq|" onclick="document.location.href='|.$referer.qq|'">&nbsp;|;
511     print qq|<input type="button" value="|.$locale->text('no').qq|" onclick="javascript:history.back();">|;
512     print qq|</body></html>|;
513   }
514
515   $lxdebug->leave_sub();
516 }
517
518 sub cov_selection_internal {
519   $lxdebug->enter_sub();
520
521   $order_by = "name";
522   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
523   $order_dir = 1;
524   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
525
526   my $type = $form->{"is_vendor"} ? $locale->text("vendor") : $locale->text("customer");
527
528   $covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, $order_by, $order_dir, $form->{"is_vendor"}, $form->{"allow_both"});
529   map({ $covs->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$covs}));
530   if (0 == scalar(@{$covs})) {
531     $form->show_generic_information(sprintf($locale->text("No %s was found matching the search parameters."), $type));
532   } elsif (1 == scalar(@{$covs})) {
533     $onload = "cov_selected('1')";
534   }
535
536   my $callback = "$form->{script}?action=cov_selection_internal&";
537   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
538       (qw(name input_name input_id is_vendor allow_both), grep({ /^[fl]_/ } keys %$form)));
539
540   my @header_sort = qw(name address contact);
541   my %header_title = ( "name" => $locale->text("Name"),
542                        "address" => $locale->text("Address"),
543                        "contact" => $locale->text("Contact"),
544                        );
545
546   my @header =
547     map(+{ "column_title" => $header_title{$_},
548            "column" => $_,
549            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
550          },
551         @header_sort);
552
553   foreach my $cov (@{ $covs }) {
554     $cov->{address} = "$cov->{street}, $cov->{zipcode} $cov->{city}";
555     $cov->{address} =~ s{^,}{}x;
556     $cov->{address} =~ s{\ +}{\ }gx;
557
558     $cov->{contact} = join " ", map { $cov->{$_} } qw(cp_greeting cp_title cp_givenname cp_name);
559     $cov->{contact} =~ s{\ +}{\ }gx;
560   }
561
562   $form->{"title"} = $form->{is_vendor} ? $locale->text("Select a vendor") : $locale->text("Select a customer");
563   $form->header();
564   print($form->parse_html_template("generic/cov_selection", { "HEADER" => \@header,
565                                                               "COVS" => $covs,
566                                                               "onload" => $onload }));
567
568   $lxdebug->leave_sub();
569 }
570
571 1;