X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fio.pl;h=6a57794fdead0979b39a9699c4e2c8666824aea4;hb=f65faf202a24a1f1316f45e3695d3d9390dc0793;hp=5f2324f15e1600f813e8751932f4c99ec22e6b4a;hpb=cc38697a3af2c270c662e9187aeb3f6ecb92d709;p=kivitendo-erp.git
diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 5f2324f15..6a57794fd 100644
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -624,7 +624,7 @@ sub select_item {
$column_data{partnumber} =
qq|
$ref->{partnumber} | |;
$column_data{description} =
- qq|{description}>$ref->{description} | |;
+ qq|$ref->{description} | |;
$column_data{sellprice} =
qq||
. $form->format_amount(\%myconfig, $ref->{sellprice}, 2, " ")
@@ -822,17 +822,10 @@ sub new_item {
. $locale->text('Service');
print $cgi->hidden("-name" => "previousform", "-value" => $previousform);
map({ print($cgi->hidden("-name" => $_, "-value" => $form->{$_})); }
- ("partnumber_$i", "description_$i", "rowcount", "taxaccounts", "vc", "path", "login", "password"));
-
-#
-#
-#
-#
-#
-#
-#
-#
-#
+ ("rowcount", "vc", "path", "login", "password"));
+ map({ print($cgi->hidden("-name" => $_, "-value" => $form->{"$__$i"})); }
+ ("partnumber", "description"));
+print $cgi->hidden("-name" => "taxaccount2", "-value" => $form->{taxaccounts});
print qq|
@@ -1394,7 +1387,7 @@ sub edit_e_mail {
|
|;
- &print_options;
+ print_options();
map { delete $form->{$_} }
qw(action email cc bcc subject message formname sendmode format header override);
@@ -1505,7 +1498,7 @@ sub print_options {
push @MEDIA, grep $_,
opthash("screen", $form->{OP}{screen}, $locale->text('Screen')),
- (scalar keys %{ $form->{printers} } && $latex_templates) ?
+ (scalar @{ $form->{printers} } && $latex_templates) ?
opthash("printer", $form->{OP}{printer}, $locale->text('Printer')) : undef,
($latex_templates) ?
opthash("queue", $form->{OP}{queue}, $locale->text('Queue')) : undef
@@ -1528,12 +1521,12 @@ sub print_options {
push @PRINTER_ID,
map { opthash($_->{id}, ($_->{id} eq $form->{printer_id} ? 'selected' : ''), $_->{printer_description}) } +{}, @{ $form->{printers} }
- if (ref $form->{printers} eq 'ARRAY');
+ if ((ref $form->{printers} eq 'ARRAY') && scalar @{ $form->{printers } });
@SELECTS = map { sname => lc $_, DATA => \@$_, show => scalar @$_ }, qw(FORMNAME LANGUAGE_ID FORMAT SENDMODE MEDIA PRINTER_ID);
%template_vars = (
- display_copies => scalar keys %{ $form->{printers} } && $latex_templates && $form->{media} ne 'email',
+ display_copies => scalar @{ $form->{printers} } && $latex_templates && $form->{media} ne 'email',
display_remove_draft => (!$form->{id} && $form->{draft_id}),
groupitems_checked => $form->{groupitems} ? "checked" : '',
remove_draft_checked => $form->{remove_draft} ? "checked" : ''
@@ -2113,7 +2106,7 @@ sub ship_to {
|
| . $locale->text('Contact') . qq| |
$form->{contact} |
- |
+ |
| . $locale->text('Phone') . qq| |
@@ -2134,7 +2127,7 @@ sub ship_to {
-| . $cgi->hidden("-name" => "nexsub", "-value" => $nextsub);
+| . $cgi->hidden("-name" => "nextsub", "-value" => $nextsub);
;