From 5af38e4d8b88cbd2a2b453288b4dacb3bbc5f4e4 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Wed, 16 Dec 2015 18:19:33 +0100
Subject: [PATCH] DoSearch: Add link to actually DO the replacement

---
 wiki.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/wiki.pl b/wiki.pl
index 5508d4e1..bf7d38f4 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -3409,6 +3409,11 @@ sub DoSearch {
     if (GetParam('preview', '')) { # Preview button was used
       print GetHeader('', Ts('Preview: %s', $string . " &#x2192; " . $replacement));
       print $q->start_div({-class=>'content replacement'});
+      print GetFormStart(undef, 'post', 'replace');
+      print GetHiddenValue('search', $string);
+      print GetHiddenValue('replace', $replacement);
+      print GetHiddenValue('delete', GetParam('delete', 0));
+      print $q->submit(-value=>T('Go!')) . $q->end_form();
       @results = ReplaceAndDiff($re, UnquoteHtml($replacement));
     } else {
       print GetHeader('', Ts('Replaced: %s', $string . " &#x2192; " . $replacement));