3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it
6 # under the terms of the GNU General Public License as published by
7 # the Free Software Foundation; either version 3 of the License, or
8 # (at your option) any later version.
10 # Koha is distributed in the hope that it will be useful, but
11 # WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 # GNU General Public License for more details.
15 # You should have received a copy of the GNU General Public License
16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
21 use Try::Tiny qw( catch try );
23 use C4::Auth qw( get_template_and_user );
25 use C4::Output qw( output_html_with_http_headers );
30 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
32 template_name => "tools/quotes.tt",
35 flagsrequired => { tools => 'edit_quotes' },
39 my $id = $input->param('id');
40 my $op = $input->param('op') || 'list';
43 if ( $op eq 'add_form' ) {
44 $template->param( quote => Koha::Quotes->find($id), );
46 elsif ( $op eq 'add_validate' ) {
53 my $quote = Koha::Quotes->find($id);
54 for my $field (@fields) {
55 $quote->$field( scalar $input->param($field) );
60 push @messages, { type => 'message', code => 'success_on_update' };
63 push @messages, { type => 'alert', code => 'error_on_update' };
67 my $quote = Koha::Quote->new(
70 ( map { $_ => scalar $input->param($_) || undef } @fields )
76 push @messages, { type => 'message', code => 'success_on_insert' };
79 push @messages, { type => 'alert', code => 'error_on_insert' };
88 $template->param( quotes_count => Koha::Quotes->search->count )
92 messages => \@messages,
96 output_html_with_http_headers $input, $cookie, $template->output;