From 48acd464afd5ddb0439effdbf478fbccba124f11 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 8 Feb 2008 14:59:33 +0000 Subject: (format_update_field) factorize formating of update fields (type & description) --- Rpmdrake/formatting.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Rpmdrake/formatting.pm') diff --git a/Rpmdrake/formatting.pm b/Rpmdrake/formatting.pm index 51ac8935..90cd0604 100644 --- a/Rpmdrake/formatting.pm +++ b/Rpmdrake/formatting.pm @@ -33,7 +33,7 @@ use ugtk2 qw(escape_text_for_TextView_markup_format); use Exporter; our @ISA = qw(Exporter); -our @EXPORT = qw(format_field format_header format_name_n_summary format_size localtime2changelog my_fullname pkg2medium rpm_description split_fullname urpm_name); +our @EXPORT = qw(format_field format_header format_name_n_summary format_size format_update_field localtime2changelog my_fullname pkg2medium rpm_description split_fullname urpm_name); sub rpm_description { @@ -82,6 +82,11 @@ sub pkg2medium { #- encodings; but if a user has a so broken setup we can't do much anyway sub localtime2changelog { to_utf8(POSIX::strftime("%c", localtime($_[0]))) } +sub format_update_field { + my ($name) = @_; + eval { escape_text_for_TextView_markup_format($name) }; +} + sub format_name_n_summary { my ($name, $summary) = @_; join("\n", '' . $name . '', escape_text_for_TextView_markup_format($summary)); -- cgit v1.2.1