From c06e24e496684e614ac251499b06b6ca2cd78b60 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Thu, 13 Mar 2014 09:30:22 +0100
Subject: [PATCH] Bug 9016: FIX letter name is not displayed on editing a
 letter

On editing a letter, the letter name is not displayed. So if you save
it, the letter name is erased with an empty string.
---
 koha-tmpl/intranet-tmpl/prog/en/modules/tools/letter.tt |    2 +-
 tools/letter.pl                                         |   13 +++++++++----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/letter.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/letter.tt
index 92c3421..d26785a 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/letter.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/letter.tt
@@ -286,7 +286,7 @@ $(document).ready(function() {
 				<span class="label">Code:</span>[% IF ( adding ) %]<input type="text" id="code" name="code" size="20" maxlength="20" />[% ELSE %]<input type="hidden" id="code" name="code" value="[% code %]" />[% code %][% END %]
 			</li>
 		<li>
-			<label for="name">Name:</label><input type="text" id="name" name="name" size="60" value="[% name %]" />
+			<label for="name">Name:</label><input type="text" id="name" name="name" size="60" value="[% letter_name %]" />
 		</li>
 
         [% FOREACH letter IN letters %]
diff --git a/tools/letter.pl b/tools/letter.pl
index 2371218..30ce3d2 100755
--- a/tools/letter.pl
+++ b/tools/letter.pl
@@ -166,14 +166,19 @@ sub add_form {
     my $message_transport_types = GetMessageTransportTypes();
     my @letter_loop;
     if ($letters) {
+        $template->param(
+            modify     => 1,
+            code       => $code,
+            branchcode => $branchcode,
+        );
         my $first_flag = 1;
+        # The letter name is contained into each mtt row.
+        # So we can only sent the first one to the template.
         for my $mtt ( @$message_transport_types ) {
+            # The letter_name
             if ( $first_flag ) {
                 $template->param(
-                    modify     => 1,
-                    code       => $code,
-                    branchcode => $branchcode,
-                    name       => $letters->{$mtt}{name},
+                    letter_name=> $letters->{$mtt}{name},
                 );
                 $first_flag = 0;
             }
-- 
1.7.10.4