X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fct.pl;h=e20efd2b9b4c90114584540179d1dcf39dfc091d;hb=de763d70b4b2e0501565e579fb4726e033594589;hp=95c6e3315ba1843ca2a5cdf8be286bc859064498;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git
diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl
index 95c6e3315..e20efd2b9 100644
--- a/bin/mozilla/ct.pl
+++ b/bin/mozilla/ct.pl
@@ -40,42 +40,42 @@
use SL::CT;
1;
-# end of main
-
+# end of main
sub add {
$lxdebug->enter_sub();
-
$form->{title} = "Add";
- $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
+ $form->{callback} =
+ "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}"
+ unless $form->{callback};
CT->taxaccounts(\%myconfig, \%$form);
-
+
&form_header;
&form_footer;
-
+
$lxdebug->leave_sub();
}
-
sub search {
$lxdebug->enter_sub();
-
$label = ucfirst $form->{db};
- $form->{title} = $locale->text($label."s");
+ $form->{title} = $locale->text($label . "s");
if ($form->{db} eq 'vendor') {
$gifi = qq|
-
|.$locale->text('GIFI').qq| |
+ |
+ . $locale->text('GIFI')
+ . qq| |
|;
}
-
+
$form->header;
-
+
print qq|
@@ -92,52 +92,83 @@ sub search {
- |.$locale->text($label . ' Number').qq| |
+ | . $locale->text($label . ' Number') . qq| |
{db}number size=35> |
- |.$locale->text('Company Name').qq| |
+ | . $locale->text('Company Name') . qq| |
|
- |.$locale->text('Contact').qq| |
+ | . $locale->text('Contact') . qq| |
|
- |.$locale->text('E-mail').qq| |
+ | . $locale->text('E-mail') . qq| |
|
|
- |.$locale->text('All').qq|
- |.$locale->text('Orphaned').qq| |
+ |
+ . $locale->text('All') . qq|
+ |
+ . $locale->text('Orphaned')
+ . qq| |
- |.$locale->text('Include in Report').qq| |
+ | . $locale->text('Include in Report') . qq| |
|
@@ -157,7 +188,8 @@ sub search {
{password}>
-
+
@@ -166,16 +198,24 @@ sub search {
$lxdebug->leave_sub();
}
-
sub list_names {
$lxdebug->enter_sub();
CT->search(\%myconfig, \%$form);
-
- $callback = "$form->{script}?action=list_names&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}";
+
+ $callback =
+ "$form->{script}?action=list_names&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}";
$href = $callback;
-
- @columns = $form->sort_columns(id, name, "$form->{db}number", address, contact, phone, fax, email, taxnumber, gifi_accno, sic_code, business, invnumber, ordnumber, quonumber);
+
+ @columns =
+ $form->sort_columns(id, name,
+ "$form->{db}number", address,
+ contact, phone,
+ fax, email,
+ taxnumber, gifi_accno,
+ sic_code, business,
+ invnumber, ordnumber,
+ quonumber);
foreach $item (@columns) {
if ($form->{"l_$item"} eq "Y") {
@@ -183,11 +223,14 @@ sub list_names {
# add column to href and callback
$callback .= "&l_$item=Y";
- $href .= "&l_$item=Y";
+ $href .= "&l_$item=Y";
}
}
- $number = ($form->{db} eq "customer") ? $locale->text('Customer Number') : $locale->text('Vendor Number') ;
-
+ $number =
+ ($form->{db} eq "customer")
+ ? $locale->text('Customer Number')
+ : $locale->text('Vendor Number');
+
if ($form->{status} eq 'all') {
$option = $locale->text('All');
}
@@ -195,50 +238,96 @@ sub list_names {
$option .= $locale->text('Orphaned');
}
if ($form->{name}) {
- $callback .= "&name=".$form->escape($form->{name},1);
- $href .= "&name=".$form->escape($form->{name});
- $option .= "\n ".$locale->text('Name')." : $form->{name}";
+ $callback .= "&name=" . $form->escape($form->{name}, 1);
+ $href .= "&name=" . $form->escape($form->{name});
+ $option .= "\n " . $locale->text('Name') . " : $form->{name}";
}
if ($form->{contact}) {
- $callback .= "&contact=".$form->escape($form->{contact},1);
- $href .= "&contact=".$form->escape($form->{contact});
- $option .= "\n ".$locale->text('Contact')." : $form->{contact}";
+ $callback .= "&contact=" . $form->escape($form->{contact}, 1);
+ $href .= "&contact=" . $form->escape($form->{contact});
+ $option .= "\n " . $locale->text('Contact') . " : $form->{contact}";
}
if ($form->{"$form->{db}number"}) {
- $callback .= qq|&$form->{db}number=|.$form->escape($form->{"$form->{db}number"},1);
- $href .= "&$form->{db}number=".$form->escape($form->{"$form->{db}number"});
- $option .= "\n ".$locale->text('Number').qq| : $form->{"$form->{db}number"}|;
+ $callback .=
+ qq|&$form->{db}number=| . $form->escape($form->{"$form->{db}number"}, 1);
+ $href .=
+ "&$form->{db}number=" . $form->escape($form->{"$form->{db}number"});
+ $option .=
+ "\n " . $locale->text('Number') . qq| : $form->{"$form->{db}number"}|;
}
if ($form->{email}) {
- $callback .= "&email=".$form->escape($form->{email},1);
- $href .= "&email=".$form->escape($form->{email});
- $option .= "\n ".$locale->text('E-mail')." : $form->{email}";
+ $callback .= "&email=" . $form->escape($form->{email}, 1);
+ $href .= "&email=" . $form->escape($form->{email});
+ $option .= "\n " . $locale->text('E-mail') . " : $form->{email}";
}
$form->{callback} = "$callback&sort=$form->{sort}";
$callback = $form->escape($form->{callback});
-
- $column_header{id} = qq||.$locale->text('ID').qq| | |;
- $column_header{"$form->{db}number"} = qq|{db}number>$number | |;
- $column_header{name} = qq||.$locale->text('Name').qq| | |;
- $column_header{address} = qq||.$locale->text('Address').qq| | |;
- $column_header{contact} = qq||.$locale->text('Contact').qq| | |;
- $column_header{phone} = qq||.$locale->text('Phone').qq| | |;
- $column_header{fax} = qq||.$locale->text('Fax').qq| | |;
- $column_header{email} = qq||.$locale->text('E-mail').qq| | |;
- $column_header{cc} = qq||.$locale->text('Cc').qq| | |;
-
- $column_header{taxnumber} = qq||.$locale->text('Tax Number').qq| | |;
- $column_header{gifi_accno} = qq||.$locale->text('GIFI').qq| | |;
- $column_header{sic_code} = qq||.$locale->text('SIC').qq| | |;
- $column_header{business} = qq||.$locale->text('Type of Business').qq| | |;
-
- $column_header{invnumber} = qq||.$locale->text('Invoice').qq| | |;
- $column_header{ordnumber} = qq||.$locale->text('Order').qq| | |;
- $column_header{quonumber} = qq||.$locale->text('Quotation').qq| | |;
-
-
- $label = ucfirst $form->{db}."s";
+
+ $column_header{id} =
+ qq|| . $locale->text('ID') . qq| | |;
+ $column_header{"$form->{db}number"} =
+ qq|{db}number>$number | |;
+ $column_header{name} =
+ qq||
+ . $locale->text('Name')
+ . qq| | |;
+ $column_header{address} =
+ qq||
+ . $locale->text('Address')
+ . qq| | |;
+ $column_header{contact} =
+ qq||
+ . $locale->text('Contact')
+ . qq| | |;
+ $column_header{phone} =
+ qq||
+ . $locale->text('Phone')
+ . qq| | |;
+ $column_header{fax} =
+ qq||
+ . $locale->text('Fax')
+ . qq| | |;
+ $column_header{email} =
+ qq||
+ . $locale->text('E-mail')
+ . qq| | |;
+ $column_header{cc} =
+ qq||
+ . $locale->text('Cc')
+ . qq| | |;
+
+ $column_header{taxnumber} =
+ qq||
+ . $locale->text('Tax Number')
+ . qq| | |;
+ $column_header{gifi_accno} =
+ qq||
+ . $locale->text('GIFI')
+ . qq| | |;
+ $column_header{sic_code} =
+ qq||
+ . $locale->text('SIC')
+ . qq| | |;
+ $column_header{business} =
+ qq||
+ . $locale->text('Type of Business')
+ . qq| | |;
+
+ $column_header{invnumber} =
+ qq||
+ . $locale->text('Invoice')
+ . qq| | |;
+ $column_header{ordnumber} =
+ qq||
+ . $locale->text('Order')
+ . qq| | |;
+ $column_header{quonumber} =
+ qq||
+ . $locale->text('Quotation')
+ . qq| | |;
+
+ $label = ucfirst $form->{db} . "s";
$form->{title} = $locale->text($label);
$form->header;
@@ -261,14 +350,15 @@ sub list_names {
|;
map { print "$column_header{$_}\n" } @column_index;
-
+
print qq|
|;
$ordertype = ($form->{db} eq 'customer') ? 'sales_order' : 'purchase_order';
- $quotationtype = ($form->{db} eq 'customer') ? 'sales_quotation' : 'request_quotation';
-
+ $quotationtype =
+ ($form->{db} eq 'customer') ? 'sales_quotation' : 'request_quotation';
+
foreach $ref (@{ $form->{CT} }) {
if ($ref->{id} eq $sameid) {
@@ -276,35 +366,40 @@ sub list_names {
} else {
map { $column_data{$_} = "$ref->{$_} | " } @column_index;
- map { $column_data{$_} = "$ref->{$_} | " } (invnumber, ordnumber, quonumber);
-
- $column_data{name} = "{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}&callback=$callback>$ref->{name} | ";
+ map { $column_data{$_} = "$ref->{$_} | " }
+ (invnumber, ordnumber, quonumber);
+
+ $column_data{name} =
+ "{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}&callback=$callback>$ref->{name} | ";
if ($ref->{email}) {
- $email = $ref->{email};
- $email =~ s/\</;
- $email =~ s/>/\>/;
-
- $column_data{email} = qq|$email | |;
+ $email = $ref->{email};
+ $email =~ s/\</;
+ $email =~ s/>/\>/;
+
+ $column_data{email} =
+ qq|$email | |;
}
-
+
}
-
-
+
if ($ref->{formtype} eq 'invoice') {
- $column_data{invnumber} = "{module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber} | ";
+ $column_data{invnumber} =
+ "{module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber} | ";
}
-
+
if ($ref->{formtype} eq 'order') {
- $column_data{ordnumber} = "{module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber} | ";
+ $column_data{ordnumber} =
+ "{module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber} | ";
}
if ($ref->{formtype} eq 'quotation') {
- $column_data{quonumber} = "{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber} | ";
+ $column_data{quonumber} =
+ "{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber} | ";
}
-
-
- $i++; $i %= 2;
+
+ $i++;
+ $i %= 2;
print "
";
@@ -314,7 +409,7 @@ sub list_names {
print qq|
|;
-
+
$sameid = $ref->{id};
}
@@ -338,7 +433,8 @@ sub list_names {
{login}>
{password}>
-|;
+|;
if ($form->{menubar}) {
require "$form->{path}/menu.pl";
@@ -351,17 +447,15 @@ sub list_names {
|