#editor .subfield-widget button {

    font-family: inherit;

    font-size: inherit;

    margin-left: 5px;

    vertical-align: middle;

}

    Widget.Register( '001@', {

        init: function() {

            var $result = $(

                '<span class="subfield-widget">'

                + _("Control number: ")

                + '<span class="control-number-widget-contents"></span>'

                + '<button class="control-number-widget-assign">' + _("Assign next") + '</button>'

                + '<select class="control-number-widget-sequence"></select>'

                + '<button class="control-number-widget-override">' + _("Override") + '</button>'

                + '</span>'

            );

            return $result[0];

        },

        setControlNumber: function( text ) {

            if ( text ) this.setText( text );

            $( this.node ).find('.control-number-widget-contents')

                .html( text == '<empty>' ? ( '<span class="hint">' + _("unset") + '</span>' ) : text );

            this.mark.changed();

        },

        postCreate: function( node, mark ) {

            var widget = this;

            this.setControlNumber( this.text );

            $( this.node )

                .find('.control-number-widget-assign').click( function() {

                    var sequence = $( widget.node ).find('.control-number-widget-sequence').val();

                    $.post(

                        '/cgi-bin/koha/svc/cataloguing/control_num_sequences/' + sequence

                    ).done( function( result ) {

                        if ( result.next_value ) widget.setControlNumber( result.next_value );

                    } );

                } ).end()

                .find('.control-number-widget-override').click( function() {

                    var result = prompt( _("Enter new control number") );

                    if ( result ) widget.setControlNumber( result );

                } ).end();

            var sequence_list = $.map( KohaBackend.GetAuthorisedValues( 'CONTROL_NUM_SEQUENCE' ), function( authval ) {

                return authval.lib;

            } );

            sequence_list.sort();

            if(sequence_list.length){

                $.each( sequence_list, function( undef, sequence ) {

                    $( widget.node ).find('.control-number-widget-sequence').append( '<option>' + sequence + '</option>' );

                } );

            } else {

                $(".control-number-widget-assign").remove()

                $(".control-number-widget-sequence").remove();

                $(".control-number-widget-override").text( _('Manually assign') );

                $(".control-number-widget-override").attr('title', _('Define a CONTROL_NUM_SEQUENCE authorised value category with value set to initial value to enable auto-generation') );

            }

            // TODO: Make Enter on select click "Assign"

        }

    } );

#!/usr/bin/perl

#

# Copyright 2015 ByWater Solutions

#

# 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, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use C4::Service;

use Koha::Database;

use MARC::Record;

our ( $query, $response ) = C4::Service->init( editcatalogue => 'edit_catalogue' );

sub get_and_increment {

    my ( $control_num_sequence ) = @_;

    my $schema = Koha::Database->new->schema();

    my $authval = $schema->resultset( 'AuthorisedValue' )->find(

        {

            category => 'CONTROL_NUM_SEQUENCE',

            lib => $control_num_sequence

        }

    );

    if ( !$authval ) {

        C4::Service->return_error( 'not_found' );

    }

    my $value = $authval->authorised_value;

    $response->param( next_value => $value );

    my ( $prefix, $num ) = ( $value =~ /(.+?)(\d+)$/ );

    $value = $prefix . sprintf( '%0*d', length( $num ), $num + 1 );

    $authval->authorised_value( $value );

    $authval->update();

    C4::Service->return_success( $response );

}

C4::Service->dispatch(

    [ 'POST /(.*)', [], \&get_and_increment ],

);