From: Moritz Bunkus Date: Thu, 20 Sep 2007 09:17:18 +0000 (+0000) Subject: Eine Funktion zur Überprüfung der Existens von Funktionsparametern hinzugefügt, wenn... X-Git-Tag: release-2.6.0beta1~491 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=900dff5fd67e8ffd81beef6c2c83d155682c17fd;p=kivitendo-erp.git Eine Funktion zur Überprüfung der Existens von Funktionsparametern hinzugefügt, wenn diese als Hash übergeben werden. --- diff --git a/SL/Common.pm b/SL/Common.pm index 2aedb6f81..43b9aaab7 100644 --- a/SL/Common.pm +++ b/SL/Common.pm @@ -435,4 +435,15 @@ sub save_email_status { $main::lxdebug->leave_sub(); } +sub check_params { + my $params = shift; + + foreach my $key (@_) { + if (!defined $params->{$key}) { + my $subroutine = (caller(1))[3]; + $main::form->error($main::locale->text("Missing parameter #1 in call to sub #2.", $key, $subroutine)); + } + } +} + 1; diff --git a/locale/de/admin b/locale/de/admin index c8ef778a0..83639714b 100644 --- a/locale/de/admin +++ b/locale/de/admin @@ -47,6 +47,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/all b/locale/de/all index 3b30f3f89..20100dea1 100644 --- a/locale/de/all +++ b/locale/de/all @@ -715,6 +715,7 @@ aktualisieren wollen?', 'Missing Method!' => 'Fehlender Voranmeldungszeitraum', 'Missing Tax Authoritys Preferences' => 'Fehlende Angaben zum Finanzamt!', 'Missing amount' => 'Fehlbetrag', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'Mitarbeiter' => 'Mitarbeiter', 'Mobile1' => 'Mobile 1', 'Mobile2' => 'Mobile 2', diff --git a/locale/de/am b/locale/de/am index 032d2c1f6..876d6966d 100644 --- a/locale/de/am +++ b/locale/de/am @@ -145,6 +145,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'National Expenses' => 'Aufwand Inland', diff --git a/locale/de/amtemplates b/locale/de/amtemplates index 73ec7aae9..b982c7c60 100644 --- a/locale/de/amtemplates +++ b/locale/de/amtemplates @@ -34,6 +34,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/ap b/locale/de/ap index 30cec1ff1..4bdd7d7e6 100644 --- a/locale/de/ap +++ b/locale/de/ap @@ -97,6 +97,7 @@ $self->{texts} = { 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', 'Missing amount' => 'Fehlbetrag', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/ar b/locale/de/ar index 7ed580032..9ee14ac48 100644 --- a/locale/de/ar +++ b/locale/de/ar @@ -104,6 +104,7 @@ $self->{texts} = { 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', 'Missing amount' => 'Fehlbetrag', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/arap b/locale/de/arap index 9a449ca7a..883fbd566 100644 --- a/locale/de/arap +++ b/locale/de/arap @@ -32,6 +32,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/bp b/locale/de/bp index 0d5130498..5ebbba532 100644 --- a/locale/de/bp +++ b/locale/de/bp @@ -40,6 +40,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/ca b/locale/de/ca index d91e59c9c..4c38ff6bc 100644 --- a/locale/de/ca +++ b/locale/de/ca @@ -53,6 +53,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Nov' => 'Nov', 'November' => 'November', diff --git a/locale/de/common b/locale/de/common index 1dd9290ec..e26835094 100644 --- a/locale/de/common +++ b/locale/de/common @@ -28,6 +28,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/cp b/locale/de/cp index 9eb1e6641..44847263b 100644 --- a/locale/de/cp +++ b/locale/de/cp @@ -52,6 +52,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/ct b/locale/de/ct index b52a8d951..0c4125f4a 100644 --- a/locale/de/ct +++ b/locale/de/ct @@ -72,6 +72,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'Mobile1' => 'Mobile 1', 'Mobile2' => 'Mobile 2', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', diff --git a/locale/de/datev b/locale/de/datev index fc10f37b6..c22aa84f4 100644 --- a/locale/de/datev +++ b/locale/de/datev @@ -57,6 +57,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'Monat' => 'Monat', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', diff --git a/locale/de/dn b/locale/de/dn index ecf206f27..b91132790 100644 --- a/locale/de/dn +++ b/locale/de/dn @@ -104,6 +104,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/drafts b/locale/de/drafts index 6f2ebcf9d..5971f6fef 100644 --- a/locale/de/drafts +++ b/locale/de/drafts @@ -30,6 +30,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/gl b/locale/de/gl index 95148df59..629c185df 100644 --- a/locale/de/gl +++ b/locale/de/gl @@ -97,6 +97,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'Mitarbeiter' => 'Mitarbeiter', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'MwSt. inkl.' => 'MwSt. inkl.', diff --git a/locale/de/ic b/locale/de/ic index b947abda6..4e1d08e6d 100644 --- a/locale/de/ic +++ b/locale/de/ic @@ -128,6 +128,7 @@ aktualisieren wollen?', 'Microfiche' => 'Mikrofilm', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'Model' => 'Modell', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', diff --git a/locale/de/installationcheck b/locale/de/installationcheck index 74676c1e3..53753e262 100644 --- a/locale/de/installationcheck +++ b/locale/de/installationcheck @@ -7,6 +7,7 @@ $self->{texts} = { 'File' => 'Datei', 'Here\'s an example command line:' => 'Hier ist eine Kommandozeile, die als Beispiel dient:', 'Message' => 'Nachricht', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'Module home page' => 'Modul-Webseite', 'Module name' => 'Modulname', 'One or more Perl modules missing' => 'Ein oder mehr Perl-Module fehlen', diff --git a/locale/de/io b/locale/de/io index e54e34e57..9ae059122 100644 --- a/locale/de/io +++ b/locale/de/io @@ -77,6 +77,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/ir b/locale/de/ir index 708273928..b94aa8d08 100644 --- a/locale/de/ir +++ b/locale/de/ir @@ -112,6 +112,7 @@ $self->{texts} = { 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', 'Missing amount' => 'Fehlbetrag', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/is b/locale/de/is index 05919b52d..1dda438cf 100644 --- a/locale/de/is +++ b/locale/de/is @@ -130,6 +130,7 @@ $self->{texts} = { 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', 'Missing amount' => 'Fehlbetrag', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/licenses b/locale/de/licenses index 6907bb135..5ac0ad46b 100644 --- a/locale/de/licenses +++ b/locale/de/licenses @@ -43,6 +43,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/login b/locale/de/login index e4c6dd33d..369113ab1 100644 --- a/locale/de/login +++ b/locale/de/login @@ -35,6 +35,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/oe b/locale/de/oe index 614d444ea..0c2393c0f 100644 --- a/locale/de/oe +++ b/locale/de/oe @@ -132,6 +132,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No' => 'Nein', diff --git a/locale/de/pe b/locale/de/pe index 2ccc59708..9fefe7cd3 100644 --- a/locale/de/pe +++ b/locale/de/pe @@ -47,6 +47,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No' => 'Nein', diff --git a/locale/de/rc b/locale/de/rc index edef6de89..4ae050764 100644 --- a/locale/de/rc +++ b/locale/de/rc @@ -41,6 +41,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Customer was found matching the search parameters.' => 'Zu dem Suchbegriff wurde kein Endkunde gefunden', diff --git a/locale/de/reportgenerator b/locale/de/reportgenerator index 06bfdb983..362418689 100644 --- a/locale/de/reportgenerator +++ b/locale/de/reportgenerator @@ -25,6 +25,7 @@ $self->{texts} = { 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'PAYMENT POSTED' => 'Rechung gebucht', 'PDF export -- options' => 'PDF-Export -- Optionen', diff --git a/locale/de/rp b/locale/de/rp index 96517fd63..2face8047 100644 --- a/locale/de/rp +++ b/locale/de/rp @@ -92,6 +92,7 @@ $self->{texts} = { 'Method' => 'Verfahren', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'Monthly' => 'monatlich', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', diff --git a/locale/de/ustva b/locale/de/ustva index 386461f74..d3d2e243e 100644 --- a/locale/de/ustva +++ b/locale/de/ustva @@ -66,6 +66,7 @@ $self->{texts} = { 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', 'Missing Method!' => 'Fehlender Voranmeldungszeitraum', 'Missing Tax Authoritys Preferences' => 'Fehlende Angaben zum Finanzamt!', + 'Missing parameter #1 in call to sub #2.' => 'Fehlernder Parameter \'#1\' in Funktionsaufruf \'#2\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', 'Name' => 'Name', 'No Company Address given' => 'Keine Firmenadresse hinterlegt!',