View | Details | Raw Unified | Return to bug 6328
Collapse All | Expand All

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/memberentrygen.tt (-2 / +2 lines)
Lines 992-999 Link Here
992
		            );
992
		            );
993
		        </script>
993
		        </script>
994
		        <br />
994
		        <br />
995
		        <label for="debarredcomment" class="radio">comment:</label>
995
		        <label for="debarredcomment" class="radio">Comment:</label>
996
		        <input type="text" id="debarredcomment" name="debarredcomment" value="[% debarredcomment %]"[% IF ( opduplicate ) %] onclick="this.value=''"[% END %] class="debarred" size="150"/>		        
996
				<textarea id="debarredcomment" name="debarredcomment" cols="55" rows="3" [% IF ( opduplicate ) %] onclick="this.value=''"[% END %]>[% debarredcomment %]</textarea>
997
	        </li>
997
	        </li>
998
998
999
			</ol>
999
			</ol>
(-)a/misc/cronjobs/overdue_notices.pl (-2 / +1 lines)
Lines 473-479 END_SQL Link Here
473
                if ( $overdue_rules->{"debarred$i"} ) {
473
                if ( $overdue_rules->{"debarred$i"} ) {
474
    
474
    
475
                    #action taken is debarring
475
                    #action taken is debarring
476
                    C4::Members::DebarMember($borrowernumber);
476
                    C4::Members::DebarMember($borrowernumber, '9999-12-31');
477
                    $verbose and warn "debarring $borrowernumber $firstname $lastname\n";
477
                    $verbose and warn "debarring $borrowernumber $firstname $lastname\n";
478
                }
478
                }
479
                my @params = ($listall ? ( $borrowernumber , 1 , $MAX ) : ( $borrowernumber, $mindays, $maxdays ));
479
                my @params = ($listall ? ( $borrowernumber , 1 , $MAX ) : ( $borrowernumber, $mindays, $maxdays ));
480
- 

Return to bug 6328