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   my %options;
 131
 132   foreach my $opt (split m/:/, $form->{options}) {
 133     if ($opt =~ /=/) {
 134       my ($key, $value) = split m/=/, $opt, 2;
 135       $options{$key} = $value;
 136
 137     } else {
 138       $options{$opt} = 1;
 139     }
 140   }
 141
 142   map { $form->{$_} = $options{$_} if ($options{$_}) } qw(no_services no_assemblies assemblies click_button);
 143
 144   $parts = Common->retrieve_parts(\%myconfig, $form, $order_by, $order_dir);
 145
 146   if (0 == scalar(@{$parts})) {
 147     $form->show_generic_information($locale->text("No part was found matching the search parameters."));
 148   } elsif (1 == scalar(@{$parts})) {
 149     $onload = "part_selected('1')";
 150   }
 151
 152   map { $parts->[$_]->{selected} = $_ ? 0 : 1; } (0..$#{$parts});
 153
 154   my $callback = build_std_url('action=part_selection_internal', qw(partnumber description input_partnumber input_description input_partsid),
 155                                grep({ /^[fl]_/ } keys %{ $form }));
 156
 157   my @header_sort  = qw(partnumber description);
 158   my %header_title = ( "partnumber"  => $locale->text("Part Number"),
 159                        "description" => $locale->text("Part description"),
 160                        );
 161
 162   my @header =
 163     map(+{ "column_title" => $header_title{$_},
 164            "column"       => $_,
 165            "callback"     => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 166          },
 167         @header_sort);
 168
 169   $form->{formname} ||= 'Form';
 170
 171   $form->{title} = $locale->text("Select a part");
 172   $form->header();
 173   print $form->parse_html_template("generic/part_selection", { "HEADER" => \@header,
 174                                                                "PARTS"  => $parts,
 175                                                                "onload" => $onload });
 176
 177   $lxdebug->leave_sub();
 178 }
 179
 180 # -------------------------------------------------------------------------
 181
 182 sub delivery_customer_selection {
 183   $lxdebug->enter_sub();
 184
 185   $order_by = "name";
 186   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 187   $order_dir = 1;
 188   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 189
 190   $delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);
 191   map({ $delivery->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$delivery}));
 192   if (0 == scalar(@{$delivery})) {
 193     $form->show_generic_information($locale->text("No Customer was found matching the search parameters."));
 194   } elsif (1 == scalar(@{$delivery})) {
 195     $onload = "customer_selected('1')";
 196   }
 197
 198   my $callback = "$form->{script}?action=delivery_customer_selection&";
 199   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 200       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 201
 202   my @header_sort = qw(name customernumber address);
 203   my %header_title = ( "name" => $locale->text("Name"),
 204                        "customernumber" => $locale->text("Customer Number"),
 205                        "address" => $locale->text("Address"),
 206                      );
 207
 208   my @header =
 209     map(+{ "column_title" => $header_title{$_},
 210            "column" => $_,
 211            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 212          },
 213         @header_sort);
 214
 215   $form->{"title"} = $locale->text("Select a Customer");
 216   $form->header();
 217   print $form->parse_html_template("generic/select_delivery_customer", { "HEADER"   => \@header,
 218                                                                          "DELIVERY" => $delivery,
 219                                                                          "onload"   => $onload });
 220
 221   $lxdebug->leave_sub();
 222 }
 223
 224 # -------------------------------------------------------------------------
 225
 226 sub vendor_selection {
 227   $lxdebug->enter_sub();
 228
 229   $order_by = "name";
 230   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 231   $order_dir = 1;
 232   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 233
 234   $vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);
 235   map({ $vendor->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$vendor}));
 236   if (0 == scalar(@{$vendor})) {
 237     $form->show_generic_information($locale->text("No Vendor was found matching the search parameters."));
 238   } elsif (1 == scalar(@{$vendor})) {
 239     $onload = "vendor_selected('1')";
 240   }
 241
 242   my $callback = "$form->{script}?action=vendor_selection&";
 243   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 244       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 245
 246   my @header_sort = qw(name customernumber address);
 247   my %header_title = ( "name" => $locale->text("Name"),
 248                        "customernumber" => $locale->text("Customer Number"),
 249                        "address" => $locale->text("Address"),
 250                      );
 251
 252   my @header =
 253     map(+{ "column_title" => $header_title{$_},
 254            "column" => $_,
 255            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 256          },
 257         @header_sort);
 258
 259   $form->{"title"} = $locale->text("Select a Customer");
 260   $form->header();
 261   print $form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,
 262                                                               "VENDOR" => $vendor,
 263                                                               "onload" => $onload });
 264
 265   $lxdebug->leave_sub();
 266 }
 267
 268 # -------------------------------------------------------------------------
 269
 270 sub calculate_qty {
 271   $lxdebug->enter_sub();
 272
 273   my @variable_sort = ();
 274   my %variable_list = ();
 275   my $unit_list = ();
 276   $form->{formel} =~ s/\r\n//g;
 277
 278   my ($variable_string, $formel) = split /###/,$form->{formel};
 279
 280
 281   split m/;/, $variable_string;
 282   foreach $item (@_) {
 283     my($name, $valueunit) = split /=/,$item;
 284     my($value, $unit) = split / /, $valueunit;
 285
 286     push(@variable_sort, $value);
 287     $variable_list{$value} = $name;
 288     $unit_list{$value} = $unit;
 289   }
 290
 291   my @header_sort = qw(variable value unit);
 292   my %header_title = ( "variable" => $locale->text("Variable"),
 293                        "value" => $locale->text("Value"),
 294                        "unit" => $locale->text("Unit"),
 295                      );
 296
 297   my @variable = map(+{ "description" => $variable_list{$_},
 298                         "name" => $_,
 299                         "unit" => $unit_list{$_} }, @variable_sort);
 300
 301   my @header =
 302     map(+{ "column_title" => $header_title{$_},
 303            "column" => $_,
 304          },
 305         @header_sort);
 306   $form->{formel} = $formel;
 307   $form->{"title"} = $locale->text("Please enter values");
 308   $form->header();
 309   print($form->parse_html_template("generic/calculate_qty", { "HEADER"    => \@header,
 310                                                               "VARIABLES" => \@variable,
 311                                                               "onload"    => $onload }));
 312
 313   $lxdebug->leave_sub();
 314 }
 315
 316 # -------------------------------------------------------------------------
 317
 318 sub set_longdescription {
 319   $lxdebug->enter_sub();
 320
 321   $form->{title} = $locale->text("Enter longdescription");
 322   $form->header();
 323   print $form->parse_html_template("generic/set_longdescription");
 324
 325   $lxdebug->leave_sub();
 326 }
 327
 328 # -------------------------------------------------------------------------
 329
 330 sub H {
 331   return $locale->quote_special_chars('HTML', $_[0]);
 332 }
 333
 334 sub Q {
 335   return $locale->quote_special_chars('URL@HTML', $_[0]);
 336 }
 337
 338 sub E {
 339   return $form->escape($_[0]);
 340 }
 341
 342 sub NTI {
 343   my ($element) = @_;
 344
 345   $element =~ s/tabindex\s*=\s*"\d+"//;
 346   return $element;
 347 }
 348
 349 sub format_dates {
 350   $lxdebug->enter_sub();
 351
 352   my ($dateformat, $longformat, @indices) = @_;
 353
 354   $dateformat = $myconfig{"dateformat"} unless ($dateformat);
 355
 356   foreach my $idx (@indices) {
 357     next unless (defined($form->{$idx}));
 358
 359     if (!ref($form->{$idx})) {
 360       $form->{$idx} = $locale->reformat_date(\%myconfig, $form->{$idx},
 361                                              $dateformat, $longformat);
 362
 363     } elsif (ref($form->{$idx}) eq "ARRAY") {
 364       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 365         $form->{$idx}->[$i] =
 366           $locale->reformat_date(\%myconfig, $form->{$idx}->[$i],
 367                                  $dateformat, $longformat);
 368       }
 369     }
 370   }
 371
 372   $lxdebug->leave_sub();
 373 }
 374
 375 sub reformat_numbers {
 376   $lxdebug->enter_sub();
 377
 378   my ($numberformat, $places, @indices) = @_;
 379
 380   return $lxdebug->leave_sub()
 381     if (!$numberformat || ($numberformat eq $myconfig{"numberformat"}));
 382
 383   foreach my $idx (@indices) {
 384     next unless (defined($form->{$idx}));
 385
 386     if (!ref($form->{$idx})) {
 387       $form->{$idx} = $form->parse_amount(\%myconfig, $form->{$idx});
 388
 389     } elsif (ref($form->{$idx}) eq "ARRAY") {
 390       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 391         $form->{$idx}->[$i] =
 392           $form->parse_amount(\%myconfig, $form->{$idx}->[$i]);
 393       }
 394     }
 395   }
 396
 397   my $saved_numberformat = $myconfig{"numberformat"};
 398   $myconfig{"numberformat"} = $numberformat;
 399
 400   foreach my $idx (@indices) {
 401     next unless (defined($form->{$idx}));
 402
 403     if (!ref($form->{$idx})) {
 404       $form->{$idx} = $form->format_amount(\%myconfig, $form->{$idx}, $places);
 405
 406     } elsif (ref($form->{$idx}) eq "ARRAY") {
 407       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 408         $form->{$idx}->[$i] =
 409           $form->format_amount(\%myconfig, $form->{$idx}->[$i], $places);
 410       }
 411     }
 412   }
 413
 414   $myconfig{"numberformat"} = $saved_numberformat;
 415
 416   $lxdebug->leave_sub();
 417 }
 418
 419 # -------------------------------------------------------------------------
 420
 421 sub show_history {
 422         $lxdebug->enter_sub();
 423         my $dbh = $form->dbconnect(\%myconfig);
 424         my ($sort, $sortby) = split(/\-\-/, $form->{order});
 425   $sort =~ s/.*\.(.*)/$1/;
 426
 427         $form->{title} = $locale->text("History");
 428     $form->header();
 429     print $form->parse_html_template( "common/show_history", {
 430         "DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
 431         "SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
 432       uc($sort) => 1,
 433       uc($sort)."BY" => $sortby
 434         } );
 435
 436         $dbh->disconnect();
 437         $lxdebug->leave_sub();
 438 }
 439
 440 # -------------------------------------------------------------------------
 441
 442 sub call_sub {
 443   $lxdebug->enter_sub();
 444
 445   my $name = shift;
 446
 447   if (!$name) {
 448     $form->error($locale->text("Trying to call a sub without a name"));
 449   }
 450
 451   $name =~ s/[^a-zA-Z0-9_]//g;
 452
 453   if (!defined(&{ $name })) {
 454     $form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
 455   }
 456
 457   &{ $name }(@_);
 458
 459   $lxdebug->leave_sub();
 460 }
 461
 462 # -------------------------------------------------------------------------
 463
 464 sub show_vc_details {
 465         $lxdebug->enter_sub();
 466
 467   $form->{vc} = $form->{vc} eq "customer" ? "customer" : "vendor";
 468   $form->isblank("vc_id",
 469                  $form->{vc} eq "customer" ?
 470                  $locale->text("No customer has been selected yet.") :
 471                  $locale->text("No vendor has been selected yet."));
 472
 473   Common->get_vc_details(\%myconfig, $form, $form->{vc}, $form->{vc_id});
 474
 475   $form->{title} = $form->{vc} eq "customer" ?
 476     $locale->text("Customer details") : $locale->text("Vendor details");
 477   $form->header();
 478   print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });
 479
 480         $lxdebug->leave_sub();
 481 }
 482
 483 # -------------------------------------------------------------------------
 484
 485 sub retrieve_partunits {
 486   $lxdebug->enter_sub();
 487
 488   my @part_ids = grep { $_ } map { $form->{"id_${_}"} } (1..$form->{rowcount});
 489
 490   if (@part_ids) {
 491     my %partunits = IO->retrieve_partunits('part_ids' => \@part_ids);
 492
 493     foreach my $i (1..$form->{rowcount}) {
 494       next unless ($form->{"id_${i}"});
 495       $form->{"partunit_${i}"} = $partunits{$form->{"id_${i}"}};
 496     }
 497   }
 498
 499   $lxdebug->leave_sub();
 500 }
 501
 502 # -------------------------------------------------------------------------
 503
 504 sub mark_as_paid_common {
 505   $lxdebug->enter_sub();
 506
 507   my ($myconfig, $db_name) = @_;
 508
 509   if($form->{mark_as_paid}) {
 510     my $dbh ||= $form->get_standard_dbh($myconfig);
 511     my $query = qq|UPDATE $db_name SET paid = amount WHERE id = ?|;
 512     do_query($form, $dbh, $query, $form->{id});
 513     $dbh->commit();
 514     $form->redirect($locale->text("Marked as paid"));
 515
 516   } else {
 517     my $referer = $ENV{HTTP_REFERER};
 518     if ($referer =~ /.*action.*/) {
 519       $referer =~ /^(.*)\?action\=.*(\&.*)$/;
 520       $script = $1;
 521       $callback = $2;
 522     } else {
 523       $script = $referer;
 524       $callback = "";
 525     }
 526     $referer = $script . "?action=mark_as_paid&mark_as_paid=1&id=$form->{id}" . $callback;
 527     $form->header();
 528     print qq|<body>|;
 529     print qq|<p><b>|.$locale->text('Mark as paid?').qq|</b></p>|;
 530     print qq|<input type="button" value="|.$locale->text('yes').qq|" onclick="document.location.href='|.$referer.qq|'">&nbsp;|;
 531     print qq|<input type="button" value="|.$locale->text('no').qq|" onclick="javascript:history.back();">|;
 532     print qq|</body></html>|;
 533   }
 534
 535   $lxdebug->leave_sub();
 536 }
 537
 538 sub cov_selection_internal {
 539   $lxdebug->enter_sub();
 540
 541   $order_by = "name";
 542   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 543   $order_dir = 1;
 544   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 545
 546   my $type = $form->{"is_vendor"} ? $locale->text("vendor") : $locale->text("customer");
 547
 548   $covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, $order_by, $order_dir, $form->{"is_vendor"}, $form->{"allow_both"});
 549   map({ $covs->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$covs}));
 550   if (0 == scalar(@{$covs})) {
 551     $form->show_generic_information(sprintf($locale->text("No %s was found matching the search parameters."), $type));
 552   } elsif (1 == scalar(@{$covs})) {
 553     $onload = "cov_selected('1')";
 554   }
 555
 556   my $callback = "$form->{script}?action=cov_selection_internal&";
 557   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 558       (qw(name input_name input_id is_vendor allow_both), grep({ /^[fl]_/ } keys %$form)));
 559
 560   my @header_sort = qw(name address contact);
 561   my %header_title = ( "name" => $locale->text("Name"),
 562                        "address" => $locale->text("Address"),
 563                        "contact" => $locale->text("Contact"),
 564                        );
 565
 566   my @header =
 567     map(+{ "column_title" => $header_title{$_},
 568            "column" => $_,
 569            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 570          },
 571         @header_sort);
 572
 573   foreach my $cov (@{ $covs }) {
 574     $cov->{address} = "$cov->{street}, $cov->{zipcode} $cov->{city}";
 575     $cov->{address} =~ s{^,}{}x;
 576     $cov->{address} =~ s{\ +}{\ }gx;
 577
 578     $cov->{contact} = join " ", map { $cov->{$_} } qw(cp_greeting cp_title cp_givenname cp_name);
 579     $cov->{contact} =~ s{\ +}{\ }gx;
 580   }
 581
 582   $form->{"title"} = $form->{is_vendor} ? $locale->text("Select a vendor") : $locale->text("Select a customer");
 583   $form->header();
 584   print($form->parse_html_template("generic/cov_selection", { "HEADER" => \@header,
 585                                                               "COVS" => $covs,
 586                                                               "onload" => $onload }));
 587
 588   $lxdebug->leave_sub();
 589 }
 590
 591 1;