X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fcommon.pl;h=ea34189db03b2fecef7de32206fb4b2a23c6e3f6;hb=eaf4d4830c5b449170dbef0d0ad5f88863f1e8bd;hp=30548f63f04c300905b21b98c5a024668e29aee0;hpb=acc2b53b75b38658aaf5652f5a86adf213265942;p=kivitendo-erp.git

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index 30548f63f..ea34189db 100644
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -41,6 +41,28 @@ sub restore_form {
   $lxdebug->leave_sub();
 }
 
+sub build_std_url {
+  $lxdebug->enter_sub();
+
+  my $url = "$form->{script}?";
+  my $first = 1;
+  foreach my $key ((qw(login password path), @_)) {
+    next unless ($key);
+    $url .= "&" unless ($first);
+    $first = 0;
+
+    if ($key =~ /=/) {
+      $url .= $key;
+    } else {
+      $url .= "${key}=" . E($form->{$key});
+    }
+  }
+
+  $lxdebug->leave_sub();
+
+  return $url;
+}
+
 sub select_employee {
   $lxdebug->enter_sub();
 
@@ -420,6 +442,14 @@ sub H {
   return $form->quote_html($_[0]);
 }
 
+sub Q {
+  return $form->quote($_[0]);
+}
+
+sub E {
+  return $form->escape($_[0]);
+}
+
 sub format_dates {
   $lxdebug->enter_sub();