Link History zu EmailJournal

Einträge in History mit addition MAILED haben nun nicht die Rechnungsnummer sondern die ID des Emailjournals
in snumber stehen, also emailjournal_${journal_id}

diff --git a/SL/Form.pm b/SL/Form.pm
index bfc8827..3969cbf 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1223,6 +1223,10 @@ sub send_email {
   $self->{emailerr} = $mail->send();
   # $self->error($self->cleanup . "$err") if $self->{emailerr};
   $self->{email_journal_id} = $mail->{journalentry};
+  $self->{snumbers}  = "emailjournal" . "_" . $self->{email_journal_id};
+  $self->{what_done} = $::form->{type};
+  $self->{addition}  = "MAILED";
+  $self->save_history;
 
   #write back for message info and mail journal
   $self->{cc}  = $mail->{cc};
@@ -3177,7 +3181,10 @@ sub get_history {
     while(my $hash_ref = $sth->fetchrow_hashref()) {
       $hash_ref->{addition} = $main::locale->text($hash_ref->{addition});
       $hash_ref->{what_done} = $main::locale->text($hash_ref->{what_done});
-      $hash_ref->{snumbers} =~ s/^.+_(.*)$/$1/g;
+      my ( $what, $number ) = split /_/, $hash_ref->{snumbers};
+      $hash_ref->{snumbers} = $number;
+      $hash_ref->{haslink}  = 'controller.pl?action=EmailJournal/show&id='.$number if $what eq 'emailjournal';
+      $hash_ref->{snumbers} = $main::locale->text("E-Mail").' '.$number if $what eq 'emailjournal';
       $tempArray[$i++] = $hash_ref;
     }
     $main::lxdebug->leave_sub() and return \@tempArray

diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl
index e21b3c5..b03ca4c 100644 (file)
--- a/bin/mozilla/common.pl
+++ b/bin/mozilla/common.pl
@@ -237,9 +237,9 @@ sub show_history {
   my $callback = build_std_url(qw(action longdescription trans_id_type input_name));
   my $restriction;
   if ( $form->{trans_id_type} eq 'glid' ) {
-    $restriction = "AND ( snumbers LIKE 'invnumber%' OR what_done LIKE '%Buchungsnummer%' OR snumbers LIKE 'gltransaction%' ) ";
+    $restriction = "AND ( snumbers LIKE 'invnumber%' OR what_done LIKE '%Buchungsnummer%' OR snumbers LIKE 'gltransaction%' OR snumbers LIKE 'emailjournal%' ) ";
   } elsif ( $form->{trans_id_type} eq 'id' ) {
-    $restriction = " AND ( snumbers NOT LIKE 'invnumber_%' AND snumbers NOT LIKE 'gltransaction%' AND (what_done NOT LIKE '%Buchungsnummer%' OR what_done IS null))";
+    $restriction = " AND ( snumbers NOT LIKE 'invnumber_%' AND snumbers NOT LIKE 'gltransaction%' AND snumbers NOT LIKE 'emailjournal%' AND (what_done NOT LIKE '%Buchungsnummer%' OR what_done IS null))";
   } else {
     $restriction = '';
   };

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index b4f85af..ec4e1e6 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1533,6 +1533,7 @@ sub print_form {
 
     $form->{emailed} .= " $form->{formname}";
     $form->{emailed} =~ s/^ //;
+    $form->{addition} = "MAILED";
   }
   my $emailed = $form->{emailed};
 

diff --git a/templates/webpages/common/show_history.html b/templates/webpages/common/show_history.html
index 795e2d2..46496b1 100644 (file)
--- a/templates/webpages/common/show_history.html
+++ b/templates/webpages/common/show_history.html
@@ -105,7 +105,13 @@
        [% HTML.escape(row.id) %] 
     </td>
     <td>
-      &nbsp;[% HTML.escape(row.snumbers) %]&nbsp;
+      &nbsp;
+      [% IF row.haslink %]
+      <a href="[% row.haslink %]" target="_blank">[% HTML.escape(row.snumbers) %]</a>
+      [% ELSE %]
+      [% HTML.escape(row.snumbers) %]
+      [% END %]
+      &nbsp;
     </td>
   </tr>
 [% END %]