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 ## Customers/Vendors
  51
  52 sub check_customer_or_vendor {
  53   $lxdebug->enter_sub();
  54
  55   my ($field, $cov_selected_nextsub, $is_vendor) = @_;
  56
  57   if ($form->{"f_${field}"} eq $form->{"f_old_${field}"}) {
  58     $lxdebug->leave_sub();
  59     return 1;
  60   }
  61
  62   my $type = $is_vendor ? $locale->text("vendor") : $locale->text("customer");
  63
  64   my $old_form = save_form();
  65   $form->{"name"} = $form->{"f_${field}"};
  66   $form->{"obsolete"} = 1;
  67   my $covs;
  68   $covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, "name", 1, $is_vendor);
  69   restore_form($old_form);
  70
  71   if (0 == scalar(@{$covs})) {
  72     $form->header();
  73     $form->show_generic_error(sprintf($locale->text("There is no %s whose name matches '%s'."), $type, $form->{"f_${field}"}));
  74
  75     $lxdebug->leave_sub();
  76     return 0;
  77
  78   }
  79
  80   if (1 != scalar(@{$covs})) {
  81     # If there is more than one CoV with the same name
  82     # then we have to check if the ID is set, too. Otherwise
  83     # we'd be stuck in an endless loop.
  84     if ($form->{"f_${field}_id"}) {
  85       foreach my $cov (@{$covs}) {
  86         if (($form->{"f_${field}_id"} == $cov->{"id"}) &&
  87             ($form->{"f_${field}"} eq $cov->{"name"})) {
  88           $lxdebug->leave_sub();
  89           return 1;
  90         }
  91       }
  92     }
  93
  94     $form->{"cov_selected_nextsub"} = $cov_selected_nextsub;
  95     $form->{"check_cov_field"} = $field;
  96     select_customer_or_vendor("cov_selected", $is_vendor, @{$covs});
  97     $lxdebug->leave_sub();
  98     return 0;
  99   }
 100
 101   $form->{"f_${field}_id"} = $covs->[0]->{"id"};
 102   $form->{"f_${field}"} = $covs->[0]->{"name"};
 103
 104   $lxdebug->leave_sub();
 105
 106   return 1;
 107 }
 108
 109 sub select_customer_or_vendor {
 110   $lxdebug->enter_sub();
 111
 112   my ($callback_sub, $is_vendor, @covs) = @_;
 113
 114   my $old_form = save_form();
 115
 116   if (0 == scalar(@covs)) {
 117     delete($form->{"name"});
 118     $form->{"obsolete"} = 1;
 119     my $c = Common->retrieve_customers_or_vendors(\%myconfig, $form, "name", 1, $is_vendor);
 120     restore_form($old_form);
 121     @covs = @{$c};
 122   }
 123
 124   $form->header();
 125   print($form->parse_html_template("generic/select_customer_or_vendor",
 126                                    { "COVS" => \@covs,
 127                                      "old_form" => $old_form,
 128                                      "title" => $is_vendor ? $locale->text("Select a vendor") : $locale->text("Select a customer"),
 129                                      "nextsub" => "select_cov_internal",
 130                                      "callback_sub" => $callback_sub }));
 131
 132   $lxdebug->leave_sub();
 133 }
 134
 135 sub cov_selected {
 136   $lxdebug->enter_sub();
 137   my ($new_id, $new_name) = @_;
 138
 139   my $field = $form->{"check_cov_field"};
 140   delete($form->{"check_cov_field"});
 141
 142   $form->{"f_${field}_id"} = $new_id;
 143   $form->{"f_${field}"} = $new_name;
 144   $form->{"f_old_${field}"} = $new_name;
 145
 146   &{ $form->{"cov_selected_nextsub"} }();
 147
 148   $lxdebug->leave_sub();
 149 }
 150
 151 sub select_cov_internal {
 152   $lxdebug->enter_sub();
 153
 154   my ($new_id, $new_name, $callback_sub);
 155
 156   my $new_id = $form->{"new_id_" . $form->{"selection"}};
 157   my $new_name = $form->{"new_name_" . $form->{"selection"}};
 158   my $callback_sub = $form->{"callback_sub"};
 159
 160   restore_form($form->{"old_form"});
 161
 162   &{ $callback_sub }($new_id, $new_name);
 163
 164   $lxdebug->leave_sub();
 165 }
 166
 167 sub select_part {
 168   $lxdebug->enter_sub();
 169
 170   my ($callback_sub, @parts) = @_;
 171
 172   my $remap_parts_id = 0;
 173   if (defined($parts[0]->{"parts_id"}) && !defined($parts[0]->{"id"})) {
 174     $remap_parts_id = 1;
 175     map({ $_->{"id"} = $_->{"parts_id"}; } @parts);
 176   }
 177
 178   my $remap_partnumber = 0;
 179   if (defined($parts[0]->{"partnumber"}) && !defined($parts[0]->{"number"})) {
 180     $remap_partnumber = 1;
 181     map({ $_->{"number"} = $_->{"partnumber"}; } @parts);
 182   }
 183
 184   my $has_charge = 0;
 185   if (defined($parts[0]->{"chargenumber"})) {
 186     $has_charge = 1;
 187     map({ $_->{"has_charge"} = 1; } @parts);
 188   }
 189
 190   my $old_form = save_form();
 191
 192   $form->header();
 193   print $form->parse_html_template("generic/select_part",
 194                                    { "PARTS"            => \@parts,
 195                                      "old_form"         => $old_form,
 196                                      "title"            => $locale->text("Select a part"),
 197                                      "nextsub"          => "select_part_internal",
 198                                      "callback_sub"     => $callback_sub,
 199                                      "has_charge"       => $has_charge,
 200                                      "remap_parts_id"   => $remap_parts_id,
 201                                      "remap_partnumber" => $remap_partnumber });
 202
 203   $lxdebug->leave_sub();
 204 }
 205
 206 sub select_part_internal {
 207   $lxdebug->enter_sub();
 208
 209   my ($new_item, $callback_sub);
 210
 211   my $re = "^new_.*_" . $form->{"selection"};
 212
 213   foreach (grep /$re/, keys %{ $form }) {
 214     my $new_key           =  $_;
 215     $new_key              =~ s/^new_//;
 216     $new_key              =~ s/_\d+$//;
 217     $new_item->{$new_key} =  $form->{$_};
 218   }
 219
 220   if ($form->{remap_parts_id}) {
 221     $new_item->{parts_id} = $new_item->{id};
 222     delete $new_item->{id};
 223   }
 224
 225   if ($form->{remap_partnumber}) {
 226     $new_item->{partnumber} = $new_item->{number};
 227     delete $new_item->{number};
 228   }
 229
 230   my $callback_sub = $form->{callback_sub};
 231
 232   restore_form($form->{old_form});
 233
 234   call_sub($callback_sub, $new_item);
 235
 236   $lxdebug->leave_sub();
 237 }
 238
 239 sub part_selection_internal {
 240   $lxdebug->enter_sub();
 241
 242   $order_by  = "description";
 243   $order_by  = $form->{"order_by"} if (defined($form->{"order_by"}));
 244   $order_dir = 1;
 245   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 246
 247   %options   = map { $_ => 1 } split m/:/, $form->{options};
 248
 249   map { $form->{$_} = 1 if ($options{$_}) } qw(no_services no_assemblies stockable);
 250
 251   $parts = Common->retrieve_parts(\%myconfig, $form, $order_by, $order_dir);
 252   map({ $parts->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$parts}));
 253   if (0 == scalar(@{$parts})) {
 254     $form->show_generic_information($locale->text("No part was found matching the search parameters."));
 255   } elsif (1 == scalar(@{$parts})) {
 256     $onload = "part_selected('1')";
 257   }
 258
 259   my $callback = "$form->{script}?action=part_selection_internal&";
 260   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 261       (qw(partnumber description input_partnumber input_description input_partsid), grep({ /^[fl]_/ } keys %$form)));
 262
 263   my @header_sort = qw(partnumber description);
 264   my %header_title = ( "partnumber" => $locale->text("Part Number"),
 265                        "description" => $locale->text("Part description"),
 266                        );
 267
 268   my @header =
 269     map(+{ "column_title" => $header_title{$_},
 270            "column" => $_,
 271            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 272          },
 273         @header_sort);
 274
 275   $form->{"title"} = $locale->text("Select a part");
 276   $form->header();
 277   print $form->parse_html_template("generic/part_selection", { "HEADER" => \@header,
 278                                                                "PARTS"  => $parts,
 279                                                                "onload" => $onload });
 280
 281   $lxdebug->leave_sub();
 282 }
 283
 284 # -------------------------------------------------------------------------
 285
 286 sub project_selection_internal {
 287   $lxdebug->enter_sub();
 288
 289   $auth->check_right($form->{login}, 'project_edit');
 290
 291   my %valid_order_by_fields = ('description' => 1, 'projectnumber' => 1);
 292
 293   $order_by  = "description";
 294   $order_by  = $form->{order_by} if ($valid_order_by_fields{$form->{order_by}});
 295   $order_dir = !defined $form->{order_dir} ? 1 : $form->{order_dir} ? 1 : 0;
 296
 297   $projects  = Common->retrieve_projects(\%myconfig, $form, $order_by, $order_dir);
 298
 299   if (1 == scalar @{ $projects }) {
 300     $onload = "project_selected('1')";
 301   }
 302
 303   my $callback = build_std_url('action=project_selection_internal', qw(projectnumber description input_projectnumber input_description input_project_id),
 304                                grep { /^[fl]_/ } keys %{ $form });
 305
 306   my @header_sort  = qw(projectnumber description);
 307   my %header_title = ( "projectnumber" => $locale->text("Project Number"),
 308                        "description"   => $locale->text("Project description"),
 309                        );
 310
 311   my @header =
 312     map(+{ "column_title" => $header_title{$_},
 313            "column"       => $_,
 314            "callback"     => $callback . "&order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 315          },
 316         @header_sort);
 317
 318   $form->{title} = $locale->text("Select a project");
 319   $form->header();
 320   print $form->parse_html_template("generic/project_selection", { "HEADER"   => \@header,
 321                                                                   "PROJECTS" => $projects,
 322                                                                   "onload"   => $onload });
 323
 324   $lxdebug->leave_sub();
 325 }
 326
 327 sub new_project {
 328   $lxdebug->enter_sub();
 329
 330   delete @{$form}{qw(action login password)};
 331
 332   my $callback = build_std_url('action=project_created', grep { '' eq ref $form->{$_} } keys %{ $form });
 333
 334   my $argv = "action=add&type=project&callback=" . E($callback);
 335
 336   exec("perl", "pe.pl", $argv);
 337 }
 338
 339 sub project_created {
 340   $lxdebug->enter_sub();
 341
 342   $form->{title} = $locale->text("Select a project");
 343   $form->header();
 344
 345   my $args = {
 346     'PROJECTS' => [ { map { $_ => $form->{"new_$_"} } qw(id projectnumber description) } ],
 347     'HEADER'   => [],
 348     'onload'   => "project_selected('1')",
 349   };
 350
 351   print $form->parse_html_template("generic/project_selection", $args);
 352
 353   $lxdebug->leave_sub();
 354 }
 355
 356 sub project_selection_check {
 357   $lxdebug->enter_sub();
 358
 359   my ($id_field, $number_field, $description_field, $project_selected_nextsub, $prefix) = @_;
 360
 361   $prefix = "f_" unless defined($prefix);
 362
 363   if (!$form->{"${prefix}${number_field}"} &&
 364       (!$description_field || !$form->{"${prefix}${description_field}"})) {
 365     delete $form->{"${prefix}${id_field}"};
 366     delete $form->{"${prefix}old_${number_field}"};
 367     delete $form->{"${prefix}old_${description_field}"} if ($description_field);
 368
 369     $lxdebug->leave_sub();
 370     return 1;
 371   }
 372
 373   if (($form->{"${prefix}${number_field}"}      eq $form->{"${prefix}old_${number_field}"}) &&
 374       (!$description_field ||
 375        (($form->{"${prefix}${description_field}"} eq $form->{"${prefix}old_${description_field}"})))) {
 376     $lxdebug->leave_sub();
 377     return 1;
 378   }
 379
 380   my $old_form = save_form();
 381
 382   $form->{projectnumber} = $form->{"${prefix}${number_field}"};
 383   $form->{full_search}   = 1;
 384
 385   if ($description_field) {
 386     $form->{description} = $form->{"${prefix}${description_field}"};
 387   } else {
 388     delete $form->{description};
 389   }
 390
 391   my $projects = Common->retrieve_projects(\%myconfig, $form, "projectnumber", 1);
 392   restore_form($old_form);
 393
 394   if (0 == scalar @{$projects}) {
 395     $form->error(sprintf($locale->text("There is no project whose project number matches '%s'."), $form->{"${prefix}${number_field}"}));
 396
 397     $lxdebug->leave_sub();
 398     return 0;
 399   }
 400
 401   if (1 != scalar(@{$projects})) {
 402     $form->{project_selected_nextsub}        = $project_selected_nextsub;
 403     $form->{check_project_id_field}          = $id_field;
 404     $form->{check_project_number_field}      = $number_field;
 405     $form->{check_project_description_field} = $description_field;
 406
 407     project_selection("project_selection_selected", $prefix, @{ $projects });
 408
 409     $lxdebug->leave_sub();
 410     return 0;
 411   }
 412
 413   $form->{"${prefix}${id_field}"}         = $projects->[0]->{id};
 414   $form->{"${prefix}${number_field}"}     = $projects->[0]->{projectnumber};
 415   $form->{"${prefix}old_${number_field}"} = $projects->[0]->{projectnumber};
 416
 417   if ($description_field) {
 418     $form->{"${prefix}${description_field}"}     = $projects->[0]->{description};
 419     $form->{"${prefix}old_${description_field}"} = $projects->[0]->{description};
 420   }
 421
 422   $lxdebug->leave_sub();
 423
 424   return 1;
 425 }
 426
 427 sub project_selection {
 428   $lxdebug->enter_sub();
 429
 430   my ($callback_sub, $prefix, @projects) = @_;
 431
 432   if (0 == scalar @projects) {
 433     my $old_form = save_form();
 434     map { delete($form->{$_}); } qw(projectnumber description);
 435
 436     @projects = @{ Common->retrieve_projects(\%myconfig, $form, "projectnumber", 1) };
 437
 438     restore_form($old_form);
 439   }
 440
 441   $form->header();
 442   print $form->parse_html_template("generic/select_project",
 443                                    { "PROJECTS"     => \@projects,
 444                                      "old_form"     => save_form(qw(login password)),
 445                                      "title"        => $locale->text("Select an project"),
 446                                      "nextsub"      => "project_selection_step2",
 447                                      "prefix"       => $prefix,
 448                                      "callback_sub" => $callback_sub });
 449
 450   $lxdebug->leave_sub();
 451 }
 452
 453 sub project_selection_step2 {
 454   $lxdebug->enter_sub();
 455
 456   my ($new_id, $new_name, $callback_sub);
 457
 458   my $new_id          = $form->{"new_id_"          . $form->{selection}};
 459   my $new_number      = $form->{"new_number_"      . $form->{selection}};
 460   my $new_description = $form->{"new_description_" . $form->{selection}};
 461   my $callback_sub    = $form->{callback_sub};
 462   my $prefix          = $form->{prefix};
 463
 464   restore_form($form->{old_form}, 0, qw(login password));
 465   delete $form->{header};
 466
 467   call_sub($callback_sub, $new_id, $new_number, $new_description, $prefix);
 468
 469   $lxdebug->leave_sub();
 470 }
 471
 472 sub project_selection_selected {
 473   $lxdebug->enter_sub();
 474
 475   my ($new_id, $new_number, $new_description, $prefix) = @_;
 476
 477   my ($id_field, $number_field, $description_field)    = ($form->{check_project_id_field}, $form->{check_project_number_field}, $form->{check_project_description_field});
 478
 479   map { delete $form->{"check_project_${_}_field"} } qw(id number description);
 480
 481   $form->{"${prefix}${id_field}"}         = $new_id;
 482   $form->{"${prefix}${number_field}"}     = $new_number;
 483   $form->{"${prefix}old_${number_field}"} = $new_number;
 484
 485   if ($description_field) {
 486     $form->{"${prefix}${description_field}"}     = $new_description;
 487     $form->{"${prefix}old_${description_field}"} = $new_description;
 488   }
 489
 490   call_sub($form->{project_selected_nextsub});
 491
 492   $lxdebug->leave_sub();
 493 }
 494
 495 # -------------------------------------------------------------------------
 496
 497 sub employee_selection_internal {
 498   $lxdebug->enter_sub();
 499
 500   $order_by = "name";
 501   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 502   $order_dir = 1;
 503   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 504
 505   $employees = Common->retrieve_employees(\%myconfig, $form, $order_by, $order_dir);
 506   map({ $employees->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$employees}));
 507   if (0 == scalar(@{$employees})) {
 508     $form->show_generic_information($locale->text("No employee was found matching the search parameters."));
 509   } elsif (1 == scalar(@{$employees})) {
 510     $onload = "employee_selected('1')";
 511   }
 512
 513   my $callback = "$form->{script}?action=employee_selection_internal&";
 514   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 515       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 516
 517   my @header_sort = qw(name);
 518   my %header_title = ( "name" => $locale->text("Name"),
 519                        );
 520
 521   my @header =
 522     map(+{ "column_title" => $header_title{$_},
 523            "column" => $_,
 524            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 525          },
 526         @header_sort);
 527
 528   $form->{"title"} = $locale->text("Select an employee");
 529   $form->header();
 530   print($form->parse_html_template("generic/employee_selection", { "HEADER" => \@header,
 531                                                                    "EMPLOYEES" => $employees,
 532                                                                    "onload" => $onload }));
 533
 534   $lxdebug->leave_sub();
 535 }
 536
 537 # -------------------------------------------------------------------------
 538
 539 sub delivery_customer_selection {
 540   $lxdebug->enter_sub();
 541
 542   $order_by = "name";
 543   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 544   $order_dir = 1;
 545   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 546
 547   $delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);
 548   map({ $delivery->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$delivery}));
 549   if (0 == scalar(@{$delivery})) {
 550     $form->show_generic_information($locale->text("No Customer was found matching the search parameters."));
 551   } elsif (1 == scalar(@{$delivery})) {
 552     $onload = "customer_selected('1')";
 553   }
 554
 555   my $callback = "$form->{script}?action=delivery_customer_selection&";
 556   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 557       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 558
 559   my @header_sort = qw(name customernumber address);
 560   my %header_title = ( "name" => $locale->text("Name"),
 561                        "customernumber" => $locale->text("Customer Number"),
 562                        "address" => $locale->text("Address"),
 563                      );
 564
 565   my @header =
 566     map(+{ "column_title" => $header_title{$_},
 567            "column" => $_,
 568            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 569          },
 570         @header_sort);
 571
 572   $form->{"title"} = $locale->text("Select a Customer");
 573   $form->header();
 574   print $form->parse_html_template("generic/select_delivery_customer", { "HEADER"   => \@header,
 575                                                                          "DELIVERY" => $delivery,
 576                                                                          "onload"   => $onload });
 577
 578   $lxdebug->leave_sub();
 579 }
 580
 581 # -------------------------------------------------------------------------
 582
 583 sub vendor_selection {
 584   $lxdebug->enter_sub();
 585
 586   $order_by = "name";
 587   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 588   $order_dir = 1;
 589   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 590
 591   $vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);
 592   map({ $vendor->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$vendor}));
 593   if (0 == scalar(@{$vendor})) {
 594     $form->show_generic_information($locale->text("No Vendor was found matching the search parameters."));
 595   } elsif (1 == scalar(@{$vendor})) {
 596     $onload = "vendor_selected('1')";
 597   }
 598
 599   my $callback = "$form->{script}?action=vendor_selection&";
 600   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 601       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 602
 603   my @header_sort = qw(name customernumber address);
 604   my %header_title = ( "name" => $locale->text("Name"),
 605                        "customernumber" => $locale->text("Customer Number"),
 606                        "address" => $locale->text("Address"),
 607                      );
 608
 609   my @header =
 610     map(+{ "column_title" => $header_title{$_},
 611            "column" => $_,
 612            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 613          },
 614         @header_sort);
 615
 616   $form->{"title"} = $locale->text("Select a Customer");
 617   $form->header();
 618   print $form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,
 619                                                               "VENDOR" => $vendor,
 620                                                               "onload" => $onload });
 621
 622   $lxdebug->leave_sub();
 623 }
 624
 625 # -------------------------------------------------------------------------
 626
 627 sub calculate_qty {
 628   $lxdebug->enter_sub();
 629
 630   my @variable_sort = ();
 631   my %variable_list = ();
 632   my $unit_list = ();
 633   $form->{formel} =~ s/\r\n//g;
 634
 635   my ($variable_string, $formel) = split /###/,$form->{formel};
 636
 637
 638   split m/;/, $variable_string;
 639   foreach $item (@_) {
 640     my($name, $valueunit) = split /=/,$item;
 641     my($value, $unit) = split / /, $valueunit;
 642
 643     push(@variable_sort, $value);
 644     $variable_list{$value} = $name;
 645     $unit_list{$value} = $unit;
 646   }
 647
 648   my @header_sort = qw(variable value unit);
 649   my %header_title = ( "variable" => $locale->text("Variable"),
 650                        "value" => $locale->text("Value"),
 651                        "unit" => $locale->text("Unit"),
 652                      );
 653
 654   my @variable = map(+{ "description" => $variable_list{$_},
 655                         "name" => $_,
 656                         "unit" => $unit_list{$_} }, @variable_sort);
 657
 658   my @header =
 659     map(+{ "column_title" => $header_title{$_},
 660            "column" => $_,
 661          },
 662         @header_sort);
 663   $form->{formel} = $formel;
 664   $form->{"title"} = $locale->text("Please enter values");
 665   $form->header();
 666   print($form->parse_html_template("generic/calculate_qty", { "HEADER"    => \@header,
 667                                                               "VARIABLES" => \@variable,
 668                                                               "onload"    => $onload }));
 669
 670   $lxdebug->leave_sub();
 671 }
 672
 673 # -------------------------------------------------------------------------
 674
 675 sub set_longdescription {
 676   $lxdebug->enter_sub();
 677
 678   $form->{title} = $locale->text("Enter longdescription");
 679   $form->header();
 680   print $form->parse_html_template("generic/set_longdescription");
 681
 682   $lxdebug->leave_sub();
 683 }
 684
 685 # -------------------------------------------------------------------------
 686
 687 sub H {
 688   return $form->quote_html($_[0]);
 689 }
 690
 691 sub Q {
 692   return $form->quote($_[0]);
 693 }
 694
 695 sub E {
 696   return $form->escape($_[0]);
 697 }
 698
 699 sub NTI {
 700   my ($element) = @_;
 701
 702   $element =~ s/tabindex\s*=\s*"\d+"//;
 703   return $element;
 704 }
 705
 706 sub format_dates {
 707   $lxdebug->enter_sub();
 708
 709   my ($dateformat, $longformat, @indices) = @_;
 710
 711   $dateformat = $myconfig{"dateformat"} unless ($dateformat);
 712
 713   foreach my $idx (@indices) {
 714     next unless (defined($form->{$idx}));
 715
 716     if (!ref($form->{$idx})) {
 717       $form->{$idx} = $locale->reformat_date(\%myconfig, $form->{$idx},
 718                                              $dateformat, $longformat);
 719
 720     } elsif (ref($form->{$idx}) eq "ARRAY") {
 721       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 722         $form->{$idx}->[$i] =
 723           $locale->reformat_date(\%myconfig, $form->{$idx}->[$i],
 724                                  $dateformat, $longformat);
 725       }
 726     }
 727   }
 728
 729   $lxdebug->leave_sub();
 730 }
 731
 732 sub reformat_numbers {
 733   $lxdebug->enter_sub();
 734
 735   my ($numberformat, $places, @indices) = @_;
 736
 737   return $lxdebug->leave_sub()
 738     if (!$numberformat || ($numberformat eq $myconfig{"numberformat"}));
 739
 740   foreach my $idx (@indices) {
 741     next unless (defined($form->{$idx}));
 742
 743     if (!ref($form->{$idx})) {
 744       $form->{$idx} = $form->parse_amount(\%myconfig, $form->{$idx});
 745
 746     } elsif (ref($form->{$idx}) eq "ARRAY") {
 747       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 748         $form->{$idx}->[$i] =
 749           $form->parse_amount(\%myconfig, $form->{$idx}->[$i]);
 750       }
 751     }
 752   }
 753
 754   my $saved_numberformat = $myconfig{"numberformat"};
 755   $myconfig{"numberformat"} = $numberformat;
 756
 757   foreach my $idx (@indices) {
 758     next unless (defined($form->{$idx}));
 759
 760     if (!ref($form->{$idx})) {
 761       $form->{$idx} = $form->format_amount(\%myconfig, $form->{$idx}, $places);
 762
 763     } elsif (ref($form->{$idx}) eq "ARRAY") {
 764       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 765         $form->{$idx}->[$i] =
 766           $form->format_amount(\%myconfig, $form->{$idx}->[$i], $places);
 767       }
 768     }
 769   }
 770
 771   $myconfig{"numberformat"} = $saved_numberformat;
 772
 773   $lxdebug->leave_sub();
 774 }
 775
 776 # -------------------------------------------------------------------------
 777
 778 sub show_history {
 779         $lxdebug->enter_sub();
 780         my $dbh = $form->dbconnect(\%myconfig);
 781         my ($sort, $sortby) = split(/\-\-/, $form->{order});
 782   $sort =~ s/.*\.(.*)/$1/;
 783
 784         $form->{title} = $locale->text("History");
 785     $form->header();
 786     print $form->parse_html_template( "common/show_history", {
 787         "DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
 788         "SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
 789       uc($sort) => 1,
 790       uc($sort)."BY" => $sortby
 791         } );
 792
 793         $dbh->disconnect();
 794         $lxdebug->leave_sub();
 795 }
 796
 797 # -------------------------------------------------------------------------
 798
 799 sub call_sub {
 800   $lxdebug->enter_sub();
 801
 802   my $name = shift;
 803
 804   if (!$name) {
 805     $form->error($locale->text("Trying to call a sub without a name"));
 806   }
 807
 808   $name =~ s/[^a-zA-Z0-9_]//g;
 809
 810   if (!defined(&{ $name })) {
 811     $form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
 812   }
 813
 814   &{ $name }(@_);
 815
 816   $lxdebug->leave_sub();
 817 }
 818
 819 # -------------------------------------------------------------------------
 820
 821 sub show_vc_details {
 822         $lxdebug->enter_sub();
 823
 824   $form->{vc} = $form->{vc} eq "customer" ? "customer" : "vendor";
 825   $form->isblank("vc_id",
 826                  $form->{vc} eq "customer" ?
 827                  $locale->text("No customer has been selected yet.") :
 828                  $locale->text("No vendor has been selected yet."));
 829
 830   Common->get_vc_details(\%myconfig, $form, $form->{vc}, $form->{vc_id});
 831
 832   $form->{title} = $form->{vc} eq "customer" ?
 833     $locale->text("Customer details") : $locale->text("Vendor details");
 834   $form->header();
 835   print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });
 836
 837         $lxdebug->leave_sub();
 838 }
 839
 840 # -------------------------------------------------------------------------
 841
 842 sub retrieve_partunits {
 843   $lxdebug->enter_sub();
 844
 845   my @part_ids = grep { $_ } map { $form->{"id_${_}"} } (1..$form->{rowcount});
 846
 847   if (@part_ids) {
 848     my %partunits = IO->retrieve_partunits('part_ids' => \@part_ids);
 849
 850     foreach my $i (1..$form->{rowcount}) {
 851       next unless ($form->{"id_${i}"});
 852       $form->{"partunit_${i}"} = $partunits{$form->{"id_${i}"}};
 853     }
 854   }
 855
 856   $lxdebug->leave_sub();
 857 }
 858
 859 # -------------------------------------------------------------------------
 860
 861 sub mark_as_paid_common {
 862   $lxdebug->enter_sub();
 863
 864   my ($myconfig, $db_name) = @_;
 865
 866   if($form->{mark_as_paid}) {
 867     my $dbh ||= $form->get_standard_dbh($myconfig);
 868     my $query = qq|UPDATE $db_name SET paid = amount WHERE id = ?|;
 869     do_query($form, $dbh, $query, $form->{id});
 870     $dbh->commit();
 871     $form->redirect($locale->text("Marked as paid"));
 872
 873   } else {
 874     my $referer = $ENV{HTTP_REFERER};
 875     $referer =~ s/^(.*)action\=.*\&(.*)$/$1action\=mark_as_paid\&mark_as_paid\=1\&id\=$form->{id}\&$2/;
 876     $form->header();
 877     print qq|<body>|;
 878     print qq|<p><b>|.$locale->text('Mark as paid?').qq|</b></p>|;
 879     print qq|<input type="button" value="|.$locale->text('yes').qq|" onclick="document.location.href='|.$referer.qq|'">&nbsp;|;
 880     print qq|<input type="button" value="|.$locale->text('no').qq|" onclick="javascript:history.back();">|;
 881     print qq|</body></html>|;
 882   }
 883
 884   $lxdebug->leave_sub();
 885 }
 886
 887 sub cov_selection_internal {
 888   $lxdebug->enter_sub();
 889
 890   $order_by = "name";
 891   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 892   $order_dir = 1;
 893   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 894
 895   my $type = $form->{"is_vendor"} ? $locale->text("vendor") : $locale->text("customer");
 896
 897   $covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, $order_by, $order_dir, $form->{"is_vendor"}, $form->{"allow_both"});
 898   map({ $covs->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$covs}));
 899   if (0 == scalar(@{$covs})) {
 900     $form->show_generic_information(sprintf($locale->text("No %s was found matching the search parameters."), $type));
 901   } elsif (1 == scalar(@{$covs})) {
 902     $onload = "cov_selected('1')";
 903   }
 904
 905   my $callback = "$form->{script}?action=cov_selection_internal&";
 906   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 907       (qw(login path password name input_name input_id is_vendor allow_both), grep({ /^[fl]_/ } keys %$form)));
 908
 909   my @header_sort = qw(name address contact);
 910   my %header_title = ( "name" => $locale->text("Name"),
 911                        "address" => $locale->text("Address"),
 912                        "contact" => $locale->text("Contact"),
 913                        );
 914
 915   my @header =
 916     map(+{ "column_title" => $header_title{$_},
 917            "column" => $_,
 918            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 919          },
 920         @header_sort);
 921
 922   foreach my $cov (@{ $covs }) {
 923     $cov->{address} = "$cov->{street}, $cov->{zipcode} $cov->{city}";
 924     $cov->{address} =~ s{^,}{}x;
 925     $cov->{address} =~ s{\ +}{\ }gx;
 926
 927     $cov->{contact} = join " ", map { $cov->{$_} } qw(cp_greeting cp_title cp_givenname cp_name);
 928     $cov->{contact} =~ s{\ +}{\ }gx;
 929   }
 930
 931   $form->{"title"} = $form->{is_vendor} ? $locale->text("Select a vendor") : $locale->text("Select a customer");
 932   $form->header();
 933   print($form->parse_html_template("generic/cov_selection", { "HEADER" => \@header,
 934                                                               "COVS" => $covs,
 935                                                               "onload" => $onload }));
 936
 937   $lxdebug->leave_sub();
 938 }
 939
 940 sub check_cov2 {
 941   $lxdebug->enter_sub();
 942
 943   my $callback_sub = shift;
 944
 945   if (!$form->{customer}
 946       || ($form->{customer} eq $form->{old_customer})
 947       || ("$form->{customer}--$form->{customer_id}" eq $form->{old_customer})) {
 948     $lxdebug->leave_sub();
 949     return;
 950   }
 951
 952   $old_name     = $form->{name};
 953   $form->{name} = $form->{customer};
 954
 955   my $covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, "name", "ASC", 0, 1);
 956
 957   $form->{name} = $old_name;
 958
 959   if (0 == scalar @{$covs}) {
 960     $form->show_generic_information(sprintf($locale->text("No %s was found matching the search parameters."), $type));
 961
 962   } elsif (1 == scalar @{ $covs }) {
 963     $form->{customer}           = $covs->[0]->{name};
 964     $form->{old_customer}       = $covs->[0]->{name};
 965     $form->{customer_id}        = $covs->[0]->{id};
 966     $form->{customer_is_vendor} = $covs->[0]->{customer_is_vendor};
 967
 968   } else {
 969     $form->{new_cov_nextsub} = $callback_sub;
 970
 971     delete @{$form}{qw(customer customer_is_vendor customer_id old_customer action)};
 972     my @hidden = map { { 'key' => $_, 'value' => $form->{$_} } } grep { '' eq ref $form->{$_} } keys %{ $form };
 973
 974     foreach my $cov (@{ $covs }) {
 975       $cov->{address} = "$cov->{street}, $cov->{zipcode} $cov->{city}";
 976       $cov->{address} =~ s{^,}{}x;
 977       $cov->{address} =~ s{\ +}{\ }gx;
 978
 979       $cov->{contact} = join " ", map { $cov->{$_} } qw(cp_greeting cp_title cp_givenname cp_name);
 980       $cov->{contact} =~ s{\ +}{\ }gx;
 981     }
 982
 983     $form->{title} = $locale->text("Select a vendor or customer");
 984     $form->header();
 985
 986     print $form->parse_html_template("generic/cov_selection2", { "COVS" => $covs, "HIDDEN" => \@hidden });
 987
 988     exit 0;
 989   }
 990
 991   $lxdebug->leave_sub();
 992 }
 993
 994 sub cov_selected2 {
 995   $lxdebug->enter_sub();
 996
 997   if (!$form->{new_cov} || !$form->{new_cov_nextsub}) {
 998     $form->error($locale->text('No customer has been selected.'));
 999   }
1000
1001   map { $form->{$_} = $form->{"new_cov_${_}_$form->{new_cov}"} } qw(customer customer_id customer_is_vendor);
1002   $form->{old_customer} = $form->{customer};
1003
1004   &{ $form->{new_cov_nextsub} }();
1005
1006   $lxdebug->leave_sub();
1007 }
1008
1009 sub select_item_selection_internal {
1010   $lxdebug->enter_sub();
1011
1012   @items = SystemBrace->retrieve_select_items(\%myconfig, $form, $form->{"select_item_type"});
1013   if (0 == scalar(@items)) {
1014     $form->show_generic_information($locale->text("No item was found."));
1015   } elsif (1 == scalar(@items)) {
1016     $onload = "select_item_selected('1')";
1017   }
1018
1019   $form->{"title"} = $locale->text("Select an entry");
1020   $form->header();
1021   print($form->parse_html_template("generic/select_item_selection", { "SELECT_ITEMS" => \@items,
1022                                                                       "onload" => $onload }));
1023
1024   $lxdebug->leave_sub();
1025 }
1026 1;