X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Flicenses.pl;h=fd8f01d9f514e8c24f914a8d26882a4978671315;hb=47916a374217afc8d84bd147f0fada5086970bae;hp=52e5e4f866e3ce6c04ac8c6fdd2401ca07094f48;hpb=081a4f9736f3bc345872be8f61632cbed4a8d9b3;p=kivitendo-erp.git
diff --git a/bin/mozilla/licenses.pl b/bin/mozilla/licenses.pl
index 52e5e4f86..fd8f01d9f 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(
@@ -55,7 +58,7 @@ sub form_header {
sub form_footer {
$lxdebug->enter_sub();
- my @items = ("path", "login", "password", "old_callback", "previousform");
+ my @items = qw(login password old_callback previousform);
push(@items, @{ $form->{"hidden"} });
map({
print("{$_}) . "\">\n"
@@ -236,8 +239,9 @@ sub print_license_form {
| . $locale->text('Valid until') . qq| |
- {"validuntil"}) . qq|\"> |
+ {"validuntil"}) . qq|\">
+ |
| . $locale->text('Quantity') . qq| |
@@ -268,7 +272,10 @@ sub print_license_form {
qq|
-|);
+| .
+ $form->write_trigger(\%myconfig, 1, "validuntil", "BL",
+ "trigger_validuntil"));
+
$lxdebug->leave_sub();
}
@@ -359,7 +366,7 @@ sub update {
sub continue {
$lxdebug->enter_sub();
- &{ $form->{nextsub} };
+ call_sub($form->{"nextsub"});
$lxdebug->leave_sub();
}
@@ -494,13 +501,8 @@ sub do_search {
LICENSES->search(\%myconfig, $form);
$callback = "";
- foreach (
- ("db", "path", "login", "password",
- "partnumber", "description", "customer_name", "all",
- "expiring_in", "show_expired")
- ) {
- $callback .= "\&${_}=" . $form->escape($form->{$_}, 1);
- }
+ map { $callback .= "\&${_}=" . $form->escape($form->{$_}, 1) }
+ qw(db login password partnumber description customer_name all expiring_in show_expired);
$details = $form->{"script"} . "?action=details" . $callback . "\&id=";
$invdetails = "is.pl?action=edit" . $callback . "\&id=";
$callback = $form->{"script"} . "?action=do_search" . $callback;