Das Refactoring
543d78225ec609 hat die Bind-Variablen außer Acht gelassen.
Bernd hat den Teil beim Speichern mit
b30eacc6bbc6f gefixt.
Jetzt auch bei Neuerfassung. Ferner Rückmeldung an den Nutzer per Flash
- VALUES (?, ?, ?, ?, (SELECT accno FROM chart WHERE id = ?), ?, ?, ?, ?)|;
+ VALUES (?, ?, ?, ?, ?, ?, ?, ?)|;
}
push(@values, $form->{id});
do_query($form, $dbh, $query, @values);
}
push(@values, $form->{id});
do_query($form, $dbh, $query, @values);
$form->{translations} = { map { $_ =~ '^translation_(\d+)'; $1 => $form->{$_} } @translation_keys };
AM->save_tax(\%myconfig, \%$form);
$form->{translations} = { map { $_ =~ '^translation_(\d+)'; $1 => $form->{$_} } @translation_keys };
AM->save_tax(\%myconfig, \%$form);
- $form->redirect($locale->text('Tax saved!'));
+ flash_later('info', $locale->text("Tax saved!"));
+
+ print $form->redirect_header('am.pl?action=list_tax');
$main::lxdebug->leave_sub();
}
$main::lxdebug->leave_sub();
}
[%- USE T8 %]
[%- USE HTML %]
[%- USE T8 %]
[%- USE HTML %]
+[% INCLUDE "common/flash.html" %]
<h1>[% title %]</h1>
<table>
<h1>[% title %]</h1>
<table>