diff options
author | matthew <matthew> | 2008-11-11 10:54:03 +0000 |
---|---|---|
committer | matthew <matthew> | 2008-11-11 10:54:03 +0000 |
commit | acc26d4cb0075901e606473b046e917d3695758f (patch) | |
tree | e89d7bcdba87033df0b66acfc50e15ad6a62020f /web-admin | |
parent | f2ea7c28a58ce8c97adc3ecb552a7da5e9549dfc (diff) |
Move resend button.
Diffstat (limited to 'web-admin')
-rwxr-xr-x | web-admin/index.cgi | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/web-admin/index.cgi b/web-admin/index.cgi index dd50c0cd1..37fa79097 100755 --- a/web-admin/index.cgi +++ b/web-admin/index.cgi @@ -7,10 +7,10 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: francis@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: index.cgi,v 1.61 2008-11-11 09:57:16 matthew Exp $ +# $Id: index.cgi,v 1.62 2008-11-11 10:54:03 matthew Exp $ # -my $rcsid = ''; $rcsid .= '$Id: index.cgi,v 1.61 2008-11-11 09:57:16 matthew Exp $'; +my $rcsid = ''; $rcsid .= '$Id: index.cgi,v 1.62 2008-11-11 10:54:03 matthew Exp $'; use strict; @@ -505,7 +505,7 @@ sub admin_edit_report { my $state = $q->label({-for=>'state'}, 'State:') . ' ' . $q->popup_menu(-id => 'state', -name => 'state', -values => { confirmed => 'Open', fixed => 'Fixed', hidden => 'Hidden', unconfirmed => 'Unconfirmed', partial => 'Partial' }, -default => $row{state}); my $resend = ''; - $resend = '<li><input type="submit" name="resend" value="Resend report">' if $row{state} eq 'confirmed'; + $resend = ' <input onclick="return confirm(\'You really want to resend?\')" type="submit" name="resend" value="Resend report">' if $row{state} eq 'confirmed'; print $q->start_form(-method => 'POST', -action => './'); print $q->hidden('page'); @@ -526,12 +526,11 @@ sub admin_edit_report { <li>Phone: $row{phone} <li>Created: $row{created} <li>Confirmed: $row{confirmed} -<li>Sent: $row{whensent} +<li>Sent: $row{whensent} $resend <li>Last update: $row{lastupdate} <li>Service: $row{service} <li>Going to send questionnaire? $questionnaire $photo -$resend </ul> EOF print $q->submit('Submit changes'); |