#!/usr/bin/perl

use Modern::Perl;
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Context;

use C4::Search;
use C4::Output;
use Koha::Util::FrameworkPlugin qw|date_entered|;
use utf8;

my $builder = sub {
    my ( $params ) = @_;
    my $val = {
        function_name => $params->{id},
    };

    my $res = <<'EOJS';
<script>
function Change[% function_name %](event) {
    var inputField = $(event.target);
    var isbnNoDash = inputField.val().replace(/-/g,'');
    var field      = inputField.attr('id').replace(/_subfield_.*$/,'');

    if ( isbnNoDash ) {
         $(inputField.closest('ul').find('input[id^="' + field + '_subfield_a"]')[0]).val(isbnNoDash);
    } else {
         $(inputField.closest('ul').find('input[id^="' + field + '_subfield_a"]')[0]).val('');
    }
}

</script>
EOJS

    $res =~ s{\[%\s?(.*?)\s?%\]}{$val->{$1} // ''}eg;

    return $res;
};

return { builder => $builder, };

