projekt kivitendo

          Sicherheit bringen. </p>

          Z.B. das vom Benutzer eingestellte Zahlenformat, bevor man Berechnung in einem

          bestimmten Format durchf?hrt (SL/Form.pm Zeile 3552, Stand version 2.7beta), um

          dies hinterher wieder auf den richtigen Wert zu setzen:

          <pre class="programlisting">

            my $saved_numberformat    = $::myconfig{numberformat};

            $::myconfig{numberformat} = $numberformat;

            # (...) div Berechnungen

            $::myconfig{numberformat} = $saved_numberformat;

          </pre><p>Das Objekt der Klasse Form hat leider im Moment noch viele

          zentrale Funktionen die vom internen Zustand abh?ngen, deshalb

          bitte nie einfach zerst?ren oder ?berschreiben (zumindestens nicht kurz

          vor einem Release oder in Absprache ?ber bspw. die devel-Liste ;-).

          Es geht ziemlich sicher etwas kaputt.</p><p>

                  <code class="varname">$::form</code> ist gleichzeitig der Standard Scope

          in den <span class="productname">Template::Toolkit</span>&#8482; Templates

          au?erhalb der Controller: der Ausdruck <code class="function">[% var

          %]</code> greift auf <code class="varname">$::form-&gt;{var}</code> zu.

          Unter Controllern ist der Standard Scope anders, da lautet der

          Zugriff <code class="function">[% FORM.var %]</code>. In Druckvorlagen sind

          normale Variablen ebenfall im <code class="varname">$::form</code> Scope, d.h.

          <code class="function">&lt;%var%&gt;</code> zeigt auf

          <code class="varname">$::form-&gt;{var}</code>.

          Nochmal von der anderen Seite erl?utert, innerhalb von (Web-)Templates sieht

          man h?ufiger solche Konstrukte:

          </p><pre class="programlisting">

            [%- IF business %]

            # (... Zeig die Auswahlliste Kunden-/Lieferantentyp an

            [%- END %]

         </pre><p>

        Entweder wird hier dann $::form->{business} ausgewertet oder aber der Funktion

        <code class="function">$form-&gt;parse_html_template</code> wird explizit noch ein zus?tzlicher Hash

        ?bergeben, der dann auch in den (Web-)Templates zu Verf?gung steht, bspw. so:

          <code class="function">$form-&gt;parse_html_template("is/form_header", \%TMPL_VAR);</code>

          Innerhalb von Schleifen wird

          <code class="varname">$::form-&gt;{TEMPLATE_ARRAYS}{var}[$index]</code>

          bevorzugt, wenn vorhanden.</p>

          Zum Beispiel in SL/DO.pm welche ?ber alle Positionen eines Lieferscheins

          in Schleife l?uft:

          <pre class="programlisting">

            for $i (1 .. $form->{rowcount}) {

              (...)

              push @{ $form->{TEMPLATE_ARRAYS}{runningnumber} },   $position;

              push @{ $form->{TEMPLATE_ARRAYS}{number} },          $form->{"partnumber_$i"};

              push @{ $form->{TEMPLATE_ARRAYS}{description} },     $form->{"description_$i"};

         </pre></div><div class="sect3" title="4.1.3.2. %::myconfig"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4529"></a>4.1.3.2. %::myconfig</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Das einzige Hash unter den globalen Variablen</p></li><li class="listitem"><p>Wird sp?testens ben?tigt wenn auf die Datenbank

                  <code class="varname">%::myconfig</code> ist im Moment der Ersatz f?r

          ein Userobjekt. Die meisten Funktionen, die etwas anhand des

          aktuellen Users entscheiden m?ssen, befragen

          <code class="varname">%::myconfig</code>.

          Innerhalb der Anwendungen sind dies ?berwiegend die Daten, die sich

          unter Programm->Einstellungen befinden, bzw. die Informationen ?ber den

          Benutzer die ?ber die Administrator-Schnittstelle (admin.pl) eingegeben wurden.

        </p></div><div class="sect3" title="4.1.3.3. $::locale"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4562"></a>4.1.3.3. $::locale</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse "Locale"</p></li><li class="listitem"><p>Wird pro Request erstellt</p></li><li class="listitem"><p>Muss auch f?r Tests und Scripte immer verf?gbar

          Zahlen- und Datumsformatierungen laufen ?ber dieses Objekt.</p></div><div class="sect3" title="4.1.3.4. $::lxdebug"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4580"></a>4.1.3.4. $::lxdebug</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse "LXDebug"</p></li><li class="listitem"><p>Wird global gecached</p></li><li class="listitem"><p>Muss immer verf?gbar sein, in nahezu allen

                  <code class="varname">$::lxdebug</code> stellt Debuggingfunktionen

          bereit, wie "<code class="function">enter_sub</code>" und

          "<code class="function">leave_sub</code>", mit denen in den alten Modulen ein

          brauchbares Tracing gebaut ist, "<code class="function">log_time</code>", mit

          der man die Wallclockzeit seit Requeststart loggen kann, sowie

          "<code class="function">message</code>" und "<code class="function">dump</code>" mit

          denen man flott Informationen ins Log (tmp/lx-office-debug.log) packen kann.</p>

          Beispielsweise so:

          <pre class="programlisting">

            $main::lxdebug->message(0, 'Meine Konfig:' . Dumper (%::myconfig));

            $main::lxdebug->message(0, 'Wer bin ich? Kunde oder Lieferant:' . $form->{vc});

          </pre></div><div class="sect3" title="4.1.3.5. $::auth"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4616"></a>4.1.3.5. $::auth</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse "SL::Auth"</p></li><li class="listitem"><p>Wird global gecached</p></li><li class="listitem"><p>Hat eine permanente DB Verbindung zur Authdatenbank</p></li><li class="listitem"><p>Wird nach jedem Request resettet.</p></li></ul></div><p>

          Request kurz resettet.</p></div><div class="sect3" title="4.1.3.6. $::lx_office_conf"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4637"></a>4.1.3.6. $::lx_office_conf</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse

            Hashkeys, sind also nicht gegen Tippfehler abgesichert.</p></td></tr></table></div></div><div class="sect3" title="4.1.3.7. $::instance_conf"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4673"></a>4.1.3.7. $::instance_conf</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse

          ob die ber?chtigte Bestandsmethode zur Anwendung kommt.</p></div><div class="sect3" title="4.1.3.8. $::dispatcher"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4694"></a>4.1.3.8. $::dispatcher</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Objekt der Klasse

          Objekt untergebracht.</p></div><div class="sect3" title="4.1.3.9. $::request"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4712"></a>4.1.3.9. $::request</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>Hashref (evtl sp?ter Objekt)</p></li><li class="listitem"><p>Wird pro Request neu initialisiert.</p></li><li class="listitem"><p>Keine Unterstruktur garantiert.</p></li></ul></div><p>

              Wrappermethode</p></li></ul></div></div></div><div class="sect2" title="4.1.4. Ehemalige globale Variablen"><div class="titlepage"><div><div><h3 class="title"><a name="d0e4754"></a>4.1.4. Ehemalige globale Variablen</h3></div></div></div><p>Die folgenden Variablen waren einmal im Programm, und wurden

        entfernt.</p><div class="sect3" title="4.1.4.1. $::cgi"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4759"></a>4.1.4.1. $::cgi</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>war n?tig, weil cookie Methoden nicht als

                     </p></li></ul></div></div><div class="sect3" title="4.1.4.2. $::all_units"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4775"></a>4.1.4.2. $::all_units</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>war n?tig, weil einige Funktionen in Schleifen zum Teil

              gelesen.</p></li></ul></div></div><div class="sect3" title="4.1.4.3. %::called_subs"><div class="titlepage"><div><div><h4 class="title"><a name="d0e4794"></a>4.1.4.3. %::called_subs</h4></div></div></div><div class="itemizedlist"><ul class="itemizedlist" type="disc"><li class="listitem"><p>wurde benutzt um callsub deep recursions