X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fir.pl;h=caa8a0e6d511c2dbd70931afccb2d7adbbb583b9;hb=32ebe005ef3be63e188a653c7a831a39eb0f8e63;hp=a684593e7f0871e68e9a2c26353552c3bd699a95;hpb=ee072e4f077213bf6f8792ca8f0a1afebbb6282f;p=kivitendo-erp.git
diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index a684593e7..caa8a0e6d 100644
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -43,7 +43,7 @@ require "$form->{path}/arap.pl";
sub add {
$lxdebug->enter_sub();
-
+print STDERR "ir.pl-add\n";
$form->{title} = $locale->text('Add Vendor Invoice');
&invoice_links;
@@ -67,7 +67,7 @@ sub edit {
sub invoice_links {
$lxdebug->enter_sub();
-
+print STDERR "ir.pl-invoice_links\n";
# create links
$form->{webdav} = $webdav;
@@ -160,7 +160,7 @@ sub invoice_links {
sub prepare_invoice {
$lxdebug->enter_sub();
-
+print STDERR "ir.pl-prepare_invoice\n";
if ($form->{id}) {
map { $form->{$_} =~ s/\"/"/g } qw(invnumber ordnumber quonumber);
@@ -188,7 +188,7 @@ sub prepare_invoice {
sub form_header {
$lxdebug->enter_sub();
-
+print STDERR "ir.pl-form_header\n";
# set option selected
foreach $item (qw(AP vendor currency department contact)) {
$form->{"select$item"} =~ s/ selected//;
@@ -304,6 +304,7 @@ sub form_header {
{type}>
+{level}>
{creditlimit}>
{creditremaining}>
@@ -416,7 +417,7 @@ $jsscript
sub form_footer {
$lxdebug->enter_sub();
-
+print STDERR "ir.pl-form_footer\n";
$form->{invtotal} = $form->{invsubtotal};
if (($rows = $form->numtextrows($form->{notes}, 25, 8)) < 2) {