use C4::Barcodes::preyyyymmincr;

package C4::Barcodes::ValueBuilder::preyyyymmincr;

use C4::Context;

use YAML::XS;

my $DEBUG = 0;

sub get_barcode {

    my ($args) = @_;

    my $nextnum;

    my $barcode;

    my $branchcode = $args->{branchcode};

    my $query;

    my $sth;

    # Getting the barcodePrefixes

    my $branchPrefixes = C4::Context->preference("BarcodePrefix");

    my $yaml = YAML::XS::Load(

                    Encode::encode(

                        'UTF-8',

                        $branchPrefixes,

                        Encode::FB_CROAK

                    )

                );

    my $prefix = $yaml->{$branchcode} || $yaml->{'Default'};

    $query = "SELECT MAX(CAST(SUBSTRING(barcode,-4) AS signed)) from items where barcode REGEXP ?";

    $sth=C4::Context->dbh->prepare($query);

    $sth->execute("^$prefix$args->{year}$args->{mon}");

    while (my ($count)= $sth->fetchrow_array) {

        $nextnum = $count if $count;

        $nextnum = 0 if $nextnum && $nextnum == 9999;

    }

    $nextnum++;

    $nextnum = sprintf("%0*d", "5",$nextnum);

    $barcode = $prefix;

    $barcode .= $args->{year}.$args->{mon}.$nextnum;

    my $scr = qq~

        let elt = \$("#"+id);

        let branchcode = elt.parents('fieldset.rows:first')

                            .find('input[name="kohafield"][value="items.homebranch"]')

                            .siblings("select")

                            .val();

        if ( \$(elt).val() == '' ) {

            \$(elt).val('$barcode');

        }

    ~;

    return $barcode, $scr;

}

package C4::Barcodes::preyyyymmincr;

# Copyright 2022 Koha Development team

#

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use strict;

use warnings;

use Carp qw( carp );

use C4::Context;

use Koha::DateUtils qw( dt_from_string output_pref );

use vars qw(@ISA);

BEGIN {

    @ISA = qw(C4::Barcodes);

}

sub new_object {

    my $class = shift;

	my $type = ref($class) || $class;

	my $self = $type->default_self('preyyyymmincr');

    my $branchcode = C4::Context->userenv->{'branch'};

    my $branchPrefixes = C4::Context->preference("BarcodePrefix");

    my $yaml = YAML::XS::Load(

                    Encode::encode(

                        'UTF-8',

                        $branchPrefixes,

                        Encode::FB_CROAK

                    )

                );

    my $prefix = $yaml->{$branchcode} || $yaml->{'Default'};

    $self->{prefix} = $prefix;

    $self->{datetime} = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });

	return bless $self, $type;

}

sub initial {

    my $self = shift;

    my $prefix = $self->{prefix};

    my ($year, $month, $day) = split('-', $self->{datetime});

    return $prefix.$year.$month.'00001';

}

sub db_max {

    my $self = shift;

    my $prefix = $self->{prefix};

    my ($year, $month, $day) = split('-', $self->{datetime});

    my $query = "SELECT MAX(CAST(SUBSTRING(barcode,-4) AS signed)) from items where barcode REGEXP ?";

    my $sth=C4::Context->dbh->prepare($query);

    $sth->execute("^$prefix$year$month");

    my $nextnum;

    while (my ($count)= $sth->fetchrow_array) {

        $nextnum = $count if $count;

        $nextnum = 0 if $nextnum && $nextnum == 9999;

    }

    $nextnum = sprintf("%0*d", "5",$nextnum);

    return $nextnum;

}

sub parse {

    my $self = shift;

    my $prefix = $self->{prefix};

    my ($year, $month, $day) = split('-', $self->{datetime});

    my $head = $prefix.$year.$month;

    my $incr = (@_) ? shift : $self->value;

    my $barcode = $head.$incr;

    unless ($incr){

        carp "Barcode '$barcode' has no incrementing part!";

		return ($barcode,undef,undef);

    }

    return ($head, $incr, '');

}

1;

__END__

    ($args{branchcode}) = C4::Context->userenv->{'branch'};

    elsif ($autoBarcodeType eq 'preyyyymmincr') {      # Generates a barcode where pre = branch specific prefix set on systempreference BarcodePrefix, yyyymm = year/month catalogued, incr = incremental number

        ($nextnum, $scr) = C4::Barcodes::ValueBuilder::preyyyymmincr::get_barcode(\%args);

    }

    ($args{branchcode}) = C4::Context->userenv->{'branch'};

    elsif ($autoBarcodeType eq 'preyyyymmincr') {      # Generates a barcode where pre = branch specific prefix set on systempreference BarcodePrefix, yyyymm = year/month catalogued, incr = incremental number

        ($nextnum, $scr) = C4::Barcodes::ValueBuilder::preyyyymmincr::get_barcode(\%args);

    }

use Modern::Perl;

return {

    bug_number => "30328",

    description => "Add option to create barcode with branch specific prefix",

    up => sub {

        my ($args) = @_;

        my ($dbh, $out) = @$args{qw(dbh out)};

        # Do you stuffs here

        $dbh->do(q{ UPDATE IGNORE systempreferences SET options = 'incremental|annual|hbyymmincr|EAN13|preyyyymmincr|OFF' , explanation = 'Used to autogenerate a barcode: incremental will be of the form 1, 2, 3; annual of the form 2007-0001, 2007-0002; hbyymmincr of the form HB08010001 where HB=Home Branch; preyyyymmincr of the form PRE2021030001 where PRE = branch specific prefix set on systempreference BarcodePrefix' WHERE variable = 'autoBarcode'});

        $dbh->do(q{ INSERT IGNORE INTO systempreferences ( variable, value, options, explanation, type ) VALUES ('BarcodePrefix','','','Defines the barcode prefixes when the autoBarcode value is set as preyyyymmincr','Textarea')});

        # Print useful stuff here

        say $out "Update is going well so far";

    },

};

('BarcodePrefix','','','Defines the barcode prefixes when the autoBarcode value is set as preyyyymmincr','Textarea'),

                  preyyyymmincr: generated in the form <prefix>yyyymm00001.

            - Define the behavior of the <code><&#8203;prefix>yyyymm00001</code> option using <a href="/cgi-bin/koha/admin/preferences.pl?op=search&searchfield=BarcodePrefix">BarcodePrefix</a>.

        -

            - "Define branch specific barcode prefixes in a YAML format."

            - "This defines the behavior of the <code><&#8203;prefix>yyyymm00001</code> option of <a href='/cgi-bin/koha/admin/preferences.pl?op=search&searchfield=autoBarcode'>autoBarcode</a>."

            - "Barcodes generated look like: <code>DEF20220400001</code>"

            - pref: BarcodePrefix

              type: textarea

              syntax: text/x-yaml

              class: code

#!/usr/bin/perl

use strict;

use warnings;

use Test::More tests => 1;

BEGIN {

        use_ok('C4::Barcodes::preyyyymmincr');

}

use t::lib::Mocks;

$dbh->do(q|DELETE FROM items|);

my $library_1 = $builder->build_object( { class => 'Koha::Libraries' } );

my $prefix_yaml = 'Default: DEF

'.$library_1->branchcode.': TEST';

t::lib::Mocks::mock_preference( 'BarcodePrefix', $prefix_yaml );

my $item_6 = $builder->build_sample_item(

    {

        barcode => 'TEST20120700001',

        homebranch   => $library_1->branchcode

    }

);

($args{branchcode}) = $library_1->branchcode;

($nextnum, $scr) = C4::Barcodes::ValueBuilder::preyyyymmincr::get_barcode(\%args);

is($nextnum, 'TEST20120700002', 'preyyyymmincr barcode test branch specific prefix');

ok(length($scr) > 0, 'preyyyymmincr javascript');

$dbh->do(q|DELETE FROM items|);

my $library_2 = $builder->build_object( { class => 'Koha::Libraries' } );

($args{branchcode}) = $library_2->branchcode;

($nextnum, $scr) = C4::Barcodes::ValueBuilder::preyyyymmincr::get_barcode(\%args);

is($nextnum, 'DEF20120700001', 'preyyyymmincr barcode test default prefix');