From 00c92a41fb134790d8a1f3132ebe50d9dd41a978 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Thu, 10 Jul 2008 05:37:44 +0000 Subject: Fine-tuning changes to draft approval workflow git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2204 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/aa.pl | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/aa.pl b/bin/aa.pl index e9f827df..7a79fde5 100644 --- a/bin/aa.pl +++ b/bin/aa.pl @@ -958,7 +958,17 @@ sub approve { my $draft = LedgerSMB::DBObject::Draft->new({base => $lsmb}); $draft->approve(); - $form->info($locale->text('Draft Posted')); + if ($form->{callback}){ + print "Location: $form->{callback}\n"; + print "Status: 302 Found\n\n"; + print ""; + my $url = $form->{callback}; + print qq|If you are not redirected automatically, click | + . qq|here.|; + + } else { + $form->info($locale->text('Draft Posted')); + } } sub update { -- cgit v1.2.3