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