From 2c7d6d65c71d2c21a549bfdd5d7ed6fecf558656 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 7 Sep 2009 16:06:52 +0000
Subject: (get_release_notes) extract it out of acceptLicense() (needed by new
 viewer)

---
 perl-install/any.pm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 2c5d46f94..e73697932 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -965,10 +965,8 @@ sub display_release_notes {
     return;
 }
 
-sub acceptLicense {
-    my ($in, $google) = @_;
-    require messages;
-
+sub get_release_notes {
+    my ($in) = @_;
     my $ext = $in->isa('interactive::gtk') ? '.html' : '.txt';
     my $separator = $in->isa('interactive::gtk') ? "\n\n" : '';
 
@@ -985,6 +983,14 @@ sub acceptLicense {
 
     # we do not handle links:
     $release_notes =~ s!<a href=".*?">(.*?)</a>!$1!g;
+    $release_notes;
+}
+
+sub acceptLicense {
+    my ($in, $google) = @_;
+    require messages;
+
+    my $release_notes = get_release_notes($in);
 
     my $r = $::testing ? 'Accept' : 'Refuse';
 
-- 
cgit v1.2.1