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 delivery_customer_selection {
  51   $lxdebug->enter_sub();
  52
  53   $order_by = "name";
  54   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
  55   $order_dir = 1;
  56   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
  57
  58   $delivery = Common->retrieve_delivery_customer(\%myconfig, $form, $order_by, $order_dir);
  59   map({ $delivery->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$delivery}));
  60   if (0 == scalar(@{$delivery})) {
  61     $form->show_generic_information($locale->text("No Customer was found matching the search parameters."));
  62   } elsif (1 == scalar(@{$delivery})) {
  63     $onload = "customer_selected('1')";
  64   }
  65
  66   my $callback = "$form->{script}?action=delivery_customer_selection&";
  67   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
  68       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
  69
  70   my @header_sort = qw(name customernumber address);
  71   my %header_title = ( "name" => $locale->text("Name"),
  72                        "customernumber" => $locale->text("Customer Number"),
  73                        "address" => $locale->text("Address"),
  74                      );
  75
  76   my @header =
  77     map(+{ "column_title" => $header_title{$_},
  78            "column" => $_,
  79            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
  80          },
  81         @header_sort);
  82
  83   $form->{"title"} = $locale->text("Select a Customer");
  84   $form->header();
  85   print $form->parse_html_template("generic/select_delivery_customer", { "HEADER"   => \@header,
  86                                                                          "DELIVERY" => $delivery,
  87                                                                          "onload"   => $onload });
  88
  89   $lxdebug->leave_sub();
  90 }
  91
  92 # -------------------------------------------------------------------------
  93
  94 sub vendor_selection {
  95   $lxdebug->enter_sub();
  96
  97   $order_by = "name";
  98   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
  99   $order_dir = 1;
 100   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 101
 102   $vendor = Common->retrieve_vendor(\%myconfig, $form, $order_by, $order_dir);
 103   map({ $vendor->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$vendor}));
 104   if (0 == scalar(@{$vendor})) {
 105     $form->show_generic_information($locale->text("No Vendor was found matching the search parameters."));
 106   } elsif (1 == scalar(@{$vendor})) {
 107     $onload = "vendor_selected('1')";
 108   }
 109
 110   my $callback = "$form->{script}?action=vendor_selection&";
 111   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 112       (qw(name input_name input_id), grep({ /^[fl]_/ } keys %$form)));
 113
 114   my @header_sort = qw(name customernumber address);
 115   my %header_title = ( "name" => $locale->text("Name"),
 116                        "customernumber" => $locale->text("Customer Number"),
 117                        "address" => $locale->text("Address"),
 118                      );
 119
 120   my @header =
 121     map(+{ "column_title" => $header_title{$_},
 122            "column" => $_,
 123            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 124          },
 125         @header_sort);
 126
 127   $form->{"title"} = $locale->text("Select a Customer");
 128   $form->header();
 129   print $form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,
 130                                                               "VENDOR" => $vendor,
 131                                                               "onload" => $onload });
 132
 133   $lxdebug->leave_sub();
 134 }
 135
 136 # -------------------------------------------------------------------------
 137
 138 sub calculate_qty {
 139   $lxdebug->enter_sub();
 140
 141   my @variable_sort = ();
 142   my %variable_list = ();
 143   my $unit_list = ();
 144   $form->{formel} =~ s/\r\n//g;
 145
 146   my ($variable_string, $formel) = split /###/,$form->{formel};
 147
 148
 149   split m/;/, $variable_string;
 150   foreach $item (@_) {
 151     my($name, $valueunit) = split /=/,$item;
 152     my($value, $unit) = split / /, $valueunit;
 153
 154     push(@variable_sort, $value);
 155     $variable_list{$value} = $name;
 156     $unit_list{$value} = $unit;
 157   }
 158
 159   my @header_sort = qw(variable value unit);
 160   my %header_title = ( "variable" => $locale->text("Variable"),
 161                        "value" => $locale->text("Value"),
 162                        "unit" => $locale->text("Unit"),
 163                      );
 164
 165   my @variable = map(+{ "description" => $variable_list{$_},
 166                         "name" => $_,
 167                         "unit" => $unit_list{$_} }, @variable_sort);
 168
 169   my @header =
 170     map(+{ "column_title" => $header_title{$_},
 171            "column" => $_,
 172          },
 173         @header_sort);
 174   $form->{formel} = $formel;
 175   $form->{"title"} = $locale->text("Please enter values");
 176   $form->header();
 177   print($form->parse_html_template("generic/calculate_qty", { "HEADER"    => \@header,
 178                                                               "VARIABLES" => \@variable,
 179                                                               "onload"    => $onload }));
 180
 181   $lxdebug->leave_sub();
 182 }
 183
 184 # -------------------------------------------------------------------------
 185
 186 sub set_longdescription {
 187   $lxdebug->enter_sub();
 188
 189   $form->{title} = $locale->text("Enter longdescription");
 190   $form->header();
 191   print $form->parse_html_template("generic/set_longdescription");
 192
 193   $lxdebug->leave_sub();
 194 }
 195
 196 # -------------------------------------------------------------------------
 197
 198 sub H {
 199   return $form->quote_html($_[0]);
 200 }
 201
 202 sub Q {
 203   return $form->quote($_[0]);
 204 }
 205
 206 sub E {
 207   return $form->escape($_[0]);
 208 }
 209
 210 sub NTI {
 211   my ($element) = @_;
 212
 213   $element =~ s/tabindex\s*=\s*"\d+"//;
 214   return $element;
 215 }
 216
 217 sub format_dates {
 218   $lxdebug->enter_sub();
 219
 220   my ($dateformat, $longformat, @indices) = @_;
 221
 222   $dateformat = $myconfig{"dateformat"} unless ($dateformat);
 223
 224   foreach my $idx (@indices) {
 225     next unless (defined($form->{$idx}));
 226
 227     if (!ref($form->{$idx})) {
 228       $form->{$idx} = $locale->reformat_date(\%myconfig, $form->{$idx},
 229                                              $dateformat, $longformat);
 230
 231     } elsif (ref($form->{$idx}) eq "ARRAY") {
 232       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 233         $form->{$idx}->[$i] =
 234           $locale->reformat_date(\%myconfig, $form->{$idx}->[$i],
 235                                  $dateformat, $longformat);
 236       }
 237     }
 238   }
 239
 240   $lxdebug->leave_sub();
 241 }
 242
 243 sub reformat_numbers {
 244   $lxdebug->enter_sub();
 245
 246   my ($numberformat, $places, @indices) = @_;
 247
 248   return $lxdebug->leave_sub()
 249     if (!$numberformat || ($numberformat eq $myconfig{"numberformat"}));
 250
 251   foreach my $idx (@indices) {
 252     next unless (defined($form->{$idx}));
 253
 254     if (!ref($form->{$idx})) {
 255       $form->{$idx} = $form->parse_amount(\%myconfig, $form->{$idx});
 256
 257     } elsif (ref($form->{$idx}) eq "ARRAY") {
 258       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 259         $form->{$idx}->[$i] =
 260           $form->parse_amount(\%myconfig, $form->{$idx}->[$i]);
 261       }
 262     }
 263   }
 264
 265   my $saved_numberformat = $myconfig{"numberformat"};
 266   $myconfig{"numberformat"} = $numberformat;
 267
 268   foreach my $idx (@indices) {
 269     next unless (defined($form->{$idx}));
 270
 271     if (!ref($form->{$idx})) {
 272       $form->{$idx} = $form->format_amount(\%myconfig, $form->{$idx}, $places);
 273
 274     } elsif (ref($form->{$idx}) eq "ARRAY") {
 275       for (my $i = 0; $i < scalar(@{$form->{$idx}}); $i++) {
 276         $form->{$idx}->[$i] =
 277           $form->format_amount(\%myconfig, $form->{$idx}->[$i], $places);
 278       }
 279     }
 280   }
 281
 282   $myconfig{"numberformat"} = $saved_numberformat;
 283
 284   $lxdebug->leave_sub();
 285 }
 286
 287 # -------------------------------------------------------------------------
 288
 289 sub show_history {
 290         $lxdebug->enter_sub();
 291         my $dbh = $form->dbconnect(\%myconfig);
 292         my ($sort, $sortby) = split(/\-\-/, $form->{order});
 293   $sort =~ s/.*\.(.*)/$1/;
 294
 295         $form->{title} = $locale->text("History");
 296     $form->header();
 297     print $form->parse_html_template( "common/show_history", {
 298         "DATEN" => $form->get_history($dbh,$form->{input_name},"",$form->{order}),
 299         "SUCCESS" => ($form->get_history($dbh,$form->{input_name}) ne "0"),
 300       uc($sort) => 1,
 301       uc($sort)."BY" => $sortby
 302         } );
 303
 304         $dbh->disconnect();
 305         $lxdebug->leave_sub();
 306 }
 307
 308 # -------------------------------------------------------------------------
 309
 310 sub call_sub {
 311   $lxdebug->enter_sub();
 312
 313   my $name = shift;
 314
 315   if (!$name) {
 316     $form->error($locale->text("Trying to call a sub without a name"));
 317   }
 318
 319   $name =~ s/[^a-zA-Z0-9_]//g;
 320
 321   if (!defined(&{ $name })) {
 322     $form->error(sprintf($locale->text("Attempt to call an undefined sub named '%s'"), $name));
 323   }
 324
 325   &{ $name }(@_);
 326
 327   $lxdebug->leave_sub();
 328 }
 329
 330 # -------------------------------------------------------------------------
 331
 332 sub show_vc_details {
 333         $lxdebug->enter_sub();
 334
 335   $form->{vc} = $form->{vc} eq "customer" ? "customer" : "vendor";
 336   $form->isblank("vc_id",
 337                  $form->{vc} eq "customer" ?
 338                  $locale->text("No customer has been selected yet.") :
 339                  $locale->text("No vendor has been selected yet."));
 340
 341   Common->get_vc_details(\%myconfig, $form, $form->{vc}, $form->{vc_id});
 342
 343   $form->{title} = $form->{vc} eq "customer" ?
 344     $locale->text("Customer details") : $locale->text("Vendor details");
 345   $form->header();
 346   print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });
 347
 348         $lxdebug->leave_sub();
 349 }
 350
 351 # -------------------------------------------------------------------------
 352
 353 sub retrieve_partunits {
 354   $lxdebug->enter_sub();
 355
 356   my @part_ids = grep { $_ } map { $form->{"id_${_}"} } (1..$form->{rowcount});
 357
 358   if (@part_ids) {
 359     my %partunits = IO->retrieve_partunits('part_ids' => \@part_ids);
 360
 361     foreach my $i (1..$form->{rowcount}) {
 362       next unless ($form->{"id_${i}"});
 363       $form->{"partunit_${i}"} = $partunits{$form->{"id_${i}"}};
 364     }
 365   }
 366
 367   $lxdebug->leave_sub();
 368 }
 369
 370 # -------------------------------------------------------------------------
 371
 372 sub mark_as_paid_common {
 373   $lxdebug->enter_sub();
 374
 375   my ($myconfig, $db_name) = @_;
 376
 377   if($form->{mark_as_paid}) {
 378     my $dbh ||= $form->get_standard_dbh($myconfig);
 379     my $query = qq|UPDATE $db_name SET paid = amount WHERE id = ?|;
 380     do_query($form, $dbh, $query, $form->{id});
 381     $dbh->commit();
 382     $form->redirect($locale->text("Marked as paid"));
 383
 384   } else {
 385     my $referer = $ENV{HTTP_REFERER};
 386     $referer =~ s/^(.*)action\=.*\&(.*)$/$1action\=mark_as_paid\&mark_as_paid\=1\&id\=$form->{id}\&$2/;
 387     $form->header();
 388     print qq|<body>|;
 389     print qq|<p><b>|.$locale->text('Mark as paid?').qq|</b></p>|;
 390     print qq|<input type="button" value="|.$locale->text('yes').qq|" onclick="document.location.href='|.$referer.qq|'">&nbsp;|;
 391     print qq|<input type="button" value="|.$locale->text('no').qq|" onclick="javascript:history.back();">|;
 392     print qq|</body></html>|;
 393   }
 394
 395   $lxdebug->leave_sub();
 396 }
 397
 398 sub cov_selection_internal {
 399   $lxdebug->enter_sub();
 400
 401   $order_by = "name";
 402   $order_by = $form->{"order_by"} if (defined($form->{"order_by"}));
 403   $order_dir = 1;
 404   $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"}));
 405
 406   my $type = $form->{"is_vendor"} ? $locale->text("vendor") : $locale->text("customer");
 407
 408   $covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, $order_by, $order_dir, $form->{"is_vendor"}, $form->{"allow_both"});
 409   map({ $covs->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$covs}));
 410   if (0 == scalar(@{$covs})) {
 411     $form->show_generic_information(sprintf($locale->text("No %s was found matching the search parameters."), $type));
 412   } elsif (1 == scalar(@{$covs})) {
 413     $onload = "cov_selected('1')";
 414   }
 415
 416   my $callback = "$form->{script}?action=cov_selection_internal&";
 417   map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }
 418       (qw(login path password name input_name input_id is_vendor allow_both), grep({ /^[fl]_/ } keys %$form)));
 419
 420   my @header_sort = qw(name address contact);
 421   my %header_title = ( "name" => $locale->text("Name"),
 422                        "address" => $locale->text("Address"),
 423                        "contact" => $locale->text("Contact"),
 424                        );
 425
 426   my @header =
 427     map(+{ "column_title" => $header_title{$_},
 428            "column" => $_,
 429            "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir),
 430          },
 431         @header_sort);
 432
 433   foreach my $cov (@{ $covs }) {
 434     $cov->{address} = "$cov->{street}, $cov->{zipcode} $cov->{city}";
 435     $cov->{address} =~ s{^,}{}x;
 436     $cov->{address} =~ s{\ +}{\ }gx;
 437
 438     $cov->{contact} = join " ", map { $cov->{$_} } qw(cp_greeting cp_title cp_givenname cp_name);
 439     $cov->{contact} =~ s{\ +}{\ }gx;
 440   }
 441
 442   $form->{"title"} = $form->{is_vendor} ? $locale->text("Select a vendor") : $locale->text("Select a customer");
 443   $form->header();
 444   print($form->parse_html_template("generic/cov_selection", { "HEADER" => \@header,
 445                                                               "COVS" => $covs,
 446                                                               "onload" => $onload }));
 447
 448   $lxdebug->leave_sub();
 449 }
 450
 451 1;