projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Datei wurde nach UTF-8 umcodiert
[kivitendo-erp.git]
/
SL
/
Form.pm
diff --git
a/SL/Form.pm
b/SL/Form.pm
index
8d17720
..
ca8d4fc
100644
(file)
--- a/
SL/Form.pm
+++ b/
SL/Form.pm
@@
-270,7
+270,7
@@
sub new {
$self->{action} = lc $self->{action};
$self->{action} =~ s/( |-|,|\#)/_/g;
$self->{action} = lc $self->{action};
$self->{action} =~ s/( |-|,|\#)/_/g;
- $self->{version} = "2.6.
0
";
+ $self->{version} = "2.6.
1 Beta 1
";
$main::lxdebug->leave_sub();
$main::lxdebug->leave_sub();
@@
-720,7
+720,7
@@
sub _prepare_html_template {
my ($self, $file, $additional_params) = @_;
my $language;
my ($self, $file, $additional_params) = @_;
my $language;
- if (!
defined(%main::myconfig) || !defined($main::myconfig{"countrycode"})
) {
+ if (!
%::myconfig || !$::myconfig{"countrycode"}
) {
$language = $main::language;
} else {
$language = $main::myconfig{"countrycode"};
$language = $main::language;
} else {
$language = $main::myconfig{"countrycode"};
@@
-772,6
+772,7
@@
sub _prepare_html_template {
$additional_params->{"conf_latex_templates"} = $main::latex;
$additional_params->{"conf_opendocument_templates"} = $main::opendocument_templates;
$additional_params->{"conf_vertreter"} = $main::vertreter;
$additional_params->{"conf_latex_templates"} = $main::latex;
$additional_params->{"conf_opendocument_templates"} = $main::opendocument_templates;
$additional_params->{"conf_vertreter"} = $main::vertreter;
+ $additional_params->{"conf_show_best_before"} = $main::show_best_before;
if (%main::debug_options) {
map { $additional_params->{'DEBUG_' . uc($_)} = $main::debug_options{$_} } keys %main::debug_options;
if (%main::debug_options) {
map { $additional_params->{'DEBUG_' . uc($_)} = $main::debug_options{$_} } keys %main::debug_options;
@@
-1738,7
+1739,7
@@
sub check_exchangerate {
return $exchangerate;
}
return $exchangerate;
}
-sub get_
default_currency
{
+sub get_
all_currencies
{
$main::lxdebug->enter_sub();
my ($self, $myconfig) = @_;
$main::lxdebug->enter_sub();
my ($self, $myconfig) = @_;
@@
-1746,14
+1747,24
@@
sub get_default_currency {
my $query = qq|SELECT curr FROM defaults|;
my $query = qq|SELECT curr FROM defaults|;
- my ($curr)
= selectrow_query($self, $dbh, $query);
- my
($defaultcurrency) =
split m/:/, $curr;
+ my ($curr) = selectrow_query($self, $dbh, $query);
+ my
@currencies = grep { $_ } map { s/\s//g; $_ }
split m/:/, $curr;
$main::lxdebug->leave_sub();
$main::lxdebug->leave_sub();
- return
$defaultcurrency
;
+ return
@currencies
;
}
}
+sub get_default_currency {
+ $main::lxdebug->enter_sub();
+
+ my ($self, $myconfig) = @_;
+ my @currencies = $self->get_all_currencies($myconfig);
+
+ $main::lxdebug->leave_sub();
+
+ return $currencies[0];
+}
sub set_payment_options {
$main::lxdebug->enter_sub();
sub set_payment_options {
$main::lxdebug->enter_sub();
@@
-2576,7
+2587,7
@@
sub all_vc {
my ($count) = selectrow_query($self, $dbh, $query);
# build selection list
my ($count) = selectrow_query($self, $dbh, $query);
# build selection list
- if ($count < $myconfig->{vclimit}) {
+ if ($count <
=
$myconfig->{vclimit}) {
$query = qq|SELECT id, name, salesman_id
FROM $table WHERE NOT obsolete
ORDER BY name|;
$query = qq|SELECT id, name, salesman_id
FROM $table WHERE NOT obsolete
ORDER BY name|;