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   my $has_ean = 0;
  73   if (defined($parts[0]->{ean})) {
  74     $has_ean = 1;
  75     map { $_->{has_ean} = 1; } @parts;
  76   }
  77
  78   my $old_form = save_form();
  79
  80   $form->header();
  81   print $form->parse_html_template("generic/select_part",
  82                                    { "PARTS"            => \@parts,
  83                                      "old_form"         => $old_form,
  84                                      "title"            => $locale->text("Select a part"),
  85                                      "nextsub"          => "select_part_internal",
  86                                      "callback_sub"     => $callback_sub,
  87                                      "has_charge"       => $has_charge,
  88                                      "has_ean"          => $has_ean,
  89                                      "remap_parts_id"   => $remap_parts_id,
  90                                      "remap_partnumber" => $remap_partnumber });
  91
  92   $lxdebug->leave_sub();
  93 }
  94
  95 sub select_part_internal {
  96   $lxdebug->enter_sub();
  97
  98   my ($new_item, $callback_sub);
  99
 100   my $re = "^new_.*_$form->{selection}\$";
 101
 102   foreach (grep /$re/, keys %{ $form }) {
 103     my $new_key           =  $_;
 104     $new_key              =~ s/^new_//;
 105     $new_key              =~ s/_\d+$//;
 106     $new_item->{$new_key} =  $form->{$_};
 107   }
 108
 109   if ($form->{remap_parts_id}) {
 110     $new_item->{parts_id} = $new_item->{id};
 111     delete $new_item->{id};
 112   }
 113
 114   if ($form->{remap_partnumber}) {
 115     $new_item->{partnumber} = $new_item->{number};
 116     delete $new_item->{number};
 117   }
 118
 119   my $callback_sub = $form->{callback_sub};
 120
 121   restore_form($form->{old_form});
 122
 123   call_sub($callback_sub, $new_item);
 124
 125   $lxdebug->leave_sub();
 126 }
 127
 128 sub part_selection_internal {
 129   $lxdebug->enter_sub();
 130
 131   $order_by  = "description";
 132   $order_by  = $form->{"order_by"} if (defined($form->{"order_by"}));
 133   $order_dir = 1;
 134   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 135
 136   my %options;
 137
 138   foreach my $opt (split m/:/, $form->{options}) {
 139     if ($opt =~ /=/) {
 140       my ($key, $value) = split m/=/, $opt, 2;
 141       $options{$key} = $value;
 142
 143     } else {
 144       $options{$opt} = 1;
 145     }
 146   }
 147
 148   map { $form->{$_} = $options{$_} if ($options{$_}) } qw(no_services no_assemblies assemblies click_button);
 149
 150   $parts = Common->retrieve_parts(\%myconfig, $form, $order_by, $order_dir);
 151
 152   if (0 == scalar(@{$parts})) {
 153     $form->show_generic_information($locale->text("No part was found matching the search parameters."));
 154   } elsif (1 == scalar(@{$parts})) {
 155     $onload = "part_selected('1')";
 156   }
 157
 158   map { $parts->[$_]->{selected} = $_ ? 0 : 1; } (0..$#{$parts});
 159
 160   my $callback = build_std_url('action=part_selection_internal', qw(partnumber description input_partnumber input_description input_partsid),
 161                                grep({ /^[fl]_/ } keys %{ $form }));
 162
 163   my @header_sort  = qw(partnumber description);
 164   my %header_title = ( "partnumber"  => $locale->text("Part Number"),
 165                        "description" => $locale->text("Part description"),
 166                        );
 167
 168   my @header =
 169     map(+{ "column_title" => $header_title{$_},
 170            "column"       => $_,
 171            "callback"     => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 172          },
 173         @header_sort);
 174
 175   $form->{formname} ||= 'Form';
 176
 177   $form->{title} = $locale->text("Select a part");
 178   $form->header();
 179   print $form->parse_html_template("generic/part_selection", { "HEADER" => \@header,
 180                                                                "PARTS"  => $parts,
 181                                                                "onload" => $onload });
 182
 183   $lxdebug->leave_sub();
 184 }
 185
 186 # -------------------------------------------------------------------------
 187
 188 sub delivery_customer_selection {
 189   $lxdebug->enter_sub();
 190
 191   $order_by = "name";
 192   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 193   $order_dir = 1;
 194   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 195
 196   $delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);
 197   map({ $delivery->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$delivery}));
 198   if (0 == scalar(@{$delivery})) {
 199     $form->show_generic_information($locale->text("No Customer was found matching the search parameters."));
 200   } elsif (1 == scalar(@{$delivery})) {
 201     $onload = "customer_selected('1')";
 202   }
 203
 204   my $callback = "$form->{script}?action=delivery_customer_selection&";
 205   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 206       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 207
 208   my @header_sort = qw(name customernumber address);
 209   my %header_title = ( "name" => $locale->text("Name"),
 210                        "customernumber" => $locale->text("Customer Number"),
 211                        "address" => $locale->text("Address"),
 212                      );
 213
 214   my @header =
 215     map(+{ "column_title" => $header_title{$_},
 216            "column" => $_,
 217            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 218          },
 219         @header_sort);
 220
 221   $form->{"title"} = $locale->text("Select a Customer");
 222   $form->header();
 223   print $form->parse_html_template("generic/select_delivery_customer", { "HEADER"   => \@header,
 224                                                                          "DELIVERY" => $delivery,
 225                                                                          "onload"   => $onload });
 226
 227   $lxdebug->leave_sub();
 228 }
 229
 230 # -------------------------------------------------------------------------
 231
 232 sub vendor_selection {
 233   $lxdebug->enter_sub();
 234
 235   $order_by = "name";
 236   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 237   $order_dir = 1;
 238   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 239
 240   $vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);
 241   map({ $vendor->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$vendor}));
 242   if (0 == scalar(@{$vendor})) {
 243     $form->show_generic_information($locale->text("No Vendor was found matching the search parameters."));
 244   } elsif (1 == scalar(@{$vendor})) {
 245     $onload = "vendor_selected('1')";
 246   }
 247
 248   my $callback = "$form->{script}?action=vendor_selection&";
 249   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 250       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 251
 252   my @header_sort = qw(name customernumber address);
 253   my %header_title = ( "name" => $locale->text("Name"),
 254                        "customernumber" => $locale->text("Customer Number"),
 255                        "address" => $locale->text("Address"),
 256                      );
 257
 258   my @header =
 259     map(+{ "column_title" => $header_title{$_},
 260            "column" => $_,
 261            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 262          },
 263         @header_sort);
 264
 265   $form->{"title"} = $locale->text("Select a Customer");
 266   $form->header();
 267   print $form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,
 268                                                               "VENDOR" => $vendor,
 269                                                               "onload" => $onload });
 270
 271   $lxdebug->leave_sub();
 272 }
 273
 274 # -------------------------------------------------------------------------
 275
 276 sub calculate_qty {
 277   $lxdebug->enter_sub();
 278
 279   $form->{formel} =~ s/\r\n//g;
 280
 281   my ($variable_string, $formel) = split /###/,$form->{formel};
 282
 283   foreach $item (split m/;/, $variable_string) {
 284     next unless $item =~ m/^ \s* (\w+) \s* = \s* (\w+) \s* (\w+) \s* $/x;
 285     push @variable, {
 286       description => $1,
 287       name        => $2,
 288       unit        => $3,
 289     };
 290   }
 291
 292   my @header_sort = qw(variable value unit);
 293   my %header_title = (
 294     variable => $locale->text("Variable"),
 295     value    => $locale->text("Value"),
 296     unit     => $locale->text("Unit"),
 297   );
 298   my @header = map +{
 299     column_title => $header_title{$_},
 300     column       => $_,
 301   }, @header_sort;
 302
 303   $form->{formel} = $formel;
 304   $form->{title}  = $locale->text("Please enter values");
 305   $form->header();
 306   print $form->parse_html_template("generic/calculate_qty", { "HEADER"    => \@header,
 307                                                               "VARIABLES" => \@variable,
 308                                                               "onload"    => $onload });
 309
 310   $lxdebug->leave_sub();
 311 }
 312
 313 # -------------------------------------------------------------------------
 314
 315 sub set_longdescription {
 316   $lxdebug->enter_sub();
 317
 318   $form->{title} = $locale->text("Enter longdescription");
 319   $form->header();
 320   print $form->parse_html_template("generic/set_longdescription");
 321
 322   $lxdebug->leave_sub();
 323 }
 324
 325 # -------------------------------------------------------------------------
 326
 327 sub H {
 328   return $locale->quote_special_chars('HTML', $_[0]);
 329 }
 330
 331 sub Q {
 332   return $locale->quote_special_chars('URL@HTML', $_[0]);
 333 }
 334
 335 sub E {
 336   return $form->escape($_[0]);
 337 }
 338
 339 sub NTI {
 340   my ($element) = @_;
 341
 342   $element =~ s/tabindex\s*=\s*"\d+"//;
 343   return $element;
 344 }
 345
 346 sub format_dates {
 347   $lxdebug->enter_sub();
 348
 349   my ($dateformat, $longformat, @indices) = @_;
 350
 351   $dateformat = $myconfig{"dateformat"} unless ($dateformat);
 352
 353   foreach my $idx (@indices) {
 354     if ($form->{TEMPLATE_ARRAYS} && (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
 355       for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
 356         $form->{TEMPLATE_ARRAYS}->{$idx}->[$i] =
 357           $locale->reformat_date(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i],
 358                                  $dateformat, $longformat);
 359       }
 360     }
 361
 362     next unless (defined($form->{$idx}));
 363
 364     if (!ref($form->{$idx})) {
 365       $form->{$idx} = $locale->reformat_date(\%myconfig, $form->{$idx},
 366                                              $dateformat, $longformat);
 367
 368     } elsif (ref($form->{$idx}) eq "ARRAY") {
 369       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 370         $form->{$idx}->[$i] =
 371           $locale->reformat_date(\%myconfig, $form->{$idx}->[$i],
 372                                  $dateformat, $longformat);
 373       }
 374     }
 375   }
 376
 377   $lxdebug->leave_sub();
 378 }
 379
 380 sub reformat_numbers {
 381   $lxdebug->enter_sub();
 382
 383   my ($numberformat, $places, @indices) = @_;
 384
 385   return $lxdebug->leave_sub()
 386     if (!$numberformat || ($numberformat eq $myconfig{"numberformat"}));
 387
 388   foreach my $idx (@indices) {
 389     if ($form->{TEMPLATE_ARRAYS} && (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
 390       for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
 391         $form->{TEMPLATE_ARRAYS}->{$idx}->[$i] = $form->parse_amount(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i]);
 392       }
 393     }
 394
 395     next unless (defined($form->{$idx}));
 396
 397     if (!ref($form->{$idx})) {
 398       $form->{$idx} = $form->parse_amount(\%myconfig, $form->{$idx});
 399
 400     } elsif (ref($form->{$idx}) eq "ARRAY") {
 401       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 402         $form->{$idx}->[$i] =
 403           $form->parse_amount(\%myconfig, $form->{$idx}->[$i]);
 404       }
 405     }
 406   }
 407
 408   my $saved_numberformat = $myconfig{"numberformat"};
 409   $myconfig{"numberformat"} = $numberformat;
 410
 411   foreach my $idx (@indices) {
 412     if ($form->{TEMPLATE_ARRAYS} && (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
 413       for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
 414         $form->{TEMPLATE_ARRAYS}->{$idx}->[$i] = $form->format_amount(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i], $places);
 415       }
 416     }
 417
 418     next unless (defined($form->{$idx}));
 419
 420     if (!ref($form->{$idx})) {
 421       $form->{$idx} = $form->format_amount(\%myconfig, $form->{$idx}, $places);
 422
 423     } elsif (ref($form->{$idx}) eq "ARRAY") {
 424       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 425         $form->{$idx}->[$i] =
 426           $form->format_amount(\%myconfig, $form->{$idx}->[$i], $places);
 427       }
 428     }
 429   }
 430
 431   $myconfig{"numberformat"} = $saved_numberformat;
 432
 433   $lxdebug->leave_sub();
 434 }
 435
 436 # -------------------------------------------------------------------------
 437
 438 sub show_history {
 439         $lxdebug->enter_sub();
 440         my $dbh = $form->dbconnect(\%myconfig);
 441         my ($sort, $sortby) = split(/\-\-/, $form->{order});
 442   $sort =~ s/.*\.(.*)/$1/;
 443
 444         $form->{title} = $locale->text("History");
 445     $form->header();
 446     print $form->parse_html_template( "common/show_history", {
 447         "DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
 448         "SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
 449       uc($sort) => 1,
 450       uc($sort)."BY" => $sortby
 451         } );
 452
 453         $dbh->disconnect();
 454         $lxdebug->leave_sub();
 455 }
 456
 457 # -------------------------------------------------------------------------
 458
 459 sub call_sub {
 460   $lxdebug->enter_sub();
 461
 462   my $name = shift;
 463
 464   if (!$name) {
 465     $form->error($locale->text("Trying to call a sub without a name"));
 466   }
 467
 468   $name =~ s/[^a-zA-Z0-9_]//g;
 469
 470   if (!defined(&{ $name })) {
 471     $form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
 472   }
 473
 474   &{ $name }(@_);
 475
 476   $lxdebug->leave_sub();
 477 }
 478
 479 # -------------------------------------------------------------------------
 480
 481 sub show_vc_details {
 482         $lxdebug->enter_sub();
 483
 484   $form->{vc} = $form->{vc} eq "customer" ? "customer" : "vendor";
 485   $form->isblank("vc_id",
 486                  $form->{vc} eq "customer" ?
 487                  $locale->text("No customer has been selected yet.") :
 488                  $locale->text("No vendor has been selected yet."));
 489
 490   Common->get_vc_details(\%myconfig, $form, $form->{vc}, $form->{vc_id});
 491
 492   $form->{title} = $form->{vc} eq "customer" ?
 493     $locale->text("Customer details") : $locale->text("Vendor details");
 494   $form->header();
 495   print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });
 496
 497         $lxdebug->leave_sub();
 498 }
 499
 500 # -------------------------------------------------------------------------
 501
 502 sub retrieve_partunits {
 503   $lxdebug->enter_sub();
 504
 505   my @part_ids = grep { $_ } map { $form->{"id_${_}"} } (1..$form->{rowcount});
 506
 507   if (@part_ids) {
 508     my %partunits = IO->retrieve_partunits('part_ids' => \@part_ids);
 509
 510     foreach my $i (1..$form->{rowcount}) {
 511       next unless ($form->{"id_${i}"});
 512       $form->{"partunit_${i}"} = $partunits{$form->{"id_${i}"}};
 513     }
 514   }
 515
 516   $lxdebug->leave_sub();
 517 }
 518
 519 # -------------------------------------------------------------------------
 520
 521 sub mark_as_paid_common {
 522   $lxdebug->enter_sub();
 523
 524   my ($myconfig, $db_name) = @_;
 525
 526   if($form->{mark_as_paid}) {
 527     my $dbh ||= $form->get_standard_dbh($myconfig);
 528     my $query = qq|UPDATE $db_name SET paid = amount WHERE id = ?|;
 529     do_query($form, $dbh, $query, $form->{id});
 530     $dbh->commit();
 531     $form->redirect($locale->text("Marked as paid"));
 532
 533   } else {
 534     my $referer = $ENV{HTTP_REFERER};
 535     if ($referer =~ /action/) {
 536       $referer =~ /^(.*)\?action\=[^\&]*(\&.*)$/;
 537       $script = $1;
 538       $callback = $2;
 539     } else {
 540       $script = $referer;
 541       $callback = "";
 542     }
 543     $referer = $script . "?action=mark_as_paid&mark_as_paid=1&id=$form->{id}" . $callback;
 544     $form->header();
 545     print qq|<body>|;
 546     print qq|<p><b>|.$locale->text('Mark as paid?').qq|</b></p>|;
 547     print qq|<input type="button" value="|.$locale->text('yes').qq|" onclick="document.location.href='|.$referer.qq|'">&nbsp;|;
 548     print qq|<input type="button" value="|.$locale->text('no').qq|" onclick="javascript:history.back();">|;
 549     print qq|</body></html>|;
 550   }
 551
 552   $lxdebug->leave_sub();
 553 }
 554
 555 sub cov_selection_internal {
 556   $lxdebug->enter_sub();
 557
 558   $order_by = "name";
 559   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 560   $order_dir = 1;
 561   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 562
 563   my $type = $form->{"is_vendor"} ? $locale->text("vendor") : $locale->text("customer");
 564
 565   $covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, $order_by, $order_dir, $form->{"is_vendor"}, $form->{"allow_both"});
 566   map({ $covs->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$covs}));
 567   if (0 == scalar(@{$covs})) {
 568     $form->show_generic_information(sprintf($locale->text("No %s was found matching the search parameters."), $type));
 569   } elsif (1 == scalar(@{$covs})) {
 570     $onload = "cov_selected('1')";
 571   }
 572
 573   my $callback = "$form->{script}?action=cov_selection_internal&";
 574   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 575       (qw(name input_name input_id is_vendor allow_both), grep({ /^[fl]_/ } keys %$form)));
 576
 577   my @header_sort = qw(name address contact);
 578   my %header_title = ( "name" => $locale->text("Name"),
 579                        "address" => $locale->text("Address"),
 580                        "contact" => $locale->text("Contact"),
 581                        );
 582
 583   my @header =
 584     map(+{ "column_title" => $header_title{$_},
 585            "column" => $_,
 586            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 587          },
 588         @header_sort);
 589
 590   foreach my $cov (@{ $covs }) {
 591     $cov->{address} = "$cov->{street}, $cov->{zipcode} $cov->{city}";
 592     $cov->{address} =~ s{^,}{}x;
 593     $cov->{address} =~ s{\ +}{\ }gx;
 594
 595     $cov->{contact} = join " ", map { $cov->{$_} } qw(cp_gender cp_title cp_givenname cp_name);
 596     $cov->{contact} =~ s{\ +}{\ }gx;
 597   }
 598
 599   $form->{"title"} = $form->{is_vendor} ? $locale->text("Select a vendor") : $locale->text("Select a customer");
 600   $form->header();
 601   print($form->parse_html_template("generic/cov_selection", { "HEADER" => \@header,
 602                                                               "COVS" => $covs,
 603                                                               "onload" => $onload }));
 604
 605   $lxdebug->leave_sub();
 606 }
 607
 608
 609 # Functions to call add routines beneath different reports
 610
 611 sub sales_invoice {
 612   $lxdebug->enter_sub();
 613
 614   $auth->assert('invoice_edit');
 615
 616
 617   $form->{script} = 'is.pl';
 618   $script         = "is";
 619   $form->{type} = "invoice";
 620   $locale = new Locale "$myconfig{countrycode}", "$script";
 621
 622   require "bin/mozilla/$form->{script}";
 623   &add;
 624
 625   $lxdebug->leave_sub();
 626 }
 627
 628 sub ar_transaction {
 629   $lxdebug->enter_sub();
 630
 631   $auth->assert('general_ledger');
 632
 633
 634   $form->{script} = 'ar.pl';
 635   $script         = "ar";
 636   $locale = new Locale "$myconfig{countrycode}", "$script";
 637
 638   require "bin/mozilla/$form->{script}";
 639   &add;
 640
 641   $lxdebug->leave_sub();
 642 }
 643
 644 sub vendor_invoice {
 645   $lxdebug->enter_sub();
 646
 647   $auth->assert('invoice_edit');
 648
 649
 650   $form->{script} = 'ir.pl';
 651   $script         = "ir";
 652   $form->{type} = "invoice";
 653   $locale = new Locale "$myconfig{countrycode}", "$script";
 654
 655   require "bin/mozilla/$form->{script}";
 656   &add;
 657
 658   $lxdebug->leave_sub();
 659 }
 660
 661 sub ap_transaction {
 662   $lxdebug->enter_sub();
 663
 664   $auth->assert('general_ledger');
 665
 666
 667   $form->{script} = 'ap.pl';
 668   $script         = "ap";
 669   $locale = new Locale "$myconfig{countrycode}", "$script";
 670
 671   require "bin/mozilla/$form->{script}";
 672   &add;
 673
 674   $lxdebug->leave_sub();
 675 }
 676
 677 sub gl_transaction {
 678   $lxdebug->enter_sub();
 679
 680   $auth->assert('general_ledger');
 681
 682
 683   $form->{script} = 'gl.pl';
 684   $script         = "gl";
 685   $locale = new Locale "$myconfig{countrycode}", "$script";
 686
 687   require "bin/mozilla/$form->{script}";
 688   &add;
 689
 690   $lxdebug->leave_sub();
 691 }
 692
 693 1;