3 # Copyright 2012, 2014 Mark Gavillet & PTFS Europe Ltd
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 3 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
27 my $input = CGI
->new();
29 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
31 template_name
=> 'admin/edi_ean_accounts.tt',
35 flagsrequired
=> { acquisition
=> 'edi_manage' },
39 my $schema = Koha
::Database
->new()->schema();
40 my $op = $input->param('op');
43 if ( $op eq 'ean_form' ) {
45 $template->param( ean_form
=> 1 );
46 my @branches = $schema->resultset('Branch')->search(
49 columns
=> [ 'branchcode', 'branchname' ],
50 order_by
=> 'branchname',
53 $template->param( branches
=> \
@branches );
58 description
=> 'EAN International',
62 description
=> 'US SAN Agency',
66 description
=> 'Assigned by supplier',
70 description
=> 'Assigned by buyer',
76 elsif ( $op eq 'delete_confirm' ) {
78 $template->param( delete_confirm
=> 1 );
81 if ( $op eq 'save' ) {
82 my $change = $input->param('oldean');
90 elsif ( $op eq 'delete_confirmed' ) {
93 my @eans = $schema->resultset('EdifactEan')->search(
99 $template->param( display
=> 1 );
100 $template->param( eans
=> \
@eans );
103 output_html_with_http_headers
( $input, $cookie, $template->output );
106 my $ean = $schema->resultset('EdifactEan')->find(
108 branchcode
=> $input->param('branchcode'),
109 ean
=> $input->param('ean')
118 my $new_ean = $schema->resultset('EdifactEan')->new(
120 branchcode
=> $input->param('branchcode'),
121 ean
=> $input->param('ean'),
122 id_code_qualifier
=> $input->param('id_code_qualifier'),
130 $schema->resultset('EdifactEan')->search(
132 branchcode
=> $input->param('oldbranchcode'),
133 ean
=> $input->param('oldean'),
137 branchcode
=> $input->param('branchcode'),
138 ean
=> $input->param('ean'),
139 id_code_qualifier
=> $input->param('id_code_qualifier'),
146 my $branchcode = $input->param('branchcode');
147 my $ean = $input->param('ean');
148 if ( $branchcode && $ean ) {
149 my $e = $schema->resultset('EdifactEan')->find(
152 branchcode
=> $branchcode,
155 $template->param( ean
=> $e );