3 # Copyright 2013 C & P Bibliography Services
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.
25 use C4
::AuthoritiesMarc
;
26 use Koha
::MetadataRecord
::Authority
;
31 my @authid = $input->param('authid');
32 my $merge = $input->param('merge');
36 my ( $template, $loggedinuser, $cookie ) = get_template_and_user
(
38 template_name
=> "authorities/merge.tt",
42 flagsrequired
=> { editauthorities
=> 1 },
46 #------------------------
48 #------------------------
51 # Creating a new record from the html code
52 my $record = TransformHtmlToMarc
($input, 0);
53 my $recordid1 = $input->param('recordid1');
54 my $recordid2 = $input->param('recordid2');
55 my $typecode = $input->param('frameworkcode');
57 # Rewriting the leader
58 $record->leader( GetAuthority
($recordid1)->leader() );
60 # Modifying the reference record
61 ModAuthority
( $recordid1, $record, $typecode );
63 # Deleting the other record
64 if ( scalar(@errors) == 0 ) {
67 if ($input->param('mergereference') eq 'breeding') {
68 require C4
::ImportBatch
;
69 C4
::ImportBatch
::SetImportRecordStatus
( $recordid2, 'imported' );
71 C4
::AuthoritiesMarc
::merge
( $recordid2, GetAuthority
($recordid2), $recordid1, $record );
72 $error = (DelAuthority
($recordid2) == 0);
74 push @errors, $error if ($error);
80 recordid1
=> $recordid1
83 #-------------------------
84 # Show records to merge
85 #-------------------------
88 my $mergereference = $input->param('mergereference');
89 $template->{'VARS'}->{'mergereference'} = $mergereference;
91 if ( scalar(@authid) != 2 ) {
92 push @errors, { code
=> "WRONG_COUNT", value
=> scalar(@authid) };
95 my $recordObj1 = Koha
::MetadataRecord
::Authority
->get_from_authid($authid[0]) || Koha
::MetadataRecord
::Authority
->new();
98 if (defined $mergereference && $mergereference eq 'breeding') {
99 $recordObj2 = Koha
::MetadataRecord
::Authority
->get_from_breeding($authid[1]) || Koha
::MetadataRecord
::Authority
->new();
101 $recordObj2 = Koha
::MetadataRecord
::Authority
->get_from_authid($authid[1]) || Koha
::MetadataRecord
::Authority
->new();
104 if ($mergereference) {
107 if ( $recordObj1->authtypecode ne $recordObj2->authtypecode && $mergereference ne 'breeding' ) {
108 $framework = $input->param('frameworkcode')
109 or push @errors, { code
=> 'FRAMEWORK_NOT_SELECTED' };
112 $framework = $recordObj1->authtypecode;
114 if ($mergereference eq 'breeding') {
115 $mergereference = $authid[0];
118 # Getting MARC Structure
119 my $tagslib = GetTagsLabels
( 1, $framework );
120 foreach my $field ( keys %$tagslib ) {
121 if ( defined $tagslib->{$field}->{'tab'} && $tagslib->{$field}->{'tab'} eq ' ' ) {
122 $tagslib->{$field}->{'tab'} = 0;
126 #Setting $notreference
127 my $notreference = $authid[1];
128 if($mergereference == $notreference){
129 $notreference = $authid[0];
130 #Swap so $recordObj1 is always the correct merge reference
131 ($recordObj1, $recordObj2) = ($recordObj2, $recordObj1);
134 # Creating a loop for display
136 my @record1 = $recordObj1->createMergeHash($tagslib);
137 my @record2 = $recordObj2->createMergeHash($tagslib);
141 recordid1
=> $mergereference,
142 recordid2
=> $notreference,
145 framework
=> $framework,
150 # Ask the user to choose which record will be the kept
152 choosereference
=> 1,
153 recordid1
=> $authid[0],
154 recordid2
=> $authid[1],
155 title1
=> $recordObj1->authorized_heading,
156 title2
=> $recordObj2->authorized_heading,
158 if ( $recordObj1->authtypecode ne $recordObj2->authtypecode ) {
159 my $authority_types = Koha
::Authority
::Types
->search( {}, { order_by
=> ['authtypecode'] } );
161 while ( my $authority_type = $authority_types->next ) {
163 value
=> $authority_type->authtypecode,
164 frameworktext
=> $authority_type->authtypetext,
166 push @frameworkselect, \
%row;
169 frameworkselect
=> \
@frameworkselect,
170 frameworkcode1
=> $recordObj1->authtypecode,
171 frameworkcode2
=> $recordObj2->authtypecode,
172 frameworklabel1
=> $recordObj1->authtypetext,
173 frameworklabel2
=> $recordObj2->authtypetext,
180 my $authority_types = Koha
::Authority
::Types
->search({}, { order_by
=> ['authtypetext']});
181 $template->param( authority_types
=> $authority_types );
186 $template->param( errors
=> \
@errors );
189 output_html_with_http_headers
$input, $cookie, $template->output;
196 # ------------------------
198 # ------------------------