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 Data::Dumper;
  13
  14 use SL::Common;
  15
  16 sub save_form {
  17   $lxdebug->enter_sub();
  18
  19   my (@names, @values);
  20   foreach my $key (keys(%{$form})) {
  21     push(@names, "\$form->{\"$key\"}");
  22     push(@values, $form->{$key});
  23   }
  24   my $dumper = Data::Dumper->new(\@values, \@names);
  25   $dumper->Indent(0);
  26   my $old_form = $dumper->Dump();
  27
  28   $lxdebug->leave_sub();
  29
  30   return $old_form;
  31 }
  32
  33 sub restore_form {
  34   $lxdebug->enter_sub();
  35
  36   my ($old_form, $no_delete) = @_;
  37
  38   map({ delete($form->{$_}); } keys(%{$form})) unless ($no_delete);
  39   eval($old_form);
  40
  41   $lxdebug->leave_sub();
  42 }
  43
  44 sub select_employee {
  45   $lxdebug->enter_sub();
  46
  47   my ($callback_sub, @employees) = @_;
  48
  49   if (0 == scalar(@employees)) {
  50     @employees = SystemBrace->get_all_employees(\%myconfig, $form);
  51   }
  52
  53   my $old_form = save_form();
  54
  55   $form->header();
  56   print($form->parse_html_template("generic/select_employee",
  57                                    { "EMPLOYEES" => \@employees,
  58                                      "old_form" => $old_form,
  59                                      "title" => $locale->text("Select an employee"),
  60                                      "nextsub" => "select_employee_internal",
  61                                      "callback_sub" => $callback_sub }));
  62
  63   $lxdebug->leave_sub();
  64 }
  65
  66 sub select_employee_internal {
  67   $lxdebug->enter_sub();
  68
  69   my ($new_id, $new_name, $callback_sub);
  70
  71   my $new_id = $form->{"new_id_" . $form->{"selection"}};
  72   my $new_name = $form->{"new_name_" . $form->{"selection"}};
  73   my $callback_sub = $form->{"callback_sub"};
  74
  75   restore_form($form->{"old_form"});
  76
  77   &{ $callback_sub }($new_id, $new_name);
  78
  79   $lxdebug->leave_sub();
  80 }
  81
  82 sub select_part {
  83   $lxdebug->enter_sub();
  84
  85   my ($callback_sub, @parts) = @_;
  86
  87   my $remap_parts_id = 0;
  88   if (defined($parts[0]->{"parts_id"}) && !defined($parts[0]->{"id"})) {
  89     $remap_parts_id = 1;
  90     map({ $_->{"id"} = $_->{"parts_id"}; } @parts);
  91   }
  92
  93   my $remap_partnumber = 0;
  94   if (defined($parts[0]->{"partnumber"}) && !defined($parts[0]->{"number"})) {
  95     $remap_partnumber = 1;
  96     map({ $_->{"number"} = $_->{"partnumber"}; } @parts);
  97   }
  98
  99   my $has_charge = 0;
 100   if (defined($parts[0]->{"chargenumber"})) {
 101     $has_charge = 1;
 102     map({ $_->{"has_charge"} = 1; } @parts);
 103   }
 104
 105   my $old_form = save_form();
 106
 107   $form->header();
 108   print($form->parse_html_template("generic/select_part",
 109                                    { "PARTS" => \@parts,
 110                                      "old_form" => $old_form,
 111                                      "title" => $locale->text("Select a part"),
 112                                      "nextsub" => "select_part_internal",
 113                                      "callback_sub" => $callback_sub,
 114                                      "has_charge" => $has_charge,
 115                                      "remap_parts_id" => $remap_parts_id,
 116                                      "remap_partnumber" => $remap_partnumber }));
 117
 118   $lxdebug->leave_sub();
 119 }
 120
 121 sub select_part_internal {
 122   $lxdebug->enter_sub();
 123
 124   my ($new_item, $callback_sub);
 125
 126   my $re = "^new_.*_" . $form->{"selection"};
 127   map({
 128     my $key = $_;
 129     $key =~ s/^new_//;
 130     $key =~ s/_\d+$//;
 131     $new_item->{$key} = $form->{$_};
 132   } grep(/$re/, keys(%{$form})));
 133
 134   if ($form->{"remap_parts_id"}) {
 135     $new_item->{"parts_id"} = $new_item->{"id"};
 136     delete($new_item->{"id"});
 137   }
 138   if ($form->{"remap_partnumber"}) {
 139     $new_item->{"partnumber"} = $new_item->{"number"};
 140     delete($new_item->{"number"});
 141   }
 142
 143   my $callback_sub = $form->{"callback_sub"};
 144
 145   restore_form($form->{"old_form"});
 146
 147   &{ $callback_sub }($new_item);
 148
 149   $lxdebug->leave_sub();
 150 }
 151
 152 sub part_selection_internal {
 153   $lxdebug->enter_sub();
 154
 155   $order_by = "description";
 156   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 157   $order_dir = 1;
 158   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 159
 160   $parts = Common->retrieve_parts(\%myconfig, $form, $order_by, $order_dir);
 161   map({ $parts->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$parts}));
 162   if (0 == scalar(@{$parts})) {
 163     $form->show_generic_information($locale->text("No part was found matching the search parameters."));
 164   } elsif (1 == scalar(@{$parts})) {
 165     $onload = "part_selected('1')";
 166   }
 167
 168   my $callback = "$form->{script}?action=part_selection_internal&";
 169   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 170       (qw(login path password partnumber description input_partnumber input_description input_partsid), grep({ /^[fl]_/ } keys %$form)));
 171
 172   my @header_sort = qw(partnumber description);
 173   my %header_title = ( "partnumber" => $locale->text("Part Number"),
 174                        "description" => $locale->text("Part description"),
 175                        );
 176
 177   my @header =
 178     map(+{ "column_title" => $header_title{$_},
 179            "column" => $_,
 180            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 181          },
 182         @header_sort);
 183
 184   $form->{"title"} = $locale->text("Select a part");
 185   $form->header();
 186   print($form->parse_html_template("generic/part_selection", { "HEADER" => \@header,
 187                                                                "PARTS" => $parts,
 188                                                                "onload" => $onload }));
 189
 190   $lxdebug->leave_sub();
 191 }
 192
 193 sub project_selection_internal {
 194   $lxdebug->enter_sub();
 195
 196   $order_by = "description";
 197   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 198   $order_dir = 1;
 199   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 200
 201   $projects = Common->retrieve_projects(\%myconfig, $form, $order_by, $order_dir);
 202   map({ $projects->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$projects}));
 203   if (0 == scalar(@{$projects})) {
 204     $form->show_generic_information($locale->text("No project was found matching the search parameters."));
 205   } elsif (1 == scalar(@{$projects})) {
 206     $onload = "project_selected('1')";
 207   }
 208
 209   my $callback = "$form->{script}?action=project_selection_internal&";
 210   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 211       (qw(login path password projectnumber description input_projectnumber input_description input_project_id), grep({ /^[fl]_/ } keys %$form)));
 212
 213   my @header_sort = qw(projectnumber description);
 214   my %header_title = ( "projectnumber" => $locale->text("Project Number"),
 215                        "description" => $locale->text("Project description"),
 216                        );
 217
 218   my @header =
 219     map(+{ "column_title" => $header_title{$_},
 220            "column" => $_,
 221            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 222          },
 223         @header_sort);
 224
 225   $form->{"title"} = $locale->text("Select a project");
 226   $form->header();
 227   print($form->parse_html_template("generic/project_selection", { "HEADER" => \@header,
 228                                                                   "PROJECTS" => $projects,
 229                                                                   "onload" => $onload }));
 230
 231   $lxdebug->leave_sub();
 232 }
 233
 234 sub employee_selection_internal {
 235   $lxdebug->enter_sub();
 236
 237   $order_by = "name";
 238   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 239   $order_dir = 1;
 240   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 241
 242   $employees = Common->retrieve_employees(\%myconfig, $form, $order_by, $order_dir);
 243   map({ $employees->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$employees}));
 244   if (0 == scalar(@{$employees})) {
 245     $form->show_generic_information($locale->text("No employee was found matching the search parameters."));
 246   } elsif (1 == scalar(@{$employees})) {
 247     $onload = "employee_selected('1')";
 248   }
 249
 250   my $callback = "$form->{script}?action=employee_selection_internal&";
 251   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 252       (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 253
 254   my @header_sort = qw(name);
 255   my %header_title = ( "name" => $locale->text("Name"),
 256                        );
 257
 258   my @header =
 259     map(+{ "column_title" => $header_title{$_},
 260            "column" => $_,
 261            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 262          },
 263         @header_sort);
 264
 265   $form->{"title"} = $locale->text("Select an employee");
 266   $form->header();
 267   print($form->parse_html_template("generic/employee_selection", { "HEADER" => \@header,
 268                                                                    "EMPLOYEES" => $employees,
 269                                                                    "onload" => $onload }));
 270
 271   $lxdebug->leave_sub();
 272 }
 273
 274 sub delivery_customer_selection {
 275   $lxdebug->enter_sub();
 276
 277   $order_by = "name";
 278   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 279   $order_dir = 1;
 280   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 281
 282   $delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);
 283   map({ $delivery->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$delivery}));
 284   if (0 == scalar(@{$delivery})) {
 285     $form->show_generic_information($locale->text("No Customer was found matching the search parameters."));
 286   } elsif (1 == scalar(@{$delivery})) {
 287     $onload = "customer_selected('1')";
 288   }
 289
 290   my $callback = "$form->{script}?action=delivery_customer_selection&";
 291   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 292       (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 293
 294   my @header_sort = qw(name customernumber address);
 295   my %header_title = ( "name" => $locale->text("Name"),
 296                        "customernumber" => $locale->text("Customer Number"),
 297                        "address" => $locale->text("Address"),
 298                      );
 299
 300   my @header =
 301     map(+{ "column_title" => $header_title{$_},
 302            "column" => $_,
 303            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 304          },
 305         @header_sort);
 306
 307   $form->{"title"} = $locale->text("Select a Customer");
 308   $form->header();
 309   print($form->parse_html_template("generic/select_delivery_customer", { "HEADER" => \@header,
 310                                                                    "DELIVERY" => $delivery,
 311                                                                    "onload" => $onload }));
 312
 313   $lxdebug->leave_sub();
 314 }
 315
 316 sub vendor_selection {
 317   $lxdebug->enter_sub();
 318
 319   $order_by = "name";
 320   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 321   $order_dir = 1;
 322   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 323
 324   $vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);
 325   map({ $vendor->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$vendor}));
 326   if (0 == scalar(@{$vendor})) {
 327     $form->show_generic_information($locale->text("No Vendor was found matching the search parameters."));
 328   } elsif (1 == scalar(@{$vendor})) {
 329     $onload = "vendor_selected('1')";
 330   }
 331
 332   my $callback = "$form->{script}?action=vendor_selection&";
 333   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 334       (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 335
 336   my @header_sort = qw(name customernumber address);
 337   my %header_title = ( "name" => $locale->text("Name"),
 338                        "customernumber" => $locale->text("Customer Number"),
 339                        "address" => $locale->text("Address"),
 340                      );
 341
 342   my @header =
 343     map(+{ "column_title" => $header_title{$_},
 344            "column" => $_,
 345            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 346          },
 347         @header_sort);
 348
 349   $form->{"title"} = $locale->text("Select a Customer");
 350   $form->header();
 351   print($form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,
 352                                                                    "VENDOR" => $vendor,
 353                                                                    "onload" => $onload }));
 354
 355   $lxdebug->leave_sub();
 356 }
 357
 358 sub calculate_qty {
 359   $lxdebug->enter_sub();
 360
 361   my @variable_sort = ();
 362   my %variable_list = ();
 363   my $unit_list = ();
 364   $form->{formel} =~ s/\r\n//g;
 365
 366   my ($variable_string, $formel) = split /###/,$form->{formel};
 367
 368
 369   split /;/, $variable_string;
 370   foreach $item (@_) {
 371     my($name, $valueunit) = split /=/,$item;
 372     my($value, $unit) = split / /, $valueunit;
 373
 374     push(@variable_sort, $value);
 375     $variable_list{$value} = $name;
 376     $unit_list{$value} = $unit;
 377   }
 378
 379   my @header_sort = qw(variable value unit);
 380   my %header_title = ( "variable" => $locale->text("Variable"),
 381                        "value" => $locale->text("Value"),
 382                        "unit" => $locale->text("Unit"),
 383                      );
 384
 385   my @variable = map(+{ "description" => $variable_list{$_},
 386                         "name" => $_,
 387                         "unit" => $unit_list{$_} }, @variable_sort);
 388
 389   my @header =
 390     map(+{ "column_title" => $header_title{$_},
 391            "column" => $_,
 392          },
 393         @header_sort);
 394   $form->{formel} = $formel;
 395   $form->{"title"} = $locale->text("Please enter values");
 396   $form->header();
 397   print($form->parse_html_template("generic/calculate_qty", { "HEADER" => \@header,
 398                                                                    "VARIABLES" => \@variable,
 399                                                                    "onload" => $onload }));
 400
 401   $lxdebug->leave_sub();
 402 }
 403
 404 sub set_longdescription {
 405   $lxdebug->enter_sub();
 406
 407
 408   my $callback = "$form->{script}?action=set_longdescription&";
 409   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 410       (qw(login path password name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 411
 412   $form->{"title"} = $locale->text("Enter longdescription");
 413   $form->header();
 414   print($form->parse_html_template("generic/set_longdescription"));
 415
 416   $lxdebug->leave_sub();
 417 }
 418
 419 sub H {
 420   return $form->quote_html($_[0]);
 421 }
 422
 423 sub format_dates {
 424   $lxdebug->enter_sub();
 425
 426   my ($dateformat, $longformat, @indices) = @_;
 427
 428   $dateformat = $myconfig{"dateformat"} unless ($dateformat);
 429
 430   foreach my $idx (@indices) {
 431     next unless (defined($form->{$idx}));
 432
 433     if (!ref($form->{$idx})) {
 434       $form->{$idx} = $locale->reformat_date(\%myconfig, $form->{$idx},
 435                                              $dateformat, $longformat);
 436
 437     } elsif (ref($form->{$idx}) eq "ARRAY") {
 438       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 439         $form->{$idx}->[$i] =
 440           $locale->reformat_date(\%myconfig, $form->{$idx}->[$i],
 441                                  $dateformat, $longformat);
 442       }
 443     }
 444   }
 445
 446   $lxdebug->leave_sub();
 447 }
 448
 449 sub reformat_numbers {
 450   $lxdebug->enter_sub();
 451
 452   my ($numberformat, $places, @indices) = @_;
 453
 454   return $lxdebug->leave_sub()
 455     if (!$numberformat || ($numberformat eq $myconfig{"numberformat"}));
 456
 457   foreach my $idx (@indices) {
 458     next unless (defined($form->{$idx}));
 459
 460     if (!ref($form->{$idx})) {
 461       $form->{$idx} = $form->parse_amount(\%myconfig, $form->{$idx});
 462
 463     } elsif (ref($form->{$idx}) eq "ARRAY") {
 464       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 465         $form->{$idx}->[$i] =
 466           $form->parse_amount(\%myconfig, $form->{$idx}->[$i]);
 467       }
 468     }
 469   }
 470
 471   my $saved_numberformat = $myconfig{"numberformat"};
 472   $myconfig{"numberformat"} = $numberformat;
 473
 474   foreach my $idx (@indices) {
 475     next unless (defined($form->{$idx}));
 476
 477     if (!ref($form->{$idx})) {
 478       $form->{$idx} = $form->format_amount(\%myconfig, $form->{$idx}, $places);
 479
 480     } elsif (ref($form->{$idx}) eq "ARRAY") {
 481       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 482         $form->{$idx}->[$i] =
 483           $form->format_amount(\%myconfig, $form->{$idx}->[$i], $places);
 484       }
 485     }
 486   }
 487
 488   $myconfig{"numberformat"} = $saved_numberformat;
 489
 490   $lxdebug->leave_sub();
 491 }
 492
 493 1;