diff options
| author | fukachan <fukachan> | 2001-04-14 15:41:05 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-04-14 15:41:05 +0000 |
| commit | 5bec5220e1a78ce5184ab6a4529fe87fbe9c62a7 (patch) | |
| tree | 66488a7935003ec0692f779a0ad6ddbe605ee101 /fml | |
| parent | 174e11e53d40764a24dcd442f70eeb62e33ca4b9 (diff) | |
| download | fml8-5bec5220e1a78ce5184ab6a4529fe87fbe9c62a7.tar.gz fml8-5bec5220e1a78ce5184ab6a4529fe87fbe9c62a7.tar.bz2 fml8-5bec5220e1a78ce5184ab6a4529fe87fbe9c62a7.zip | |
s/remove_subject_tag_like_string/delete_subject_tag_like_string/
method-ify delete_subject_tag_like_string()
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Header.pm | 8 | ||||
| -rw-r--r-- | fml/lib/FML/Ticket/Model/minimal_states.pm | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/fml/lib/FML/Header.pm b/fml/lib/FML/Header.pm index 8f28799a..caaef26c 100644 --- a/fml/lib/FML/Header.pm +++ b/fml/lib/FML/Header.pm @@ -5,7 +5,7 @@ # redistribute it and/or modify it under the same terms as Perl itself. # # $Id$ -# $FML: Header.pm,v 1.29 2001/04/14 14:46:45 fukachan Exp $ +# $FML: Header.pm,v 1.30 2001/04/14 15:35:37 fukachan Exp $ # package FML::Header; @@ -307,16 +307,16 @@ sub delete_unsafe_header_fields =head1 MISCELLANEOUS UTILITIES -=head2 C<remove_subject_tag_like_string($string)> +=head2 C<delete_subject_tag_like_string($string)> remove subject tag like string in C<$string>. =cut -sub remove_subject_tag_like_string +sub delete_subject_tag_like_string { - my ($str) = @_; + my ($self, $str) = @_; $str =~ s/\W[-\w]+.\s*\d+\W//g; $str =~ s/\s+/ /g; $str =~ s/^\s*//g; diff --git a/fml/lib/FML/Ticket/Model/minimal_states.pm b/fml/lib/FML/Ticket/Model/minimal_states.pm index 9b6e6bcc..ac4fbf80 100644 --- a/fml/lib/FML/Ticket/Model/minimal_states.pm +++ b/fml/lib/FML/Ticket/Model/minimal_states.pm @@ -5,7 +5,7 @@ # redistribute it and/or modify it under the same terms as Perl itself. # # $Id$ -# $FML: minimal_states.pm,v 1.13 2001/04/03 09:45:44 fukachan Exp $ +# $FML: minimal_states.pm,v 1.14 2001/04/06 16:25:44 fukachan Exp $ # package FML::Ticket::Model::minimal_states; @@ -775,7 +775,7 @@ sub _header_summary use FML::MIME qw(decode_mime_string); $subject = decode_mime_string($subject, { charset => 'euc-japan' }); $subject =~ s/\n/ /g; - $subject = FML::Header::remove_subject_tag_like_string($subject); + $subject = FML::Header->delete_subject_tag_like_string($subject); $from = decode_mime_string($from, { charset => 'euc-japan' }); $from =~ s/\n/ /g; |