HTML-Vorlagen:

Die globale Konfigurationsvariable $latex in $latex_templates umbenannt. Einige globale Konfigurationsvariablen in allen HTML-Vorlagen unter dem Namen "conf_<variablenname>" bekannt gemacht.

Zwei Variablen lokal zur aktuellen Funktion gemacht.

Automatisch in HTML-Vorlagen die Zugriffsberechtigungen als Variablen der Form "access_menu_name" verfuegbar machen.

Alle Variablen aus %myconfig in HTML-Webseitenvorlagen verfuegbar gemacht. Ausserdem aus das Datumsformat fuer den Javascript-Kalendar aus dem Datenbankdatumsformat ableiten und zur Verfuegung stellen.

Beim Aufruf von $form->show_generic_error() auf jeden Fall $form->header() aufrufen und danach das Script beenden.

[Merge der Revisionen 876 883 902 987 1093 aus dem LINET prog Repo]

diff --git a/SL/Form.pm b/SL/Form.pm
index 80c67fc3909cb83e7fdf5775e8cf6dffd11c0f06..725eace5a71cbebdf64bb6cd5d866b624a317eca 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -38,6 +38,7 @@
 package Form;
 
 use HTML::Template;
 package Form;
 
 use HTML::Template;

+use SL::Menu;

 
 sub _input_to_hash {
   $main::lxdebug->enter_sub(2);
 
 sub _input_to_hash {
   $main::lxdebug->enter_sub(2);


@@ -242,12 +243,8 @@ sub error {
 
   if ($ENV{HTTP_USER_AGENT}) {
     $msg =~ s/\n/<br>/g;
 
   if ($ENV{HTTP_USER_AGENT}) {
     $msg =~ s/\n/<br>/g;

-
-    $self->header;

     $self->show_generic_error($msg);
 
     $self->show_generic_error($msg);
 

-    die "Error: $msg\n";
-

   } else {
 
     if ($self->{error_function}) {
   } else {
 
     if ($self->{error_function}) {


@@ -373,7 +370,7 @@ function fokus(){document.$self->{fokus}.focus();}
     }
 
     #Set Calendar
     }
 
     #Set Calendar

-    $jsscript = "";
+    my $jsscript = "";

     if ($self->{jsscript} == 1) {
 
       $jsscript = qq|
     if ($self->{jsscript} == 1) {
 
       $jsscript = qq|


@@ -410,7 +407,6 @@ function fokus(){document.$self->{fokus}.focus();}
   $main::lxdebug->leave_sub();
 }
 
   $main::lxdebug->leave_sub();
 }
 

-use Data::Dumper;

 sub parse_html_template {
   $main::lxdebug->enter_sub();
 
 sub parse_html_template {
   $main::lxdebug->enter_sub();
 


@@ -461,6 +457,28 @@ sub parse_html_template {
       "<br><em>DEBUG INFORMATION:</em><pre>" . $additional_params->{"DEBUG"} . "</pre>";
   }
 
       "<br><em>DEBUG INFORMATION:</em><pre>" . $additional_params->{"DEBUG"} . "</pre>";
   }
 

+  if (%main::myconfig) {
+    map({ $additional_params->{"myconfig_${_}"} = $main::myconfig{$_}; } keys(%main::myconfig));
+    my $jsc_dateformat = $main::myconfig{"dateformat"};
+    $jsc_dateformat =~ s/d+/\%d/gi;
+    $jsc_dateformat =~ s/m+/\%m/gi;
+    $jsc_dateformat =~ s/y+/\%Y/gi;
+    $additional_params->{"myconfig_jsc_dateformat"} = $jsc_dateformat;
+  }
+
+  $additional_params->{"conf_jscalendar"} = $main::jscalendar;
+  $additional_params->{"conf_lizenzen"} = $main::lizenzen;
+  $additional_params->{"conf_latex_templates"} = $main::latex;
+  $additional_params->{"conf_opendocument_templates"} = $main::opendocument_templates;
+
+  my $menu;
+  if (-f $self->{"login"} . "_menu.ini") {
+    $menu = Menu->new($self->{"login"} . "_menu.ini");
+  } else {
+    $menu = Menu->new("menu.ini");
+  }
+  $menu->generate_acl("", $additional_params);
+

   my @additional_param_names = keys(%{$additional_params});
 
   foreach my $key ($template->param()) {
   my @additional_param_names = keys(%{$additional_params});
 
   foreach my $key ($template->param()) {


@@ -485,7 +503,23 @@ sub show_generic_error {
   $add_params->{"title"} = $title if ($title);
   $self->{"label_error"} = $error;
 
   $add_params->{"title"} = $title if ($title);
   $self->{"label_error"} = $error;
 

+  $self->header();

   print($self->parse_html_template("generic/error", $add_params));
   print($self->parse_html_template("generic/error", $add_params));

+
+  die("Error: $error\n");
+}
+
+sub show_generic_information {
+  my ($self, $error, $title) = @_;
+
+  my $add_params = {};
+  $add_params->{"title"} = $title if ($title);
+  $self->{"label_information"} = $error;
+
+  $self->header();
+  print($self->parse_html_template("generic/information", $add_params));
+
+  die("Information: $error\n");

 }
 
 # write Trigger JavaScript-Code ($qty = quantity of Triggers)
 }
 
 # write Trigger JavaScript-Code ($qty = quantity of Triggers)


@@ -536,7 +570,7 @@ sub write_trigger {
       );
        |;
   }
       );
        |;
   }

-  $jsscript = qq|
+  my $jsscript = qq|

        <script type="text/javascript">
        <!--| . join("", @triggers) . qq|//-->
         </script>
        <script type="text/javascript">
        <!--| . join("", @triggers) . qq|//-->
         </script>


@@ -715,7 +749,6 @@ sub parse_template {
   my ($current_page, $current_line, $current_row) = (1, 1, 0);
   my $pagebreak = "";
   my $sum       = 0;
   my ($current_page, $current_line, $current_row) = (1, 1, 0);
   my $pagebreak = "";
   my $sum       = 0;

-

   # } Moritz Bunkus
 
   # Make sure that all *notes* (intnotes, partnotes_*, notes etc) are converted to markup correctly.
   # } Moritz Bunkus
 
   # Make sure that all *notes* (intnotes, partnotes_*, notes etc) are converted to markup correctly.


@@ -1073,10 +1106,10 @@ Content-Length: $numbytes
       close(IN);
     }
 
       close(IN);
     }
 

-    $self->cleanup;
-

   }
 
   }
 

+  $self->cleanup;
+

   chdir("$self->{cwd}");
   $main::lxdebug->leave_sub();
 }
   chdir("$self->{cwd}");
   $main::lxdebug->leave_sub();
 }


@@ -1730,7 +1763,7 @@ sub create_links {
     $query = qq| SELECT * FROM tax t|;
     $sth   = $dbh->prepare($query);
     $sth->execute || $self->dberror($query);
     $query = qq| SELECT * FROM tax t|;
     $sth   = $dbh->prepare($query);
     $sth->execute || $self->dberror($query);

-    $form->{TAX} = ();
+    $self->{TAX} = ();

     while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
       push @{ $self->{TAX} }, $ref;
     }
     while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
       push @{ $self->{TAX} }, $ref;
     }


@@ -2105,7 +2138,7 @@ sub update_defaults {
 
   $query = qq|UPDATE defaults
               SET $fld = '$var'|;
 
   $query = qq|UPDATE defaults
               SET $fld = '$var'|;

-  $dbh->do($query) || $form->dberror($query);
+  $dbh->do($query) || $self->dberror($query);

 
   $dbh->commit;
   $dbh->disconnect;
 
   $dbh->commit;
   $dbh->disconnect;


@@ -2133,7 +2166,7 @@ sub update_business {
   }
   $query = qq|UPDATE business
               SET customernumberinit = '$var' WHERE id=$business_id|;
   }
   $query = qq|UPDATE business
               SET customernumberinit = '$var' WHERE id=$business_id|;

-  $dbh->do($query) || $form->dberror($query);
+  $dbh->do($query) || $self->dberror($query);

 
   $dbh->commit;
   $dbh->disconnect;
 
   $dbh->commit;
   $dbh->disconnect;

diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl
index 7836eb2fc92e2f6bb707c985cffa7feef175ca31..ad646b1f1b1566fac53dbe3e88365de360770eb4 100644 (file)
--- a/bin/mozilla/cp.pl
+++ b/bin/mozilla/cp.pl
@@ -443,12 +443,12 @@ sub form_footer {
   $media = qq|
           <option value=screen $form->{OP}{screen}>| . $locale->text('Screen');
 
   $media = qq|
           <option value=screen $form->{OP}{screen}>| . $locale->text('Screen');
 

-  if ($myconfig{printer} && $latex) {
+  if ($myconfig{printer} && $latex_templates) {

     $media .= qq|
           <option value=printer $form->{OP}{printer}>|
       . $locale->text('Printer');
   }
     $media .= qq|
           <option value=printer $form->{OP}{printer}>|
       . $locale->text('Printer');
   }

-  if ($latex) {
+  if ($latex_templates) {

     $media .= qq|
           <option value=queue $form->{OP}{queue}>| . $locale->text('Queue');
     $format .= qq|
     $media .= qq|
           <option value=queue $form->{OP}{queue}>| . $locale->text('Queue');
     $format .= qq|


@@ -474,7 +474,7 @@ sub form_footer {
 <input class=submit type=submit name=action value="|
     . $locale->text('Post') . qq|">|;
 
 <input class=submit type=submit name=action value="|
     . $locale->text('Post') . qq|">|;
 

-  if ($latex) {
+  if ($latex_templates) {

     print qq|
 <input class=submit type=submit name=action value="|
       . $locale->text('Print') . qq|">|;
     print qq|
 <input class=submit type=submit name=action value="|
       . $locale->text('Print') . qq|">|;

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 11c355bf612c819d50f6a9c3fe5630c582112eb9..58f41f5681c6f9c2ad65bf5f430f0d5a3705b6c3 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1326,12 +1326,12 @@ sub print_options {
   } else {
     $media = qq|<select name=media>
            <option value=screen $form->{OP}{screen}>| . $locale->text('Screen');
   } else {
     $media = qq|<select name=media>
            <option value=screen $form->{OP}{screen}>| . $locale->text('Screen');

-    if ($myconfig{printer} && $latex) {
+    if ($myconfig{printer} && $latex_templates) {

       $media .= qq|
             <option value=printer $form->{OP}{printer}>|
         . $locale->text('Printer');
     }
       $media .= qq|
             <option value=printer $form->{OP}{printer}>|
         . $locale->text('Printer');
     }

-    if ($latex) {
+    if ($latex_templates) {

       $media .= qq|
             <option value=queue $form->{OP}{queue}>| . $locale->text('Queue');
     }
       $media .= qq|
             <option value=queue $form->{OP}{queue}>| . $locale->text('Queue');
     }


@@ -1340,7 +1340,7 @@ sub print_options {
   $format = qq|<select name=format>
             <option value=html $form->{DF}{html}>html|;
 
   $format = qq|<select name=format>
             <option value=html $form->{DF}{html}>html|;
 

-  if ($latex) {
+  if ($latex_templates) {

     $format = qq|<select name=format>
             <option value=pdf $form->{DF}{pdf}>| . $locale->text('PDF') . qq|
             <option value=html $form->{DF}{html}>html
     $format = qq|<select name=format>
             <option value=pdf $form->{DF}{pdf}>| . $locale->text('PDF') . qq|
             <option value=html $form->{DF}{html}>html


@@ -1348,6 +1348,13 @@ sub print_options {
       . $locale->text('Postscript');
   }
 
       . $locale->text('Postscript');
   }
 

+  $format .= qq|<option value=html $form->{DF}{html}>HTML</option>|;
+
+  if ($latex_templates) {
+    $format .= qq|<option value=postscript $form->{DF}{postscript}>| .
+      $locale->text('Postscript') . qq|</option>|;
+  }
+

   $language_select = qq|<select name=language>
                  <option value=""></option>|;
   %lang = (de => "deutsch", en => "englisch", fr => "französisch");
   $language_select = qq|<select name=language>
                  <option value=""></option>|;
   %lang = (de => "deutsch", en => "englisch", fr => "französisch");


@@ -1371,7 +1378,7 @@ sub print_options {
          <td>$media</select></td>
 |;
 
          <td>$media</select></td>
 |;
 

-  if ($myconfig{printer} && $latex && $form->{media} ne 'email') {
+  if ($myconfig{printer} && $latex_templates && $form->{media} ne 'email') {

     print qq|
          <td>| . $locale->text('Copies') . qq|
          <input name=copies size=2 value=$form->{copies}></td>
     print qq|
          <td>| . $locale->text('Copies') . qq|
          <input name=copies size=2 value=$form->{copies}></td>

diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index 34b12848f12a1435e6f8cb69be581b95bb7d8996..fe46f179edb1b74abd9ed58409f2c3b400f67219 100644 (file)
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -1906,14 +1906,14 @@ sub print_options {
   } else {
     $media = qq|
            <option value=screen $form->{OP}{screen}>| . $locale->text('Screen');
   } else {
     $media = qq|
            <option value=screen $form->{OP}{screen}>| . $locale->text('Screen');

-    if ($myconfig{printer} && $latex) {
+    if ($myconfig{printer} && $latex_templates) {

       $media .= qq|
             <option value=printer $form->{OP}{printer}>|
         . $locale->text('Printer');
     }
   }
 
       $media .= qq|
             <option value=printer $form->{OP}{printer}>|
         . $locale->text('Printer');
     }
   }
 

-  if ($latex) {
+  if ($latex_templates) {

     $format .= qq|
             <option value=postscript $form->{DF}{postscript}>|
       . $locale->text('Postscript') . qq|
     $format .= qq|
             <option value=postscript $form->{DF}{postscript}>|
       . $locale->text('Postscript') . qq|


@@ -1928,7 +1928,7 @@ sub print_options {
     <td><select name=media>$media</select></td>
 |;
 
     <td><select name=media>$media</select></td>
 |;
 

-  if ($myconfig{printer} && $latex && $form->{media} ne 'email') {
+  if ($myconfig{printer} && $latex_templates && $form->{media} ne 'email') {

     print qq|
       <td>| . $locale->text('Copies') . qq|
       <input name=copies size=2 value=$form->{copies}></td>
     print qq|
       <td>| . $locale->text('Copies') . qq|
       <input name=copies size=2 value=$form->{copies}></td>


@@ -2729,14 +2729,14 @@ sub print_options {
   } else {
     $media = qq|
            <option value=screen $form->{OP}{screen}>| . $locale->text('Screen');
   } else {
     $media = qq|
            <option value=screen $form->{OP}{screen}>| . $locale->text('Screen');

-    if ($myconfig{printer} && $latex) {
+    if ($myconfig{printer} && $latex_templates) {

       $media .= qq|
             <option value=printer $form->{OP}{printer}>|
         . $locale->text('Printer');
     }
   }
 
       $media .= qq|
             <option value=printer $form->{OP}{printer}>|
         . $locale->text('Printer');
     }
   }
 

-  if ($latex) {
+  if ($latex_templates) {

     $format .= qq|
             <option value=html $form->{DF}{html}>|
       . $locale->text('HTML') . qq|
     $format .= qq|
             <option value=html $form->{DF}{html}>|
       . $locale->text('HTML') . qq|


@@ -2756,7 +2756,7 @@ sub print_options {
     <td><select name=media>$media</select></td>
 |;
 
     <td><select name=media>$media</select></td>
 |;
 

-  if ($myconfig{printer} && $latex && $form->{media} ne 'email') {
+  if ($myconfig{printer} && $latex_templates && $form->{media} ne 'email') {

     print qq|
       <td>| . $locale->text('Copies') . qq|
       <input name=copies size=2 value=$form->{copies}></td>
     print qq|
       <td>| . $locale->text('Copies') . qq|
       <input name=copies size=2 value=$form->{copies}></td>

diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl
index e153d3f77535b8a15f4e6d39b239d0ec71638667..99210941cc879ed23e202e57bcaec1acd25625e5 100644 (file)
--- a/bin/mozilla/ustva.pl
+++ b/bin/mozilla/ustva.pl
@@ -760,7 +760,7 @@ sub show_options {
       qq|       <option value=html selected>|
     . $locale->text('Vorschau')
     . qq|</option>|;
       qq|       <option value=html selected>|
     . $locale->text('Vorschau')
     . qq|</option>|;

-  if ($latex) {
+  if ($latex_templates) {

     $format .=
         qq|    <option value=pdf>|
       . $locale->text('UStVA als PDF-Dokument')
     $format .=
         qq|    <option value=pdf>|
       . $locale->text('UStVA als PDF-Dokument')

diff --git a/lx-erp.conf b/lx-erp.conf
index 0eb824502483003f63d13fa7b0d941e1076d3360..4104b47f4eec0960ea8ad4e0be32b3c5e34a30de 100644 (file)
--- a/lx-erp.conf
+++ b/lx-erp.conf
@@ -26,7 +26,7 @@ $sid = "T80509";
 $ENV{"ORACLE_HOME"} = "/usr/local/oracle";
 
 # if you have latex installed set to 1
 $ENV{"ORACLE_HOME"} = "/usr/local/oracle";
 
 # if you have latex installed set to 1

-$latex = 1;
+$latex_templates = 1;

 
 # if the server can't find gzip, latex, dvips or pdflatex, add the path
 $ENV{PATH} .= ":/usr/local/bin";
 
 # if the server can't find gzip, latex, dvips or pdflatex, add the path
 $ENV{PATH} .= ":/usr/local/bin";