X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8ccdbe3d60faaed72573207e3917d43ffae61eca..a921e75a:/bin/mozilla/licenses.pl

diff --git a/bin/mozilla/licenses.pl b/bin/mozilla/licenses.pl
index 591608b45..95f520ff9 100644
--- a/bin/mozilla/licenses.pl
+++ b/bin/mozilla/licenses.pl
@@ -71,7 +71,7 @@ sub form_footer {
   my $form     = $main::form;
 
   my @items = qw(old_callback previousform);
-  push(@items, @{ $form->{"hidden"} });
+  push @items, @{ $form->{"hidden"} } if ref $form->{hidden} eq 'ARRAY';
   map({
       print("<input type=hidden name=$_ value=\"" . quot($form->{$_}) . "\">\n"
       );
@@ -323,6 +323,8 @@ sub add {
   my $form     = $main::form;
   my $locale   = $main::locale;
 
+  $form->{title} = $locale->text('Add License');
+
   if (!$main::lizenzen) {
     $form->error(
                  $locale->text(
@@ -514,6 +516,8 @@ sub search {
   my $form     = $main::form;
   my $locale   = $main::locale;
 
+  $form->{title} = $locale->text('Licenses');
+
   if (!$main::lizenzen) {
     $form->error(
                  $locale->text(
@@ -611,7 +615,7 @@ sub do_search {
             . $locale->text(
                       "No licenses were found that match the search criteria.")
             . qq|</body></html>|);
-    exit(0);
+    ::end_of_request();
   }
 
   print(