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