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

(-)a/C4/SIP/ILS/Patron.pm (-1 / +1 lines)
Lines 215-221 sub new { Link Here
215
        while ( my $message = $patron_messages->next ) {
215
        while ( my $message = $patron_messages->next ) {
216
            my $messagedt      = dt_from_string( $message->message_date, 'iso' );
216
            my $messagedt      = dt_from_string( $message->message_date, 'iso' );
217
            my $formatted_date = output_pref( { dt => $messagedt, dateonly => 1 } );
217
            my $formatted_date = output_pref( { dt => $messagedt, dateonly => 1 } );
218
            push @messages_array, $formatted_date . ": " . $message->message;
218
            push @messages_array, $formatted_date . ": " . $message->message_without_newlines;
219
        }
219
        }
220
        if (@messages_array) {
220
        if (@messages_array) {
221
            $ilspatron{screen_msg} .= " Messages for you: " . join( ' / ', @messages_array );
221
            $ilspatron{screen_msg} .= " Messages for you: " . join( ' / ', @messages_array );
(-)a/Koha/Patron/Message.pm (-1 / +21 lines)
Lines 77-82 sub delete { Link Here
77
    return $self->SUPER::delete($self);
77
    return $self->SUPER::delete($self);
78
}
78
}
79
79
80
=head3 message_without_newlines
81
82
my $message_without_newlines = $message->message_without_newlines
83
84
This method returns the user's message, with all instances of \n and \r removed
85
86
=cut
87
88
sub message_without_newlines {
89
    my ($self) = @_;
90
    my $message = $self->message
91
        or return;
92
93
    $message =~ s/\n/ /g;
94
    $message =~ s/\r//g;
95
    $message =~ s/^\s+|\s+$//g;    # left and right trim
96
    $message =~ s/ +/ /g;          # duplicate spaces
97
98
    return $message;
99
}
100
80
=head3 _type
101
=head3 _type
81
102
82
=cut
103
=cut
83
- 

Return to bug 41818