projects / kivitendo-erp.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 6c4ea0a)
rp.pl::e_mail auf template umgestellt.
authorSven Schöling <s.schoeling@linet-services.de>
Tue, 22 Nov 2011 13:01:03 +0000 (14:01 +0100)
committerSven Schöling <s.schoeling@linet-services.de>
Tue, 22 Nov 2011 13:01:03 +0000 (14:01 +0100)
Ausserdem bcc check von role = 'admin' auf Rechtecheck umgestellt.

bin/mozilla/rp.pl patch | blob | history
templates/webpages/rp/e_mail.html [new file with mode: 0644] patch | blob

diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl
index edb093c..6732086 100644 (file)
--- a/bin/mozilla/rp.pl
+++ b/bin/mozilla/rp.pl
@@ -1106,116 +1106,39 @@ sub select_all {
 }
 
 sub e_mail {
-  $main::lxdebug->enter_sub();
-
-  $main::auth->assert('general_ledger');
-
-  my $form     = $main::form;
-  my %myconfig = %main::myconfig;
-  my $locale   = $main::locale;
+  $::lxdebug->enter_sub;
+  $::auth->assert('general_ledger');
 
   # get name and email addresses
   my $selected = 0;
-  for my $i (1 .. $form->{rowcount}) {
-    if ($form->{"statement_$i"}) {
-      $form->{"$form->{ct}_id"} = $form->{"$form->{ct}_id_$i"};
-      RP->get_customer(\%myconfig, \%$form);
-      $selected = 1;
-      last;
-    }
-  }
-
-  $form->error($locale->text('Nothing selected!')) unless $selected;
-
-  my $bcc = '';
-  if ($myconfig{role} eq 'admin') {
-    $bcc = qq|
-          <th align=right nowrap=true>| . $locale->text('Bcc') . qq|</th>
-          <td><input name=bcc size=30 value="$form->{bcc}"></td>
-|;
+  for my $i (1 .. $::form->{rowcount}) {
+    next unless $::form->{"statement_$i"};
+    $::form->{"$::form->{ct}_id"} = $::form->{"$::form->{ct}_id_$i"};
+    RP->get_customer(\%::myconfig, $::form);
+    $selected = 1;
+    last;
   }
 
-  my $title = $locale->text('E-mail Statement to') . " $form->{$form->{ct}}";
+  $::form->error($::locale->text('Nothing selected!')) unless $selected;
 
-  $form->{media} = "email";
-
-  $form->header;
-
-  print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<table width=100%>
-  <tr class=listtop>
-    <th>$title</th>
-  </tr>
-  <tr height="5"></tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr>
-          <th align=right nowrap>| . $locale->text('E-mail') . qq|</th>
-          <td><input name=email size=30 value="$form->{email}"></td>
-          <th align=right nowrap>| . $locale->text('Cc') . qq|</th>
-          <td><input name=cc size=30 value="$form->{cc}"></td>
-        </tr>
-        <tr>
-          <th align=right nowrap>| . $locale->text('Subject') . qq|</th>
-          <td><input name=subject size=30 value="$form->{subject}"></td>
-          $bcc
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-      <table width=100%>
-        <tr>
-          <th align=left nowrap>| . $locale->text('Message') . qq|</th>
-        </tr>
-        <tr>
-          <td><textarea name=message rows=15 cols=60 wrap=soft>$form->{message}</textarea></td>
-        </tr>
-      </table>
-    </td>
-  </tr>
-  <tr>
-    <td>
-|;
-
-  &print_options;
-
-  map { delete $form->{$_} }
-    qw(action email cc bcc subject message type sendmode format header);
+  $::form->{media} = "email";
 
   # save all other variables
-  foreach my $key (keys %$form) {
-    next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
-    $form->{$key} =~ s/\"/&quot;/g;
-    print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
+  my @hidden_values;
+  for my $key (keys %$::form) {
+    next if any { $key eq $_ } qw(login password action email cc bcc subject message type sendmode format header);
+    next unless '' eq ref $::form->{$key};
+    push @hidden_values, $key;
   }
 
-  print qq|
-    </td>
-  </tr>
-  <tr>
-    <td><hr size=3 noshade></td>
-  </tr>
-</table>
-
-<input type=hidden name=nextsub value=send_email>
-
-<br>
-<input name=action class=submit type=submit value="|
-    . $locale->text('Continue') . qq|">
-</form>
-
-</body>
-</html>
-|;
+  $::form->header;
+  print $::form->parse_html_template('rp/e_mail', {
+    show_bcc      => $::auth->assert('email_bcc', 'may fail'),
+    print_options => print_options(inline => 1),
+    hidden_values => \@hidden_values,
+  });
 
-  $main::lxdebug->leave_sub();
+  $::lxdebug->leave_sub;
 }
 
 sub send_email {
diff --git a/templates/webpages/rp/e_mail.html b/templates/webpages/rp/e_mail.html
new file mode 100644 (file)
index 0000000..6d44c8f
--- /dev/null
+++ b/templates/webpages/rp/e_mail.html
@@ -0,0 +1,48 @@
+[%- USE HTML %]
+[%- USE L %]
+[%- USE LxERP %]
+[%- USE T8 %]
+<body>
+
+<h1>[% 'E-mail Statement to' | $T8 %] [% $ct %]</h1>
+
+<form method=post action='[% script %]'>
+
+<table>
+  <tr>
+    <th align=right nowrap>[% 'E-mail' | $T8 %]</th>
+    <td><input name=email size=30 value="[% email %]"></td>
+    <th align=right nowrap>[% 'Cc' | $T8 %]</th>
+    <td><input name=cc size=30 value="[% cc %]"></td>
+  </tr>
+  <tr>
+    <th align=right nowrap>[% 'Subject' | $T8 %]</th>
+    <td><input name=subject size=30 value="[% subject %]"></td>
+[% IF show_bcc %]
+    <th align=right nowrap=true>[% 'Bcc' | $T8 %]</th>
+    <td><input name=bcc size=30 value="[% bcc | $T8 %]"></td>
+[%- END %]
+  </tr>
+</table>
+<table width=100%>
+  <tr>
+    <th align=left nowrap>[% 'Message' | $T8 %]</th>
+  </tr>
+  <tr>
+    <td><textarea name=message rows=15 cols=60 wrap=soft>[% message %]</textarea></td>
+  </tr>
+</table>
+[% print_options %]
+<hr size=3 noshade>
+
+<input type=hidden name=nextsub value=send_email>
+[%- FOREACH var = hidden_values %]
+[% L.hidden_tag(var, $var) %]
+[%- END %]
+
+<br>
+<input name=action class=submit type=submit value="[% 'Continue' | $T8 %]">
+</form>
+
+</body>
+</html>
Unnamed repository; edit this file 'description' to name the repository.