my $verbose = shift;

            push(@{$results{'details'}}, { tag => $field->tag(), authid => $current_link, status => 'UNCHANGED'}) if $verbose;

            push(@{$results{'details'}}, { tag => $field->tag(), authid => $authid, status => $status || 'LOCAL_FOUND'}) if $verbose;

                push(@{$results{'details'}}, { tag => $field->tag(), authid => $current_link, status => 'UNCHANGED'}) if $verbose;

                    push(@{$results{'details'}}, { tag => $field->tag(), authid => $authid, status => 'CREATED'}) if $verbose;

                    push(@{$results{'details'}}, { tag => $field->tag(), authid => $authid, status => 'UNCHANGED'}) if $verbose;

                    push(@{$results{'details'}}, { tag => $field->tag(), authid => undef, status => 'NONE_FOUND'}) if $verbose;

                push(@{$results{'details'}}, { tag => $field->tag(), authid => undef, status => 'NONE_FOUND'}) if $verbose;

=head2 AddAuthorityFromHeading

  my $authid = AddAuthorityFromHeading($heading, $field, [$bib]);

Creates a new authority from an heading and its associated field.

Returns the id of the newly created authority.

=cut

sub AddAuthorityFromHeading {

    my $heading = shift;

    my $field = shift;

    my $bib = shift;

    my $authtypedata =

      C4::AuthoritiesMarc::GetAuthType( $heading->auth_type() );

    my $marcrecordauth = MARC::Record->new();

    if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {

        $marcrecordauth->leader('     nz  a22     o  4500');

        SetMarcUnicodeFlag( $marcrecordauth, 'MARC21' );

    }

    my $authfield =

      MARC::Field->new( $authtypedata->{auth_tag_to_report},

        '', '', "a" => "" . $field->subfield('a') );

    map {

        $authfield->add_subfields( $_->[0] => $_->[1] )

          if ( $_->[0] =~ /[A-z]/ && $_->[0] ne "a" )

    } $field->subfields();

    $marcrecordauth->insert_fields_ordered($authfield);

# bug 2317: ensure new authority knows it's using UTF-8; currently

# only need to do this for MARC21, as MARC::Record->as_xml_record() handles

# automatically for UNIMARC (by not transcoding)

# FIXME: AddAuthority() instead should simply explicitly require that the MARC::Record

# use UTF-8, but as of 2008-08-05, did not want to introduce that kind

# of change to a core API just before the 3.0 release.

    if ( C4::Context->preference('marcflavour') eq 'MARC21' ) {

        $marcrecordauth->insert_fields_ordered(

            MARC::Field->new(

                '667', '', '',

                'a' => "Machine generated authority record."

            )

        );

        if(defined $bib) {

            my $cite =

                $bib->author() . ", "

              . $bib->title_proper() . ", "

              . $bib->publication_date() . " ";

            $cite =~ s/^[\s\,]*//;

            $cite =~ s/[\s\,]*$//;

            $cite =

                "Work cat.: ("

              . C4::Context->preference('MARCOrgCode') . ")"

              . $bib->subfield( '999', 'c' ) . ": "

              . $cite;

            $marcrecordauth->insert_fields_ordered(

                MARC::Field->new( '670', '', '', 'a' => $cite ) );

        }

        # Add correct informations in field 008 and 040 so the authority can be linked correctly in future linkings

        my $date=POSIX::strftime("%y%m%d",localtime);

        my @heading_use = qw(b b b);

        my $thesaurus = '|';

        if ($heading->{'subject_added_entry'}) {

            $heading_use[1] = 'a';

            # Thesaurus treatment

            my %thesaurus_conv = ('lcsh'=>'a','lcac'=>'b','mesh'=>'c','nal'=>'d','notspecified'=>'n','cash'=>'k','rvm'=>'v');

            $thesaurus = 'z';

            $thesaurus = $thesaurus_conv{$heading->{'thesaurus'}} if exists $thesaurus_conv{$heading->{'thesaurus'}};

            if($thesaurus eq 'z')

            {

                $marcrecordauth->insert_fields_ordered(

                        MARC::Field->new('040','','','f'=>$heading->{'thesaurus'})

                );

            }

        }

        if ($heading->{'series_added_entry'}) {

            $heading_use[2] = 'a';

        }

        if (not $heading->{'subject_added_entry'} and not $heading->{'series_added_entry'}) {

            $heading_use[0] = 'a';

        }

        # Get a valid default value for field 008

        my $default_008 = C4::Context->preference('MARCAuthorityControlField008');

        if(!$default_008 or length($default_008)<34) {

            $default_008 = '|| aca||aabn           | a|a     d';

        }

        else {

            $default_008 = substr($default_008,0,34)

        }

        # Insert the date, thesaurus and heading_use into field 008

        my $f008 = $date . $default_008;

        substr($f008, 11, 1) = $thesaurus;

        substr($f008, 14, 3) = join('', @heading_use);

        $marcrecordauth->insert_fields_ordered(

            MARC::Field->new('008',$f008)

        );

    }

#          warn "AUTH RECORD ADDED : ".$marcrecordauth->as_formatted;

    my $authid = C4::AuthoritiesMarc::AddAuthority( $marcrecordauth, '', $heading->auth_type() );

    return $authid;

}

my $biblioindex = $input->param('biblioindex'); # Used when in popup mode to send the new autority infos to the parent biblio

if($biblioindex and !$authid){

    require C4::Heading;

    my $record = TransformHtmlToMarc( $input );

    # Get the first heading found in the biblio informations

    foreach my $field ( $record->fields() ) {

        my $heading = C4::Heading->new_from_bib_field($field);

        next unless defined $heading;

        # Create a new authority using the heading informations

        $authid = C4::Biblio::AddAuthorityFromHeading($heading, $field);

    }

}

#!/usr/bin/perl

# Frédérick Capovilla, 2011 - Libéo

#

# 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 2 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 strict;

use warnings;

use CGI;

use CGI::Cookie;

use JSON;

use C4::Auth;

use C4::Biblio;

use C4::Context;

my $input        = new CGI;

print $input->header('application/json');

# Check the user's permissions

my %cookies = fetch CGI::Cookie;

my $sessid = $cookies{'CGISESSID'}->value || $input->param('CGISESSID');

my ($auth_status, $auth_sessid) = C4::Auth::check_cookie_auth($sessid, {"catalogue"});

if ($auth_status ne "ok") {

    print to_json({status => 'UNAUTHORIZED'});

    exit 0;

}

# Link the biblio headings to authorities and return a json containing the status of all the links.

# Example : {"status":"OK","links":[{"authid":"123","status":"LINK_CHANGED","tag":"650"}]}

#

# tag = the tag number of the field

# authid = the value of the $9 subfield for this tag

# status = The status of the link (LOCAL_FOUND, NONE_FOUND, MULTIPLE_MATCH, UNCHANGED, CREATED)

my $json;

my @params = $input->param();

my $record = TransformHtmlToMarc( $input );

my $linker_module = "C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' );

eval { eval "require $linker_module"; };

if ($@) {

    $linker_module = 'C4::Linker::Default';

    eval "require $linker_module";

}

if ($@) {

    return 0, 0;

}

my $linker = $linker_module->new( { 'options' => C4::Context->preference("LinkerOptions") } );

my ( $headings_changed, $results ) = LinkBibHeadingsToAuthorities( $linker, $record, $params['frameworkcode'], C4::Context->preference("CatalogModuleRelink") || '', 1 );

$json->{status} = 'OK';

$json->{links} = $results->{details} || '';

print to_json($json);

                    //Remove the color added by the automatic linker

                    $(inputs[j]).css({backgroundColor:""});

            // Remove the status icons added by the automatic linker

            $(divs[i]).find('.subfield_status').remove();

    [% IF ( biblioindex ) %]

    <input type="hidden" name="biblioindex" value="[% biblioindex %]" />

    [% END %]

        $("#linkerbutton").click(function(){

            AutomaticLinker();

        });

function addCreateAuthorityButton(tag_subfield_line, tag, index) {

	var title = _("Create authority");

	var elem = $('<a class="subfield_status" href="#"><img src="/intranet-tmpl/[% theme %]/img/edit-tag.png" title="' + title + '" /></a>');

	tag_subfield_line.append(elem);

	elem.click(function() {

        var biblioindex = $(this).parents('.subfield_line').find('input').eq(1).attr('id');

		var popup = window.open("", "new_auth_popup",'width=700,height=550,toolbar=false,scrollbars=yes');

		if(popup !== null) {

			// Create a new form that will be POSTed in the new window

			var form = $('<form>').attr({

				method: 'post',

				action: "../authorities/authorities.pl",

				target: "new_auth_popup"

			});

			// Add the biblioindex

			form.append($('<input>').attr({

				type: 'hidden',

				name: 'biblioindex',

				value: biblioindex

			}));

			// Get all form datas for the current heading field

			$('.tag[id^=tag_' + tag + '_]').eq(index).find(':input').each(function(){

				form.append($('<input>').attr({

					type: 'hidden',

					name: this.name,

					value: $(this).val()

				}));

			});

			// We need to add the temporary form to the body so we can submit it

			$('body').append(form);

			form.submit();

			form.remove();

		}

		return false;

	});

}

/**

 * Updates the authid for every heading field

 * Adds visual feedback for the changes made on the form.

 */

function updateHeadingLinks(links) {

    var current_tag = '';

    var tag_index = 0;

    // Delete the old message dialog and create a new one

    $('#autolinker_dialog').remove();

    var message_dialog = $('<div id="autolinker_dialog" class="dialog"><strong>' + _("Automatic authority link results:") + '</strong><ul></ul></div>');

    var message_dialog_ul = message_dialog.find('ul');

    $.each(links, function(index, heading) {

        if(current_tag == heading.tag) {

            tag_index++;

        }

        else {

            current_tag = heading.tag;

            tag_index = 0;

        }

        // Find the $9 field to update

        var tag_subfield_line = $('.subfield_line[id^=subfield' + heading.tag + '9]').eq(tag_index);

        var subfield = tag_subfield_line.children('.input_marceditor').eq(0);

        // Delete the old status if one exists

        tag_subfield_line.children('.subfield_status').remove();

        subfield.css({backgroundColor:''});

        // If the field wasn't modified. Skip it.

        if(heading.status == 'UNCHANGED') {

            return;

        }

        // Make the subfield line visible and update its value

        tag_subfield_line.show();

        subfield.val(heading.authid);

        // Add the new status

        var image = 'deny.gif';

        var message = '';

        var field_color = '#FFAAAA';

        switch(heading.status) {

            case 'LOCAL_FOUND':

                image = 'approve.gif';

                message = _("A matching authority was found in the local database.");

                field_color = '#99FF99';

                break;

            case 'CREATED':

                image = 'approve.gif';

                message = _("No matching authority found. A new authority was created automatically.");

                field_color = '#99FF99';

                break;

            case 'MULTIPLE_MATCH':

                message = _("More than one local match found. Possibly a duplicate authority!");

                break;

            case 'NONE_FOUND':

                message = _("No matching authority found.");

                break;

            default:

                message = heading.status;

                break;

        }

        subfield.css({backgroundColor:field_color});

        tag_subfield_line.append('<img class="subfield_status" src="/intranet-tmpl/[% theme %]/img/' + image + '" title="' + message + '" />');

        // Add the message to the dialog

        message_dialog_ul.append('<li><strong>' + heading.tag + '</strong> - ' + message + '</li>');

        // Add a link to create a new authority if none was found

        if(heading.status == 'NONE_FOUND') {

			addCreateAuthorityButton(tag_subfield_line, heading.tag, tag_index);

        }

    });

    if(message_dialog.find('li').length == 0) {

        message_dialog_ul.append("<li>" + _("No authority link was changed.") + "</li>");

    }

    $('#addbibliotabs').before(message_dialog);

}

/**

 * Use an ajax request to automatically find authority links for the current record

 */

function AutomaticLinker() {

    // Show the Loading overlay

    $("#loading").show();

    // Remove fields that are completely empty

    $('#f').find('.tag').each(function() {

        var empty = true;

        $(this).find('.input_marceditor').each(function() {

            if($(this).val() != '') {

                empty = false;

                return false;

            }

        });

        if(empty) {

            UnCloneField($(this).attr('id'));

        }

    });

    // Get all the form values to post via AJAX

    var form_data = {};

    $('#f').find(':input').each(function(){

        form_data[this.name] = $(this).val();

    });

    delete form_data[''];

    // Send the data to automatic_linker.pl

    $.ajax({

        url:'/cgi-bin/koha/cataloguing/automatic_linker.pl',

        type:'post',

        data: form_data,

        dataType: 'json',

        error: function(xhr) {

            alert("Error : \n" + xhr.responseText);

        },

        success: function(json) {

            switch(json.status) {

                case 'UNAUTHORIZED':

                    alert(_("Error : You do not have the permissions necessary to use this functionality."));

                    break;

                case 'OK':

                    updateHeadingLinks(json.links);

                    break;

            }

        },

        complete: function() {

            $("#loading").hide();

        }

    });

}

        <div class="btn-group"><a class="btn btn-small" href="#" id="linkerbutton"><i class="icon-ok"></i> Link authorities automatically</a></div>