X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Flicenses.pl;h=218de1fb40e18a9f0c04722317e86c39051a429d;hb=637be9d46084bc19a08b91bc13ae541a6c36f9ef;hp=4efab2ff32315657173df798635fd85817713482;hpb=d319704a66e9be64da837ccea10af6774c2b0838;p=kivitendo-erp.git
diff --git a/bin/mozilla/licenses.pl b/bin/mozilla/licenses.pl
index 4efab2ff3..218de1fb4 100644
--- a/bin/mozilla/licenses.pl
+++ b/bin/mozilla/licenses.pl
@@ -35,6 +35,8 @@ use SL::IC;
use SL::IS;
use SL::LICENSES;
+require "bin/mozilla/common.pl";
+
sub quot {
$lxdebug->enter_sub();
$_[0] =~ s/\"/\"/g;
@@ -44,6 +46,7 @@ sub quot {
sub form_header {
$lxdebug->enter_sub();
+ $form->{jsscript} = 1;
$form->header();
print(
@@ -87,8 +90,7 @@ sub print_part_selection {
| .
+ $form->write_trigger(\%myconfig, 1, "validuntil", "BL",
+ "trigger_validuntil"));
+
$lxdebug->leave_sub();
}
@@ -374,7 +366,7 @@ sub update {
sub continue {
$lxdebug->enter_sub();
- &{ $form->{nextsub} };
+ call_sub($form->{"nextsub"});
$lxdebug->leave_sub();
}
@@ -488,12 +480,11 @@ sub search {
. $locale->text('Expiring in x month(s)')
. qq|
|
- . $locale->text('Expired licenses')
- . qq|
+ . $locale->text('Expired licenses') . qq|
-
|
+
|
@@ -563,9 +554,7 @@ sub do_search {
. $locale->text('Description')
. qq|
"
- . $locale->text('Company Name')
- . qq| |
+ . $columns{"name"} . "\">" . $locale->text('Company Name') . qq|
"
. $locale->text('Valid until')
|