From fc55beb40ba99c736562d815bbe60f36883904bc Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= Date: Tue, 26 Feb 2013 14:31:57 +0100 Subject: [PATCH] kleine kosmetische Korrekturen: kein Semikolon nach Kontrollstrukturen. --- SL/CT.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/SL/CT.pm b/SL/CT.pm index f820acfcf..2ec7aec69 100644 --- a/SL/CT.pm +++ b/SL/CT.pm @@ -644,7 +644,7 @@ sub search { } else { # in not UNION case order by hash value, e.g. e.name $sortorder = $allowed_sort_columns{$form->{sort}} ? $allowed_sort_columns{$form->{sort}} : "ct.name"; - }; + } my $sortdir = !defined $form->{sortdir} ? 'ASC' : $form->{sortdir} ? 'ASC' : 'DESC'; if ($sortorder !~ /(business|id)/ && !$join_records) { @@ -713,7 +713,7 @@ sub search { qq| WHERE cv.id = a.vendor_id)|; } $form->{l_invnumber} = $form->{l_ordnumber} = $form->{l_quonumber} = ""; - }; + } if ($form->{obsolete} eq "Y") { $where .= qq| AND obsolete|; -- 2.20.1