Lines 37-48
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
37 |
); |
37 |
); |
38 |
|
38 |
|
39 |
my $schema = Koha::Database->new()->schema(); |
39 |
my $schema = Koha::Database->new()->schema(); |
40 |
my $op = $input->param('op'); |
40 |
|
41 |
$op ||= 'display'; |
41 |
my $id = scalar $input->param('id'); |
|
|
42 |
my $op = scalar $input->param('op') || 'display'; |
42 |
|
43 |
|
43 |
if ( $op eq 'ean_form' ) { |
44 |
if ( $op eq 'ean_form' ) { |
44 |
show_ean(); |
45 |
my $e = $schema->resultset('EdifactEan')->find($id); |
45 |
$template->param( ean_form => 1 ); |
|
|
46 |
my @branches = $schema->resultset('Branch')->search( |
46 |
my @branches = $schema->resultset('Branch')->search( |
47 |
undef, |
47 |
undef, |
48 |
{ |
48 |
{ |
Lines 50-73
if ( $op eq 'ean_form' ) {
Link Here
|
50 |
order_by => 'branchname', |
50 |
order_by => 'branchname', |
51 |
} |
51 |
} |
52 |
); |
52 |
); |
53 |
$template->param( branches => \@branches ); |
53 |
$template->param( |
|
|
54 |
ean_form => 1, |
55 |
branches => \@branches, |
56 |
ean => $e, |
57 |
); |
54 |
} |
58 |
} |
55 |
elsif ( $op eq 'delete_confirm' ) { |
59 |
elsif ( $op eq 'delete_confirm' ) { |
56 |
show_ean(); |
60 |
my $e = $schema->resultset('EdifactEan')->find($id); |
57 |
$template->param( delete_confirm => 1 ); |
61 |
$template->param( |
|
|
62 |
delete_confirm => 1, |
63 |
ean => $e, |
64 |
); |
58 |
} |
65 |
} |
59 |
else { |
66 |
else { |
60 |
if ( $op eq 'save' ) { |
67 |
if ( $op eq 'save' ) { |
61 |
my $change = $input->param('id'); |
68 |
my $change = $id; |
62 |
if ($change) { |
69 |
if ($change) { |
63 |
editsubmit(); |
70 |
$schema->resultset('EdifactEan')->find($id)->update( |
|
|
71 |
{ |
72 |
branchcode => $input->param('branchcode'), |
73 |
description => $input->param('description'), |
74 |
ean => $input->param('ean'), |
75 |
id_code_qualifier => $input->param('id_code_qualifier'), |
76 |
} |
77 |
); |
64 |
} |
78 |
} |
65 |
else { |
79 |
else { |
66 |
addsubmit(); |
80 |
my $new_ean = $schema->resultset('EdifactEan')->new( |
|
|
81 |
{ |
82 |
branchcode => $input->param('branchcode'), |
83 |
description => $input->param('description'), |
84 |
ean => $input->param('ean'), |
85 |
id_code_qualifier => $input->param('id_code_qualifier'), |
86 |
} |
87 |
); |
88 |
$new_ean->insert(); |
67 |
} |
89 |
} |
68 |
} |
90 |
} |
69 |
elsif ( $op eq 'delete_confirmed' ) { |
91 |
elsif ( $op eq 'delete_confirmed' ) { |
70 |
delsubmit(); |
92 |
my $e = $schema->resultset('EdifactEan')->find($id); |
|
|
93 |
$e->delete if $e; |
71 |
} |
94 |
} |
72 |
my @eans = $schema->resultset('EdifactEan')->search( |
95 |
my @eans = $schema->resultset('EdifactEan')->search( |
73 |
{}, |
96 |
{}, |
Lines 101-143
$template->param(
Link Here
|
101 |
); |
124 |
); |
102 |
|
125 |
|
103 |
output_html_with_http_headers( $input, $cookie, $template->output ); |
126 |
output_html_with_http_headers( $input, $cookie, $template->output ); |
104 |
|
|
|
105 |
sub delsubmit { |
106 |
my $id = $input->param('id'); |
107 |
my $e = $schema->resultset('EdifactEan')->find( $id ); |
108 |
$e->delete if $e; |
109 |
return; |
110 |
} |
111 |
|
112 |
sub addsubmit { |
113 |
|
114 |
my $new_ean = $schema->resultset('EdifactEan')->new( |
115 |
{ |
116 |
branchcode => $input->param('branchcode'), |
117 |
description => $input->param('description'), |
118 |
ean => $input->param('ean'), |
119 |
id_code_qualifier => $input->param('id_code_qualifier'), |
120 |
} |
121 |
); |
122 |
$new_ean->insert(); |
123 |
return; |
124 |
} |
125 |
|
126 |
sub editsubmit { |
127 |
$schema->resultset('EdifactEan')->find( $input->param('id') )->update( |
128 |
{ |
129 |
branchcode => $input->param('branchcode'), |
130 |
description => $input->param('description'), |
131 |
ean => $input->param('ean'), |
132 |
id_code_qualifier => $input->param('id_code_qualifier'), |
133 |
} |
134 |
); |
135 |
return; |
136 |
} |
137 |
|
138 |
sub show_ean { |
139 |
my $id = $input->param('id'); |
140 |
my $e = $schema->resultset('EdifactEan')->find( $id ); |
141 |
$template->param( ean => $e ); |
142 |
return; |
143 |
} |
144 |
- |