From 2dacd2790bb5e0990ec5fe89a9d59370b018c25c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 22 Oct 2009 13:47:29 +0200
Subject: [PATCH] =?utf8?q?Da=20die=20.pl=20Files=20als=20Module=20geladen?=
 =?utf8?q?=20werden,=20m=C3=BCssen=20sie=20auf=20true=20zur=C3=BCckgeben.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 bin/mozilla/ar.pl                  |  6 ++----
 bin/mozilla/gl.pl                  |  6 ++----
 bin/mozilla/rp.pl                  |  5 +----
 doc/programmierstilrichtlinien.txt | 29 ++++++++++++++++++++++++-----
 4 files changed, 29 insertions(+), 17 deletions(-)

diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index 88c0aefc9..a8937506f 100644
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -48,10 +48,6 @@ require "bin/mozilla/reportgenerator.pl";
 use strict;
 #use warnings;
 
-1;
-
-# end of main
-
 # this is for our long dates
 # $locale->text('January')
 # $locale->text('February')
@@ -1753,3 +1749,5 @@ sub storno {
 
   $main::lxdebug->leave_sub();
 }
+
+1;
diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index db4196e4a..731f52576 100644
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -46,10 +46,6 @@ require "bin/mozilla/reportgenerator.pl";
 
 use strict;
 
-1;
-
-# end of main
-
 # this is for our long dates
 # $locale->text('January')
 # $locale->text('February')
@@ -1659,3 +1655,5 @@ sub storno {
 sub continue {
   call_sub($main::form->{nextsub});
 }
+
+1;
diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index 62abf6683..db1473ed5 100644
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -52,10 +52,6 @@ require "bin/mozilla/reportgenerator.pl";
 # should there be any missing vars, declare them globally
 use strict;
 
-1;
-
-# end of main
-
 # this is for our long dates
 # $locale->text('January')
 # $locale->text('February')
@@ -2772,3 +2768,4 @@ sub generate_bwa {
   $main::lxdebug->leave_sub();
 }
 
+1;
diff --git a/doc/programmierstilrichtlinien.txt b/doc/programmierstilrichtlinien.txt
index 25628920e..6ec670a48 100644
--- a/doc/programmierstilrichtlinien.txt
+++ b/doc/programmierstilrichtlinien.txt
@@ -13,15 +13,27 @@ Einige der Regeln lassen sich automatisch 
 
 --------------------------------------------------------------------------
 
-1. Es werden keine "echten" TAB-Zeichen sondern Leerzeichen verwendet.
+1. Es werden keine echten iTabs sondern Leerzeichen verwendet.
 
 2. Die Einrückung beträgt zwei Leerzeichen.
    Beispiel:
 
-   sub debug {
-     print(STDERR "Debugging.\n");
+   foreach my $row (@data) {
+     if ($flag) {
+       # do something with $row
+     }
+
+     if ($use_modules) {
+       $row->{modules} = MODULE->retrieve(
+         id   => $row->{id},
+         date => $use_now ? localtime() : $row->{time},
+       );
+     }
+
+     $report->add($row);
    }
 
+
 3. Öffnende geschweifte Klammern befinden sich auf der gleichen Zeile wie
    der letzte Befehl.
    Beispiele:
@@ -54,10 +66,11 @@ Einige der Regeln lassen sich automatisch 
 
    do {
      ...
-   } while ($a > 0);
+   } until ($a > 0);
 
 6. Parameter von Funktionsaufrufen müssen mit runden Klammern versehen
-   werden. Davon nicht betroffen sind interne perl Funktionen.
+   werden. Davon nicht betroffen sind interne perl Funktionen,
+   und grep ähnliche Operatoren.
 
    Beispiel:
 
@@ -172,3 +185,9 @@ Einige der Regeln lassen sich automatisch 
     Flagmaske, für die die Meldung angezeigt wird, wobei "0" immer angezeigt
     wird. Sollte Meldungen sollten nicht eingecheckt werden, und werden in den
     meisten Fällen auch vom Repository zurückgewiesen.
+
+14. Alle neuen Module müssen use strict verwenden.
+
+    $form, $auth, $locale, $lxdebug, %myconfig sowie der Inhalt der lx-erp.conf
+    werden derzeit aus dem main package importiert. Alle anderen Konstrukte
+    sollten lexikalisch lokal gehalten werden.
-- 
2.20.1