From d2945b495c26110b0e6f3d9b232ea2c1c74ddee1 Mon Sep 17 00:00:00 2001
From: Petr Baudis <petr.baudis@novartis.com>
Date: Tue, 16 Sep 2008 13:28:06 +0200
Subject: [PATCH] cgi/regproj.cgi: Support pre-filling of source inputs from
 query string

---
 cgi/regproj.cgi | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/cgi/regproj.cgi b/cgi/regproj.cgi
index 2d65832..41a1d79 100755
--- a/cgi/regproj.cgi
+++ b/cgi/regproj.cgi
@@ -202,7 +202,11 @@ if ($me) {
 				my $i = 0;
 				foreach my $input (@{$source->{inputs}}) {
 					$mirrorentry .= $input->{label};
-					$mirrorentry .= ' <input type="text" name="'.$n.'_i'.$i.'" />';
+					my ($l, $v) = ($n.'_i'.$i, '');
+					if ($cgi->param($l)) {
+						$v = ' value="'.html_esc($cgi->param($l)).'"';
+					}
+					$mirrorentry .= ' <input type="text" name="'.$l.'"'.$v.' />';
 					$mirrorentry .= $input->{suffix} if $input->{suffix};
 					$mirrorentry .= '&nbsp; &nbsp;';
 				} continue { $i++; }
-- 
2.11.4.GIT