- 

#!/usr/bin/perl

use Modern::Perl;

my $builder = sub {

    my ($params) = @_;

    my $field_number = $params->{id};

    my $res = "

<script type=\"text/javascript\" charset=\"utf-8\">

//<![CDATA[

function Change$field_number() {

    var cn_value   = jQuery('#$field_number').val();

    var itemnumber = jQuery('input[name=\"itemnumber\"]').val();

    if ( cn_value == '' ) change_color();

    else api_item_count( cn_value, itemnumber, change_color );

    return 1;

}

function change_color (color) {

    jQuery('#$field_number').removeClass( 'callnumber_green callnumber_red' );

    if ( color ) jQuery('#$field_number').addClass( 'callnumber_' + color );

}

function api_item_count ( cn_value, itemnumber, callback ) {

    var condition = JSON.stringify(

        itemnumber ?

        { 'callnumber': cn_value, 'itemnumber': { '-not_like' : itemnumber } } :

        { 'callnumber': cn_value } );

    jQuery.ajax({

        method: 'GET',

        url: '/api/v1/items?q=' + condition,

    }).done(function (data) {

        console.log( cn_value + ': ' + data.length );

        callback( data.length ? 'red' : 'green' );

    }).fail(function () {

        alert('An error occurred when checking callnumber');

    });

}

//]]>

</script>";

    return $res;

};

return { builder => $builder };