Da die .pl Files als Module geladen werden, müssen sie auf true zurückgeben.

diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl
index 88c0aefc9d394d8097180e0b345dee1be4f7b140..a8937506f6356b0626e3ad20e142f39ee57b9aff 100644 (file)
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -48,10 +48,6 @@ require "bin/mozilla/reportgenerator.pl";
 use strict;
 #use warnings;
 
 use strict;
 #use warnings;
 

-1;
-
-# end of main
-

 # this is for our long dates
 # $locale->text('January')
 # $locale->text('February')
 # this is for our long dates
 # $locale->text('January')
 # $locale->text('February')


@@ -1753,3 +1749,5 @@ sub storno {
 
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }

+
+1;

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index db4196e4ae985879b51d6a6e12cc623f50ae088a..731f525767357c38d45bc2bfd75dec6041c71dd6 100644 (file)
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -46,10 +46,6 @@ require "bin/mozilla/reportgenerator.pl";
 
 use strict;
 
 
 use strict;
 

-1;
-
-# end of main
-

 # this is for our long dates
 # $locale->text('January')
 # $locale->text('February')
 # 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});
 }
 sub continue {
   call_sub($main::form->{nextsub});
 }

+
+1;

diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index 62abf6683c450084475a97b519005aea3ca15f1e..db1473ed58b20a614f40e641a0804a540392848d 100644 (file)
--- 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;
 
 # 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')
 # this is for our long dates
 # $locale->text('January')
 # $locale->text('February')


@@ -2772,3 +2768,4 @@ sub generate_bwa {
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }
 

+1;

diff --git a/doc/programmierstilrichtlinien.txt b/doc/programmierstilrichtlinien.txt
index 25628920ead88def01dae8f2e124064ff09e03b2..6ec670a48e77072aafac0c5ab56a57d6064053a0 100644 (file)
--- 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:
 
 
 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:
 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 {
      ...
 
    do {
      ...

-   } while ($a > 0);
+   } until ($a > 0);

 
 6. Parameter von Funktionsaufrufen müssen mit runden Klammern versehen
 
 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:
 
 
    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.
     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.