Lines 90-105
foreach my $index ( ('biblios','authorities') ){
Link Here
|
90 |
my $opac_base = C4::Context->preference('OPACBaseURL'); |
90 |
my $opac_base = C4::Context->preference('OPACBaseURL'); |
91 |
|
91 |
|
92 |
|
92 |
|
93 |
foreach my $problem (@diff){ |
93 |
my @koha_problems; |
|
|
94 |
my @es_problems; |
95 |
foreach my $problem ( sort { $a <=> $b } @diff){ |
94 |
if ( (grep /^$problem$/, @db_records) ){ |
96 |
if ( (grep /^$problem$/, @db_records) ){ |
95 |
print "Record $problem exists in Koha but not ES\n"; |
97 |
push @koha_problems, $problem; |
|
|
98 |
} else { |
99 |
push @es_problems, $problem; |
100 |
} |
101 |
} |
102 |
|
103 |
if ( @koha_problems ){ |
104 |
print "=================\n"; |
105 |
print "Records that exist in Koha but not in ES\n"; |
106 |
for my $problem ( @koha_problems ){ |
96 |
if ( $index eq 'biblios' ) { |
107 |
if ( $index eq 'biblios' ) { |
|
|
108 |
print " #$problem"; |
97 |
print " Visit here to see record: $opac_base/cgi-bin/koha/opac-detail.pl?biblionumber=$problem\n"; |
109 |
print " Visit here to see record: $opac_base/cgi-bin/koha/opac-detail.pl?biblionumber=$problem\n"; |
98 |
} elsif ( $index eq 'authorities' ) { |
110 |
} elsif ( $index eq 'authorities' ) { |
|
|
111 |
print "#$problem"; |
99 |
print " Visit here to see record: $opac_base/cgi-bin/koha/opac-authoritiesdetail.pl?authid=$problem\n"; |
112 |
print " Visit here to see record: $opac_base/cgi-bin/koha/opac-authoritiesdetail.pl?authid=$problem\n"; |
100 |
} |
113 |
} |
101 |
} else { |
114 |
} |
102 |
print "Record $problem exists in ES but not Koha\n"; |
115 |
} |
|
|
116 |
if ( @es_problems ){ |
117 |
print "=================\n"; |
118 |
print "Records that exist in ES but not in Koha\n"; |
119 |
for my $problem ( @es_problems ){ |
120 |
print " #$problem"; |
103 |
print " Enter this command to view record: curl $es_base/data/$problem?pretty=true\n"; |
121 |
print " Enter this command to view record: curl $es_base/data/$problem?pretty=true\n"; |
104 |
} |
122 |
} |
105 |
} |
123 |
} |
106 |
- |
|
|