[Koha-patches] [PATCH 3/4] Bug 6328: make comment a textbox / fix debar by notice trigger

[Katrin Fischer]

Debarring by notice triggers was broken, because the new function
expects a date as second parameter.

The comment field in patron account details was a very long text field.
Patch changes it to be a textbox instead.
---
 .../prog/en/modules/members/memberentrygen.tt      |    4 ++--
 misc/cronjobs/overdue_notices.pl                   |    2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt
index b86f8c3..611c100 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt
@@ -992,8 +992,8 @@
 		            );
 		        </script>
 		        <br />
-		        <label for="debarredcomment" class="radio">comment:</label>
-		        <input type="text" id="debarredcomment" name="debarredcomment" value="[% debarredcomment %]"[% IF ( opduplicate ) %] onclick="this.value=''"[% END %] class="debarred" size="150"/>		        
+		        <label for="debarredcomment" class="radio">Comment:</label>
+				<textarea id="debarredcomment" name="debarredcomment" cols="55" rows="3" [% IF ( opduplicate ) %] onclick="this.value=''"[% END %]>[% debarredcomment %]</textarea>
 	        </li>
 
 			</ol>
diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl
index bc97ecb..1d7ce05 100755
--- a/misc/cronjobs/overdue_notices.pl
+++ b/misc/cronjobs/overdue_notices.pl
@@ -473,7 +473,7 @@ END_SQL
                 if ( $overdue_rules->{"debarred$i"} ) {
     
                     #action taken is debarring
-                    C4::Members::DebarMember($borrowernumber);
+                    C4::Members::DebarMember($borrowernumber, '9999-12-31');
                     $verbose and warn "debarring $borrowernumber $firstname $lastname\n";
                 }
                 my @params = ($listall ? ( $borrowernumber , 1 , $MAX ) : ( $borrowernumber, $mindays, $maxdays ));
-- 
1.7.4.1