X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fcp.pl;h=51624331ca34e9127607be5aa77908157e41b5f2;hb=19db5b9099df8a70daac82388e45c0aee17c9266;hp=94e0748dcb75278889dd8f8f30b8f5b1bf35cb08;hpb=2165adf654de309f8308eb7ab5363d1337c2754e;p=kivitendo-erp.git diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl index 94e0748dc..51624331c 100644 --- a/bin/mozilla/cp.pl +++ b/bin/mozilla/cp.pl @@ -32,7 +32,6 @@ #====================================================================== use SL::CP; -use SL::OP; use SL::IS; use SL::IR; @@ -74,14 +73,14 @@ sub payment { } # departments - if (@{ $form->{all_departments} }) { + if (@{ $form->{all_departments} || [] }) { $form->{selectdepartment} = "\n"; $form->{department} = "$form->{department}--$form->{department_id}"; map { $form->{selectdepartment} .= "$_->{description}--$_->{id}\n" - } (@{ $form->{all_departments} }); + } (@{ $form->{all_departments} || [] }); } CP->paymentaccounts(\%myconfig, \%$form); @@ -145,17 +144,17 @@ sub form_header { $form->format_amount(\%myconfig, $form->{exchangerate}); if ($form->{forex}) { $exchangerate = qq| - - | . $locale->text('Exchangerate') . qq| - {exchangerate}>$form->{exchangerate} - + + | . $locale->text('Exchangerate') . qq| + {exchangerate}>$form->{exchangerate} + |; } else { $exchangerate = qq| - - | . $locale->text('Exchangerate') . qq| - {exchangerate}> - + + | . $locale->text('Exchangerate') . qq| + {exchangerate}> + |; } } @@ -246,9 +245,9 @@ sub form_header { $vclabel $vc - {vc}"}"> - {"$form->{vc}_id"}> - {vc}"}"> + {vc}"}) . qq|"> + {vc}_id"}) . qq|"> + {vc}"}) . qq|"> | . $locale->text('Address') . qq| @@ -340,9 +339,9 @@ sub list_invoices { - - $invoice - + + $invoice + |; $column_data{invnumber} = @@ -405,7 +404,7 @@ sub list_invoices { $j++; $j %= 2; print qq| - + |; map { print "$column_data{$_}\n" } @column_index; print qq| @@ -466,7 +465,7 @@ sub form_footer { $format .= qq| {DF}{postscript}>| . $locale->text('Postscript') . qq| - {DF}{pdf}>| . $locale->text('PDF'); + {DF}{pdf}>| . $locale->text('PDF'); } print qq|