- if (
- $bib_record->subfield(
- $barcodetagfield, $barcodetagsubfield
- )
- )
- {
- $exists = GetItemnumberFromBarcode(
- $bib_record->subfield(
- $barcodetagfield, $barcodetagsubfield
- )
- );
+ if ( $bib_record->subfield( $barcodetagfield, $barcodetagsubfield ) ) {
+ my $barcode = $bib_record->subfield( $barcodetagfield, $barcodetagsubfield );
+
+ if ($copy > 0){
+ use C4::Barcodes;
+ my $barcodeobj = C4::Barcodes->new;
+ my $newbarcode = $barcodeobj->next_value($barcode);
+ $barcode = $newbarcode;
+ $bib_record->field($barcodetagfield)->update($barcodetagsubfield => $barcode);
+ }
+
+ $exists = Koha::Items->find({barcode => $barcode});