diff options
author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-15 22:14:50 +0000 |
---|---|---|
committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-10-15 22:14:50 +0000 |
commit | 21367a6c50d7a0f56c4e4a71a69f3e68b02edbb6 (patch) | |
tree | faecfba4a4bb3e603e556a23db0f850bd67fb09b /bin/gl.pl | |
parent | ab22492596ec010ec4e4d5a282fd5c14eac61638 (diff) |
Add confirmation template
Rename yes in gl.pl
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1763 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/gl.pl')
-rw-r--r-- | bin/gl.pl | 48 |
1 files changed, 25 insertions, 23 deletions
@@ -51,6 +51,7 @@ use LedgerSMB::Template; require "bin/arap.pl"; +$form->{login} = 'test'; 1; # end of main @@ -1267,35 +1268,36 @@ sub form_footer { sub delete { - $form->header; - - print qq| -<body> - -<form method=post action=$form->{script}> -|; - + my %hiddens; delete $form->{action}; + foreach (keys %$form) { + $hiddens{$_} = $form->{$_} unless ref $form->{$_}; + } - $form->hide_form; - - print qq| -<h2 class=confirm>| . $locale->text('Confirm!') . qq|</h2> - -<h4>| - . $locale->text( 'Are you sure you want to delete Transaction [_1]', + $form->{title} = $locale->text('Confirm!'); + my $query = $locale->text( + 'Are you sure you want to delete Transaction [_1]', $form->{reference} ) - . qq|</h4> - -<button name="action" class="submit" type="submit" value="yes">| - . $locale->text('Yes') - . qq|</button> -</form> -|; + my @buttons = ({ + name => 'action', + value => 'delete_transaction', + text => $locale->text('Yes'), + }); + my $template = LedgerSMB::Template->new_UI( + user => \%myconfig, + locale => $locale, + template => 'form-confirmation', + ); + $template->render({ + form => $form, + query => $query, + hiddens => \%hiddens, + buttons => \@buttons, + }); } -sub yes { +sub delete_transaction { if ( GL->delete_transaction( \%myconfig, \%$form ) ) { $form->redirect( $locale->text('Transaction deleted!') ); |