Attachment #56613 for bug #14367

View | Details | Raw Unified | Return to bug 14367
Collapse All | Expand All




use MARC::File::XML;
use POSIX qw(strftime);
use Module::Load::Conditional qw(can_load);
use JSON qw(encode_json decode_json);

use C4::Koha;
use C4::Log;    # logaction

use Koha::Acquisition::Currencies;
use Koha::SearchEngine;
use Koha::Libraries;
use Koha::MetadataRecord::History;

use vars qw(@ISA @EXPORT);
use vars qw($debug $cgi_debug);

      &GetMarcISBN
      &GetMarcISSN
      &GetMarcSubjects
      &GetMarcBiblio
      &GetMarcAuthors
      &GetMarcSeries
      &GetMarcHosts

    # update MARC subfield that stores biblioitems.cn_sort
    _koha_marc_update_biblioitem_cn_sort( $record, $olddata, $frameworkcode );

    # now add the record (history parameter is undef: no history yet])
    ModBiblioMarc( $record, $biblionumber, $frameworkcode, undef ) unless $defer_marc_save;

    # update OAI-PMH sets
    if(C4::Context->preference("OAI-PMH:AutoUpdateSets")) {

    # update biblionumber and biblioitemnumber in MARC
    # FIXME - this is assuming a 1 to 1 relationship between
    # biblios and biblioitems
    my $sth = $dbh->prepare("select biblioitemnumber,history from biblioitems where biblionumber=?");
    $sth->execute($biblionumber);
    my ($biblioitemnumber, $history) = $sth->fetchrow;
    $sth->finish();
    _koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber, $biblioitemnumber );


    _koha_marc_update_biblioitem_cn_sort( $record, $oldbiblio, $frameworkcode );

    # update the MARC record (that now contains biblio and items) with the new record data
    &ModBiblioMarc( $record, $biblionumber, $frameworkcode, $history );

    # modify the other koha tables
    _koha_modify_biblio( $dbh, $oldbiblio, $frameworkcode );

sub ModBiblioMarc {
    # pass the MARC::Record to this function, and it will create the records in
    # the marc field
    my ( $record, $biblionumber, $frameworkcode, $history ) = @_;
    if ( !$record ) {
        carp 'ModBiblioMarc passed an undefined record';
        return;

      $f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005;
    }

    # Decode JSON history, create new record, update and re-encode to JSON.
    my $historylength = 10;
	eval {
		$history = decode_json($history);
		1;
	} or do {
		$history = undef;
	};
    my $newrecord = HistoryRecordNew($record);
    my $newhistory = HistoryUpdate($newrecord, $historylength, $history);
    $newhistory = encode_json($newhistory);

    $sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=?,history=? WHERE biblionumber=?");
    $sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $newhistory, $biblionumber );
    $sth->finish;
    ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record );
    return $biblionumber;




package Koha::MetadataRecord::History;

# Copyright 2016 Aleisha Amohia <aleisha@catalyst.net.nz>
#
# 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 C4::Charset;
use JSON qw(decode_json);

use vars qw(@ISA @EXPORT);

BEGIN {
    require Exporter;
    @ISA = qw( Exporter );

    push @EXPORT, qw(
        &GetMarcBiblioHistory
        &HistoryUpdate
        &HistoryParse
        &HistoryMapUsers
        &HistoryBorrowerDetails
        &HistoryRecordNew
    );
 }

=head1 NAME

Koha::MetadataRecord::History - tracking changes to MARC records

=head1 DESCRIPTION

Koha::MetadataRecord::History not only tracks changes to MARC records and presents them in a log, but also allows users to
roll them back, either in batch to a previous point in the history or separately for each field (so you can roll back changes
to a field without changing fields that may have been changed after this one).

=head2 GetMarcBiblioHistory

    my ($record, $history) = GetMarcBiblio($biblionumber, [$embeditems]);

Returns MARC::Record representing bib identified by C<$biblionumber>.  If no bib exists, returns undef.
C<$biblionumber>.  If no bib exists, returns undef.
C<$embeditems>.  If set to true, items data are included.
The MARC record contains biblio data, and items data if $embeditems is set to true.

=cut

sub GetMarcBiblioHistory {
    my $biblionumber = shift;
    my $embeditems   = shift || 0;
    if (not defined $biblionumber) {
        warn "GetMarcBiblio called with undefined biblionumber";
        return;
    }
    my $dbh = C4::Context->dbh;
    my $sth = $dbh->prepare("SELECT marcxml,history FROM biblioitems WHERE biblionumber=? ");
    $sth->execute($biblionumber);
    my $row = $sth->fetchrow_hashref;
    my $marcxml = StripNonXmlChars( $row->{'marcxml'} );
    MARC::File::XML->default_record_format( C4::Context->preference('marcflavour') );
    my $record = MARC::Record->new();
    my ($history, $borrowers) = HistoryParse( $row->{'history'} );
    $borrowers = HistoryBorrowerDetails( $borrowers );
    $history = HistoryMapUsers( $history, $borrowers );
    if ($marcxml) {
        $record = eval { MARC::Record::new_from_xml( $marcxml, "utf8", C4::Context->preference('marcflavour') ) };
        if ($@) { warn " problem with :$biblionumber : $@ \n$marcxml"; }
            return unless $record;
            C4::Biblio::_koha_marc_update_bib_ids($record, '', $biblionumber, $biblionumber);
            C4::Biblio::EmbedItemsInMarcBiblio($record, $biblionumber) if ($embeditems);
            return ($record, $history);
    } else {
        return;
    }
}

=head2 HistoryParse

Input format (JSON): [ { datetime, borrowernumber, marcxml } ]
Output format: { tag } { subfield } [ { borrowernumber, data, datetime } ]

=cut

sub HistoryParse {
    my $json = shift;
    if (!defined $json) {
        warn "HistoryParse: Missing JSON parameter";
        return undef;
    }
    my $input = decode_json($json);
    # Reindex the dataset; order all values by datetime under each tag name.
    my $borrowers = { };
    my $output = { };
    for my $item (@{$input}) {
        my $datetime = $item->{datetime};
        $borrowers->{ $item->{borrowernumber }} = undef;
        my $record = MARC::File::XML::decode($item->{marcxml});
        for my $field ($record->fields()) {
            my $tag = $field->tag();
            $output->{$tag} = {} unless defined $output->{$tag};
            for my $subfield ($field->subfields()) {
                # Build hash ref structure.
                my $subfield_tag = @{$subfield}[0];
                $output->{$tag}->{$subfield_tag} = []
                unless defined $output->{$tag}->{$subfield_tag};
                push( @{ $output->{$tag}->{$subfield_tag} }, HistoryParsedRecordNew(
                    @{ $subfield }[1], $item->{borrowernumber}, $datetime));
                }
            }
        }
    return ( $output, $borrowers );
}

=head2 HistoryBorrowerDetails

Take a hashref with borrowernumbers as keys, returns new hash with the
borrowernumber as key to hash containing firstname, surname and title.

=cut

sub HistoryBorrowerDetails {
    my $borrowernumbers = shift;
    my $dbh = C4::Context->dbh;
    my $output = { };
    my @numbers = keys %{$borrowernumbers};
    if (@numbers > 0) {
        # We now need to look up the numeric user id's and map to name and title strings.
        my $sth = $dbh->prepare(qq{SELECT
            borrowernumber, title, firstname, surname
            FROM borrowers
            WHERE borrowernumber IN}
            . '(' . join(',', ('?') x @numbers) . ')');
        $sth->execute(@numbers)
            or die ('BorrowerDetails: Unable to execute SELECT statement');
        while (my $row = $sth->fetchrow_hashref()) {
            $output->{ $row->{borrowernumber} } = { };
            $output->{ $row->{borrowernumber} }->{title}     = $row->{title};
            $output->{ $row->{borrowernumber} }->{firstname} = $row->{firstname};
            $output->{ $row->{borrowernumber} }->{surname}   = $row->{surname};
        }
        $sth->finish();
    }
    return $output;
}

=head2 HistoryMapUsers

=cut

sub HistoryMapUsers {
    my ($history, $borrowers) = @_;
    my $mappedhistory = { };
    for my $tag (keys %{ $history }) {
        $mappedhistory->{ $tag } = { };
        for my $field (keys %{ $history->{ $tag } }) {
            $mappedhistory->{ $tag }->{ $field } = [ ];
            for my $entry (@{ $history->{ $tag }->{ $field } }) {
                # C4::Dates does not allow me to print time, only dates.
                #my $newtime = C4::Dates->new( $history->{ $tag }->{ $field }->{ $time }->{timestamp}, 'iso' )->output('syspref');
                my $newitem = { };
                my $user = $borrowers->{ $entry->{borrowernumber} };

                # Maybe change this to work on original instead of copy?
                $newitem->{title}          = $user->{title};
                $newitem->{firstname}      = $user->{firstname};
                $newitem->{surname}        = $user->{surname};
                $newitem->{borrowernumber} = $entry->{borrowernumber};
                $newitem->{data}           = $entry->{data};
                $newitem->{datetime}       = $entry->{datetime};

                push ( @{ $mappedhistory->{ $tag }->{ $field } } , $newitem);
            }
        }
    }
    return $mappedhistory;
}

=head2 HistoryParsedRecordNew

=cut

sub HistoryParsedRecordNew {
    my ($value, $borrowernumber, $datetime) = @_;
    my $newrecord = {
        data           => $value,
        borrowernumber => $borrowernumber,
        datetime       => $datetime,
    };
    return $newrecord;
}

=head2 HistoryRecordNew

=cut

sub HistoryRecordNew {
    my ( $record ) = @_;
    my $encoding = C4::Context->preference("marcflavour");
    my $hash_record = {
        borrowernumber => C4::Context->userenv()->{number},
        datetime       => POSIX::strftime('%Y-%m-%d %T', localtime(time)),
        marcxml        => $record->as_xml_record($encoding),
    };
    return $hash_record;
}

=head2 HistoryUpdate

=cut

sub HistoryUpdate {
    my ( $record, $limit, $collection ) = @_;
    if ( !$record ) {
        warn "HistoryUpdate: Called with undefined record";
        return;
    }
    if ( ref($record) ne 'HASH' ) {
        warn "HistoryUpdate: Record parameter is not a hashref";
        return;
    }
    $limit = 10 unless defined $limit;
    # We need something to append history to, even if there is none.
    $collection = [] unless defined $collection;
    # Truncate history to $histsize - 1, need space for new entry.
    splice(@{$collection}, $limit - 1);
    push(@{$collection}, $record);
    # Sort the resulting array, newest entries first.
    # Removed; used to be integer timestamps. Is now MySQL date strings.
    #@{$collection} = sort { $a->{timestamp} < $b->{timestamp} } @{$collection};
    @{$collection} = sort { $a->{datetime} lt $b->{datetime} } @{$collection};
    return $collection;
}

1;

__END__

=head1 AUTHOR

Koha Development Team <http://koha-community.org/>

Paul POULAIN paul.poulain@free.fr

Joshua Ferraro jmf@liblime.com

=cut


Lines 36-42 use C4::ImportBatch; Link Here

(-)a/cataloguing/addbiblio.pl (-16 / +27 lines)
36	use C4::Charset;	36	use C4::Charset;
37	use Koha::BiblioFrameworks;	37	use Koha::BiblioFrameworks;
38	use Koha::DateUtils;	38	use Koha::DateUtils;
39		39	use Koha::MetadataRecord::History;
40	use Koha::Libraries;	40	use Koha::Libraries;
41		41
42	use Date::Calc qw(Today);	42	use Date::Calc qw(Today);
Lines 279-288 sub GetMandatoryFieldZ3950 { Link Here
279	=cut	279	=cut
280		280
281	sub create_input {	281	sub create_input {
282	my ( $tag, $subfield, $value, $index_tag, $tabloop, $rec, $authorised_values_sth,$cgi ) = @_;	282
283		283	my ( $tag, $subfield, $value, $index_tag, $tabloop, $rec, $authorised_values_sth,$cgi, $history ) = @_;
		284
284	my $index_subfield = CreateKey(); # create a specifique key for each subfield	285	my $index_subfield = CreateKey(); # create a specifique key for each subfield
285		286
		287	my $taghistory = $history->{$tag}->{$subfield};
		288
286	$value =~ s/"/"/g;	289	$value =~ s/"/"/g;
287		290
288	# if there is no value provided but a default value in parameters, get it	291	# if there is no value provided but a default value in parameters, get it
Lines 300-306 sub create_input { Link Here
300	# And <<USER>> with surname (?)	303	# And <<USER>> with surname (?)
301	my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian");	304	my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian");
302	$value=~s/<<USER>>/$username/g;	305	$value=~s/<<USER>>/$username/g;
303		306
304	}	307	}
305	my $dbh = C4::Context->dbh;	308	my $dbh = C4::Context->dbh;
306		309
Lines 322-327 sub create_input { Link Here
322	value => $value,	325	value => $value,
323	maxlength => $tagslib->{$tag}->{$subfield}->{maxlength},	326	maxlength => $tagslib->{$tag}->{$subfield}->{maxlength},
324	random => CreateKey(),	327	random => CreateKey(),
		328	history => $taghistory,
325	);	329	);
326		330
327	if(exists $mandatory_z3950->{$tag.$subfield}){	331	if(exists $mandatory_z3950->{$tag.$subfield}){
Lines 377-382 sub create_input { Link Here
377	maxlength => $subfield_data{maxlength},	381	maxlength => $subfield_data{maxlength},
378	readonly => ($is_readonly) ? 1 : 0,	382	readonly => ($is_readonly) ? 1 : 0,
379	authtype => $tagslib->{$tag}->{$subfield}->{authtypecode},	383	authtype => $tagslib->{$tag}->{$subfield}->{authtypecode},
		384	history => $taghistory,
380	};	385	};
381		386
382	# it's a plugin field	387	# it's a plugin field
Lines 398-403 sub create_input { Link Here
398	maxlength => $subfield_data{maxlength},	403	maxlength => $subfield_data{maxlength},
399	javascript => $plugin->javascript,	404	javascript => $plugin->javascript,
400	noclick => $plugin->noclick,	405	noclick => $plugin->noclick,
		406	history => $taghistory,
401	};	407	};
402	} else {	408	} else {
403	warn $plugin->errstr;	409	warn $plugin->errstr;
Lines 410-415 sub create_input { Link Here
410	size => 67,	416	size => 67,
411	maxlength => $subfield_data{maxlength},	417	maxlength => $subfield_data{maxlength},
412	readonly => 0,	418	readonly => 0,
		419	history => $taghistory,
413	};	420	};
414	}	421	}
415		422
Lines 422-427 sub create_input { Link Here
422	value => $value,	429	value => $value,
423	size => 67,	430	size => 67,
424	maxlength => $subfield_data{maxlength},	431	maxlength => $subfield_data{maxlength},
		432	history => $taghistory,
425	};	433	};
426		434
427	}	435	}
Lines 442-447 sub create_input { Link Here
442	id => $subfield_data{id},	450	id => $subfield_data{id},
443	name => $subfield_data{id},	451	name => $subfield_data{id},
444	value => $value,	452	value => $value,
		453	history => $taghistory,
445	};	454	};
446		455
447	}	456	}
Lines 454-459 sub create_input { Link Here
454	size => 67,	463	size => 67,
455	maxlength => $subfield_data{maxlength},	464	maxlength => $subfield_data{maxlength},
456	readonly => 0,	465	readonly => 0,
		466	history => $taghistory,
457	};	467	};
458		468
459	}	469	}
Lines 479-489 sub format_indicator { Link Here
479	}	489	}
480		490
481	sub build_tabs {	491	sub build_tabs {
482	my ( $template, $record, $dbh, $encoding,$input ) = @_;	492	my ( $template, $record, $dbh, $encoding, $input, $history ) = @_;
483		493
484	# fill arrays	494	# fill arrays
485	my @loop_data = ();	495	my @loop_data = ();
486	my $tag;	496	#my $tag;
487		497
488	my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : "";	498	my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : "";
489	my $query = "SELECT authorised_value, lib	499	my $query = "SELECT authorised_value, lib
Lines 499-505 sub build_tabs { Link Here
499	my @BIG_LOOP;	509	my @BIG_LOOP;
500	my %seen;	510	my %seen;
501	my @tab_data; # all tags to display	511	my @tab_data; # all tags to display
502
503	foreach my $used ( @$usedTagsLib ){	512	foreach my $used ( @$usedTagsLib ){
504	push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}};	513	push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}};
505	$seen{$used->{tagfield}}++;	514	$seen{$used->{tagfield}}++;
Lines 536-542 sub build_tabs { Link Here
536	}	545	}
537	# loop through each field	546	# loop through each field
538	foreach my $field (@fields) {	547	foreach my $field (@fields) {
539
540	my @subfields_data;	548	my @subfields_data;
541	if ( $tag < 10 ) {	549	if ( $tag < 10 ) {
542	my ( $value, $subfield );	550	my ( $value, $subfield );
Lines 556-562 sub build_tabs { Link Here
556	@subfields_data,	564	@subfields_data,
557	&create_input(	565	&create_input(
558	$tag, $subfield, $value, $index_tag, $tabloop, $record,	566	$tag, $subfield, $value, $index_tag, $tabloop, $record,
559	$authorised_values_sth,$input	567	$authorised_values_sth,$input, $history
560	)	568	)
561	);	569	);
562	}	570	}
Lines 571-577 sub build_tabs { Link Here
571	@subfields_data,	579	@subfields_data,
572	&create_input(	580	&create_input(
573	$tag, $subfield, $value, $index_tag, $tabloop,	581	$tag, $subfield, $value, $index_tag, $tabloop,
574	$record, $authorised_values_sth,$input	582	$record, $authorised_values_sth,$input, $history
575	)	583	)
576	);	584	);
577	}	585	}
Lines 599-605 sub build_tabs { Link Here
599	@subfields_data,	607	@subfields_data,
600	&create_input(	608	&create_input(
601	$tag, $subfield, '', $index_tag, $tabloop, $record,	609	$tag, $subfield, '', $index_tag, $tabloop, $record,
602	$authorised_values_sth,$input	610	$authorised_values_sth,$input, $history
603	)	611	)
604	);	612	);
605	}	613	}
Lines 645-655 sub build_tabs { Link Here
645	# always include in the form regardless of the hidden setting - bug 2206	653	# always include in the form regardless of the hidden setting - bug 2206
646	next	654	next
647	if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );	655	if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
		656
648	push(	657	push(
649	@subfields_data,	658	@subfields_data,
650	&create_input(	659	&create_input(
651	$tag, $subfield, '', $index_tag, $tabloop, $record,	660	$tag, $subfield, '', $index_tag, $tabloop, $record,
652	$authorised_values_sth,$input	661	$authorised_values_sth,$input, $history
653	)	662	)
654	);	663	);
655	}	664	}
Lines 666-672 sub build_tabs { Link Here
666	tagfirstsubfield => $subfields_data[0],	675	tagfirstsubfield => $subfields_data[0],
667	fixedfield => $tag < 10?1:0,	676	fixedfield => $tag < 10?1:0,
668	);	677	);
669		678
670	push @loop_data, \%tag_data ;	679	push @loop_data, \%tag_data ;
671	}	680	}
672	}	681	}
Lines 755-760 $mandatory_z3950 = GetMandatoryFieldZ3950($frameworkcode); Link Here
755	# -- Global	764	# -- Global
756		765
757	my $record = -1;	766	my $record = -1;
		767	my $history = undef;
758	my $encoding = "";	768	my $encoding = "";
759	my (	769	my (
760	$biblionumbertagfield,	770	$biblionumbertagfield,
Lines 765-771 my ( Link Here
765	);	775	);
766		776
767	if (($biblionumber) && !($breedingid)){	777	if (($biblionumber) && !($breedingid)){
768	$record = GetMarcBiblio($biblionumber);	778	($record, $history) = GetMarcBiblioHistory($biblionumber);
769	}	779	}
770	if ($breedingid) {	780	if ($breedingid) {
771	( $record, $encoding ) = MARCfindbreeding( $breedingid ) ;	781	( $record, $encoding ) = MARCfindbreeding( $breedingid ) ;
Lines 898-904 if ( $op eq "addbiblio" ) { Link Here
898	}	908	}
899	} else {	909	} else {
900	# it may be a duplicate, warn the user and do nothing	910	# it may be a duplicate, warn the user and do nothing
901	build_tabs ($template, $record, $dbh,$encoding,$input);	911	build_tabs ($template, $record, $dbh,$encoding, $input, $history);
902	$template->param(	912	$template->param(
903	biblionumber => $biblionumber,	913	biblionumber => $biblionumber,
904	biblioitemnumber => $biblioitemnumber,	914	biblioitemnumber => $biblioitemnumber,
Lines 945-951 elsif ( $op eq "delete" ) { Link Here
945	$record = $urecord;	955	$record = $urecord;
946	};	956	};
947	}	957	}
948	build_tabs( $template, $record, $dbh, $encoding,$input );	958
		959	build_tabs( $template, $record, $dbh, $encoding, $input, $history );
949	$template->param(	960	$template->param(
950	biblionumber => $biblionumber,	961	biblionumber => $biblionumber,
951	biblionumbertagfield => $biblionumbertagfield,	962	biblionumbertagfield => $biblionumbertagfield,

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/add_history.sql (+1 lines)
	1	ALTER TABLE biblioitems ADD COLUMN `history` LONGTEXT DEFAULT NULL AFTER `marcxml`;

Lines 16-21 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/css/addbiblio.css (-1 / +21 lines)
16	text-decoration : none;	16	text-decoration : none;
17	}	17	}
18		18
		19	.buttonHistory {
		20	font-weight : bold;
		21	text-decoration : none;
		22	}
		23
19	a.expandfield {	24	a.expandfield {
20	text-decoration : none;	25	text-decoration : none;
21	}	26	}
Lines 128-133 a.tagnum { Link Here
128	.linktools a:hover { background-color: #FFC; }	133	.linktools a:hover { background-color: #FFC; }
129	.subfield_controls { margin : 0 .5em; }	134	.subfield_controls { margin : 0 .5em; }
130	.readonly { border-width : 1px; border-style: inset; padding-left : 15px; background: #EEE url(../img/locked.png) center left no-repeat; width:29em; }	135	.readonly { border-width : 1px; border-style: inset; padding-left : 15px; background: #EEE url(../img/locked.png) center left no-repeat; width:29em; }
		136	.subfield_history { margin : 0 .5em; float: right; }
131		137
132	#cataloguing_additem_itemlist {	138	#cataloguing_additem_itemlist {
133	margin-bottom : 1em;	139	margin-bottom : 1em;
Lines 167-170 tbody tr.active td { Link Here
167	position: absolute;	173	position: absolute;
168	top: 50%;	174	top: 50%;
169	width: 15em;	175	width: 15em;
170	}	176	}
		177
		178	.history_container {
		179	display: none;
		180	}
		181
		182	.history_table {
		183	width: 100%;
		184	display: none;
		185	float: right;
		186	clear: both;
		187	font-size: 75%;
		188	width: 75%;
		189	margin: 0.3em;
		190	}

Lines 659-668 function Changefwk() { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbiblio.tt (-4 / +25 lines)
659	[% IF ( mv.readonly == 1 ) %]	659	[% IF ( mv.readonly == 1 ) %]
660	<input type="text" id="[%- mv.id -%]" name="[%- mv.name -%]" value="[%- mv.value -%]" class="input_marceditor readonly" tabindex="1" size="[%- mv.size -%]" maxlength="[%- mv.maxlength -%]" readonly="readonly" />	660	<input type="text" id="[%- mv.id -%]" name="[%- mv.name -%]" value="[%- mv.value -%]" class="input_marceditor readonly" tabindex="1" size="[%- mv.size -%]" maxlength="[%- mv.maxlength -%]" readonly="readonly" />
661	[% ELSE %]	661	[% ELSE %]
662	<input type="text" id="[%- mv.id -%]" name="[%- mv.name -%]" value="[%- mv.value -%]" class="input_marceditor" tabindex="1" size="[%- mv.size -%]" maxlength="[%- mv.maxlength -%]" />	662	<input type="text" id="[%- mv.id -%]" name="[%- mv.name -%]" value="[%- mv.value -%]" class="input_marceditor" tabindex="1" size="[%- mv.size -%]" maxlength="[%- mv.maxlength -%]" onclick="historyToggle('[%- mv.id -%]_history'); return false;"/>
663	[% END %]	663	[% END %]
		664
664	[% IF ( mv.authtype ) %]	665	[% IF ( mv.authtype ) %]
665	<span class="subfield_controls"><a href="#" class="buttonDot tag_editor" onclick="openAuth(this.parentNode.parentNode.getElementsByTagName('input')[1].id,'[%- mv.authtype -%]','biblio'); return false;" tabindex="1" title="Tag editor">Tag editor</a></span>	666
		667	<a href="#" class="buttonDot tag_editor" onclick="openAuth(this.parentNode.parentNode.getElementsByTagName('input')[1].id,'[%- mv.authtype -%]','biblio'); return false;" tabindex="1" title="Tag editor">Tag editor</a>
		668	</span>
666	[% END %]	669	[% END %]
667	[% ELSIF ( mv.type == 'text_complex' ) %]	670	[% ELSIF ( mv.type == 'text_complex' ) %]
668	<input type="text" id="[%- mv.id -%]" name="[%- mv.name -%]" value="[%- mv.value -%]" class="input_marceditor framework_plugin" tabindex="1" size="[%- mv.size -%]" maxlength="[%- mv.maxlength -%]" />	671	<input type="text" id="[%- mv.id -%]" name="[%- mv.name -%]" value="[%- mv.value -%]" class="input_marceditor framework_plugin" tabindex="1" size="[%- mv.size -%]" maxlength="[%- mv.maxlength -%]" />
Lines 670-676 function Changefwk() { Link Here
670	[% IF mv.noclick %]	673	[% IF mv.noclick %]
671	<a href="#" class="buttonDot tag_editor disabled" tabindex="-1" title="No popup"></a>	674	<a href="#" class="buttonDot tag_editor disabled" tabindex="-1" title="No popup"></a>
672	[% ELSE %]	675	[% ELSE %]
673	<a href="#" id="buttonDot_[% mv.id %]" class="buttonDot tag_editor framework_plugin" tabindex="1" title="Tag editor">Tag editor</a>	676
		677	<a href="#" id="buttonDot_[% mv.id %]" class="buttonDot tag_editor framework_plugin" tabindex="2" title="Tag editor">Tag editor</a>
674	[% END %]	678	[% END %]
675	</span>	679	</span>
676	[% mv.javascript %]	680	[% mv.javascript %]
Lines 700-707 function Changefwk() { Link Here
700	</a>	704	</a>
701	[% END %]	705	[% END %]
702	</span>	706	</span>
703		707
		708	[% IF ( subfield_loo.history ) %]
		709	<span class="subfield_history">
		710	<a href="#" class="buttonHistory" onclick="HistoryToggle('[% mv.id %]_history'); return false;">
		711	<img src="[% interface %]/[% theme %]/img/icon-history.png" alt="History" title="Display history for this field" />
		712	</a>
		713	</span>
		714
		715	<table class="history_table" id="[%- mv.id -%]_history" name="[%- mv.name -%]_history">
		716	<tr><th>Value</th><th>Date</th><th>User</th></tr>
		717	[% FOREACH hist IN subfield_loo.history %]
		718	<tr><td><a href="#" onclick="HistoryRollback('[% mv.id %]', '[% hist.data %]'); return false;">[% hist.data %]</a></td>
		719	<td>[% hist.datetime %]</td>
		720	<td>[% hist.title %] [% hist.firstname %] [% hist.surname %]</td></tr>
		721	[% END %]
		722	</table>
		723	[% END %]
704	</div>	724	</div>
		725
705	<!-- End of the line -->	726	<!-- End of the line -->
706	[% END %]	727	[% END %]
707		728




    newin=window.open("../authorities/auth_finder.pl?source="+source+"&authtypecode="+authtype+"&index="+tagsubfieldid+"&value_mainstr="+encodeURI(mainmainstring)+"&value_main="+encodeURI(mainstring), "_blank",'width=700,height=550,toolbar=false,scrollbars=yes');
}

function HistoryToggle (tagid)
{
	$('#' + tagid).toggle();
}

function HistoryRollback (tagid, value)
{
	$('#' + tagid).val(value);
}

function ExpandField(index) {
    var original = document.getElementById(index); //original <div>
    var divs = original.getElementsByTagName('div');




#!/usr/bin/perl

use Modern::Perl;
use t::lib::TestBuilder;
use t::lib::Mocks;
use Test::More tests => 6;
use POSIX qw(strftime);

use MARC::Record;
use MARC::Field;
use JSON qw(encode_json);

use Koha::MetadataRecord::History;

BEGIN {
    use_ok('C4::Biblio');
}

our $dbh = C4::Context->dbh;
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 0;

$dbh->do(q|DELETE FROM issues|);
$dbh->do(q|DELETE FROM items|);
$dbh->do(q|DELETE FROM borrowers|);
$dbh->do(q|DELETE FROM branches|);
$dbh->do(q|DELETE FROM categories|);
$dbh->do(q|DELETE FROM biblioitems|);

my $builder = t::lib::TestBuilder->new();

my $branch = $builder->build(
    {
        source => 'Branch',
    }
);

my $category = $builder->build(
    {
        source => 'Category',
    }
);

my $patron1 = $builder->build(
    {
        source => 'Borrower',
        value  => {
            title        => 'Mr/Mrs',
            firstname    => 'First name',
            surname      => 'Surname',
            categorycode => $category->{categorycode},
            branchcode   => $branch->{branchcode},
        },
    }
);

my $patron2 = $builder->build(
    {
        source => 'Borrower',
        value  => {
            title        => 'Mr/Mrs 2',
            firstname    => 'First name 2',
            surname      => 'Surname 2',
            categorycode => $category->{categorycode},
            branchcode   => $branch->{branchcode},
        },
    }
);

my $biblio = $builder->build(
    {
        source => 'Biblio',
        value  => {
            branchcode => $branch->{branchcode},
        },
    }
);

C4::Context->_new_userenv('DUMMY_SESSION_ID');
C4::Context->set_userenv( $patron1->{borrowernumber},
    $patron1->{userid}, 'usercnum', $patron1->{firstname}, $patron1->{surname},
    $branch->{branchcode}, 'My library', 0 );

# Item with no pre-existing history backlog.
my $record1 = MARC::Record->new();
my $field1  = MARC::Field->new(
    245, '1', '0',
    'a' => 'First Title',
    'c' => 'Some dude'
);
$record1->append_fields($field1);

my $record2 = MARC::Record->new();
my $field2  = MARC::Field->new(
    245, '1', '0',
    'a' => 'Second Title',
    'c' => 'Former dude'
);
$record2->append_fields($field2);

my $biblioitem1 = $builder->build(
    {
        source => 'Biblioitem',
        value  => {
            marcxml => $record1->as_xml(),
            history => undef,
        }
    }
);

# items{tagname}{subfield}{timestamp}{borrowernumber|timestamp|marcxml}
my $items = [
    {
        borrowernumber => $patron1->{borrowernumber},
        datetime       => '2012-08-12 12:00:10',
        marcxml        => $record1->as_xml(),
    },
    {
        borrowernumber => $patron2->{borrowernumber},
        datetime       => '2012-08-12 12:00:10',
        marcxml        => $record2->as_xml(),
    }
];

# Item with previous history entries.
my $biblioitem2 = $builder->build(
    {
        source => 'Biblioitem',
        value  => {
            marcxml => $record2->as_xml(),
            history => encode_json($items),
        }
    }
);

my $expected_history = {
    245 => {
        a => [
            {
                borrowernumber => $patron1->{borrowernumber},
                data           => 'First Title',
                datetime       => '2012-08-12 12:00:10'
            },
            {
                borrowernumber => $patron2->{borrowernumber},
                data           => 'Second Title',
                datetime       => '2012-08-12 12:00:10'
            },
        ],
        c => [
            {
                borrowernumber => $patron1->{borrowernumber},
                data           => 'Some dude',
                datetime       => '2012-08-12 12:00:10'
            },
            {
                borrowernumber => $patron2->{borrowernumber},
                data           => 'Former dude',
                datetime       => '2012-08-12 12:00:10'
            },
        ],
    },
};

my $expected_users = {
    $patron1->{borrowernumber} => undef,
    $patron2->{borrowernumber} => undef,
};

# Tests the decoding and reindexing of the data, without any borrower
# information implanted into the history itself.

my ( $history, $users ) = C4::Biblio::HistoryParse( encode_json($items) );

is_deeply( $history, $expected_history, 'HistoryParse: Output' );
is_deeply( $users,   $expected_users,   'HistoryParse: Users' );

# Tests the extraction of full borrower details based on the borrowernumber.
my $expected_details = {
    $patron1->{borrowernumber} => {
        firstname => $patron1->{firstname},
        surname   => $patron1->{surname},
        title     => $patron1->{title},
    },
    $patron2->{borrowernumber} => {
        firstname => $patron2->{firstname},
        surname   => $patron2->{surname},
        title     => $patron2->{title},
    }
};

my $details = HistoryBorrowerDetails($expected_users);
is_deeply( $details, $expected_details, 'HistoryBorrowerDetails: Output' );

{
    my $expected_mapped_history = {
        245 => {
            a => [
                {
                    borrowernumber => $patron1->{borrowernumber},
                    data           => 'First Title',
                    firstname      => $patron1->{firstname},
                    surname        => $patron1->{surname},
                    title          => $patron1->{title},
                    datetime       => '2012-08-12 12:00:10'
                },
                {
                    borrowernumber => $patron2->{borrowernumber},
                    data           => 'Second Title',
                    firstname      => $patron2->{firstname},
                    surname        => $patron2->{surname},
                    title          => $patron2->{title},
                    datetime       => '2012-08-12 12:00:10'
                },
            ],
            c => [
                {
                    borrowernumber => $patron1->{borrowernumber},
                    data           => 'Some dude',
                    firstname      => $patron1->{firstname},
                    surname        => $patron1->{surname},
                    title          => $patron1->{title},
                    datetime       => '2012-08-12 12:00:10'
                },
                {
                    borrowernumber => $patron2->{borrowernumber},
                    data           => 'Former dude',
                    firstname      => $patron2->{firstname},
                    surname        => $patron2->{surname},
                    title          => $patron2->{title},
                    datetime       => '2012-08-12 12:00:10'
                },
            ]
        }
    };

    $history = C4::Biblio::HistoryMapUsers( $expected_history, $details );

    is_deeply( $history, $expected_mapped_history, 'HistoryMapUsers: Output' );

  #my $record;
  #( $record, $history ) = GetMarcBiblioHistory( $biblioitem2->{biblionumber} );

    #is_deeply( $record, $record2 );
    #is_deeply( $history, $expected_mapped_history );
}

# The C4::Context will provide the expected user borrowernumber.
my $record = HistoryRecordNew($record1);

my $expected_record = {
    borrowernumber => C4::Context->userenv()->{number},
    marcxml        => $record1->as_xml_record(),
    datetime       => POSIX::strftime( '%Y-%m-%d %T', localtime ),
};
is_deeply( $record, $expected_record );

Return to bug 14367

Lines 28-33 use MARC::File::USMARC; Link Here

(-)a/C4/Biblio.pm (-8 / +23 lines)
28	use MARC::File::XML;	28	use MARC::File::XML;
29	use POSIX qw(strftime);	29	use POSIX qw(strftime);
30	use Module::Load::Conditional qw(can_load);	30	use Module::Load::Conditional qw(can_load);
		31	use JSON qw(encode_json decode_json);
31		32
32	use C4::Koha;	33	use C4::Koha;
33	use C4::Log; # logaction	34	use C4::Log; # logaction
Lines 43-48 use Koha::Authority::Types; Link Here
43	use Koha::Acquisition::Currencies;	44	use Koha::Acquisition::Currencies;
44	use Koha::SearchEngine;	45	use Koha::SearchEngine;
45	use Koha::Libraries;	46	use Koha::Libraries;
		47	use Koha::MetadataRecord::History;
46		48
47	use vars qw(@ISA @EXPORT);	49	use vars qw(@ISA @EXPORT);
48	use vars qw($debug $cgi_debug);	50	use vars qw($debug $cgi_debug);
Lines 81-86 BEGIN { Link Here
81	&GetMarcISBN	83	&GetMarcISBN
82	&GetMarcISSN	84	&GetMarcISSN
83	&GetMarcSubjects	85	&GetMarcSubjects
		86	&GetMarcBiblio
84	&GetMarcAuthors	87	&GetMarcAuthors
85	&GetMarcSeries	88	&GetMarcSeries
86	&GetMarcHosts	89	&GetMarcHosts
Lines 270-277 sub AddBiblio { Link Here
270	# update MARC subfield that stores biblioitems.cn_sort	273	# update MARC subfield that stores biblioitems.cn_sort
271	_koha_marc_update_biblioitem_cn_sort( $record, $olddata, $frameworkcode );	274	_koha_marc_update_biblioitem_cn_sort( $record, $olddata, $frameworkcode );
272		275
273	# now add the record	276	# now add the record (history parameter is undef: no history yet])
274	ModBiblioMarc( $record, $biblionumber, $frameworkcode ) unless $defer_marc_save;	277	ModBiblioMarc( $record, $biblionumber, $frameworkcode, undef ) unless $defer_marc_save;
275		278
276	# update OAI-PMH sets	279	# update OAI-PMH sets
277	if(C4::Context->preference("OAI-PMH:AutoUpdateSets")) {	280	if(C4::Context->preference("OAI-PMH:AutoUpdateSets")) {
Lines 336-344 sub ModBiblio { Link Here
336	# update biblionumber and biblioitemnumber in MARC	339	# update biblionumber and biblioitemnumber in MARC
337	# FIXME - this is assuming a 1 to 1 relationship between	340	# FIXME - this is assuming a 1 to 1 relationship between
338	# biblios and biblioitems	341	# biblios and biblioitems
339	my $sth = $dbh->prepare("select biblioitemnumber from biblioitems where biblionumber=?");	342	my $sth = $dbh->prepare("select biblioitemnumber,history from biblioitems where biblionumber=?");
340	$sth->execute($biblionumber);	343	$sth->execute($biblionumber);
341	my ($biblioitemnumber) = $sth->fetchrow;	344	my ($biblioitemnumber, $history) = $sth->fetchrow;
342	$sth->finish();	345	$sth->finish();
343	_koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber, $biblioitemnumber );	346	_koha_marc_update_bib_ids( $record, $frameworkcode, $biblionumber, $biblioitemnumber );
344		347
Lines 349-355 sub ModBiblio { Link Here
349	_koha_marc_update_biblioitem_cn_sort( $record, $oldbiblio, $frameworkcode );	352	_koha_marc_update_biblioitem_cn_sort( $record, $oldbiblio, $frameworkcode );
350		353
351	# update the MARC record (that now contains biblio and items) with the new record data	354	# update the MARC record (that now contains biblio and items) with the new record data
352	&ModBiblioMarc( $record, $biblionumber, $frameworkcode );	355	&ModBiblioMarc( $record, $biblionumber, $frameworkcode, $history );
353		356
354	# modify the other koha tables	357	# modify the other koha tables
355	_koha_modify_biblio( $dbh, $oldbiblio, $frameworkcode );	358	_koha_modify_biblio( $dbh, $oldbiblio, $frameworkcode );
Lines 3478-3484 Function exported, but should NOT be used, unless you really know what you're do Link Here
3478	sub ModBiblioMarc {	3481	sub ModBiblioMarc {
3479	# pass the MARC::Record to this function, and it will create the records in	3482	# pass the MARC::Record to this function, and it will create the records in
3480	# the marc field	3483	# the marc field
3481	my ( $record, $biblionumber, $frameworkcode ) = @_;	3484	my ( $record, $biblionumber, $frameworkcode, $history ) = @_;
3482	if ( !$record ) {	3485	if ( !$record ) {
3483	carp 'ModBiblioMarc passed an undefined record';	3486	carp 'ModBiblioMarc passed an undefined record';
3484	return;	3487	return;
Lines 3524-3531 sub ModBiblioMarc { Link Here
3524	$f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005;	3527	$f005->update(sprintf("%4d%02d%02d%02d%02d%04.1f",@a)) if $f005;
3525	}	3528	}
3526		3529
3527	$sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=? WHERE biblionumber=?");	3530	# Decode JSON history, create new record, update and re-encode to JSON.
3528	$sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $biblionumber );	3531	my $historylength = 10;
		3532	eval {
		3533	$history = decode_json($history);
		3534	1;
		3535	} or do {
		3536	$history = undef;
		3537	};
		3538	my $newrecord = HistoryRecordNew($record);
		3539	my $newhistory = HistoryUpdate($newrecord, $historylength, $history);
		3540	$newhistory = encode_json($newhistory);
		3541
		3542	$sth = $dbh->prepare("UPDATE biblioitems SET marc=?,marcxml=?,history=? WHERE biblionumber=?");
		3543	$sth->execute( $record->as_usmarc(), $record->as_xml_record($encoding), $newhistory, $biblionumber );
3529	$sth->finish;	3544	$sth->finish;
3530	ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record );	3545	ModZebra( $biblionumber, "specialUpdate", "biblioserver", $record );
3531	return $biblionumber;	3546	return $biblionumber;

Line 0 Link Here

(-)a/Koha/MetadataRecord/History.pm (+262 lines)
		1	package Koha::MetadataRecord::History;
		2
		3	# Copyright 2016 Aleisha Amohia <aleisha@catalyst.net.nz>
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it
		8	# under the terms of the GNU General Public License as published by
		9	# the Free Software Foundation; either version 3 of the License, or
		10	# (at your option) any later version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but
		13	# WITHOUT ANY WARRANTY; without even the implied warranty of
		14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		15	# GNU General Public License for more details.
		16	#
		17	# You should have received a copy of the GNU General Public License
		18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		19
		20	use strict;
		21	use warnings;
		22
		23	use C4::Charset;
		24	use JSON qw(decode_json);
		25
		26	use vars qw(@ISA @EXPORT);
		27
		28	BEGIN {
		29	require Exporter;
		30	@ISA = qw( Exporter );
		31
		32	push @EXPORT, qw(
		33	&GetMarcBiblioHistory
		34	&HistoryUpdate
		35	&HistoryParse
		36	&HistoryMapUsers
		37	&HistoryBorrowerDetails
		38	&HistoryRecordNew
		39	);
		40	}
		41
		42	=head1 NAME
		43
		44	Koha::MetadataRecord::History - tracking changes to MARC records
		45
		46	=head1 DESCRIPTION
		47
		48	Koha::MetadataRecord::History not only tracks changes to MARC records and presents them in a log, but also allows users to
		49	roll them back, either in batch to a previous point in the history or separately for each field (so you can roll back changes
		50	to a field without changing fields that may have been changed after this one).
		51
		52	=head2 GetMarcBiblioHistory
		53
		54	my ($record, $history) = GetMarcBiblio($biblionumber, [$embeditems]);
		55
		56	Returns MARC::Record representing bib identified by C<$biblionumber>. If no bib exists, returns undef.
		57	C<$biblionumber>. If no bib exists, returns undef.
		58	C<$embeditems>. If set to true, items data are included.
		59	The MARC record contains biblio data, and items data if $embeditems is set to true.
		60
		61	=cut
		62
		63	sub GetMarcBiblioHistory {
		64	my $biblionumber = shift;
65	my $embeditems = shift \|\| 0;
66	if (not defined $biblionumber) {
67	warn "GetMarcBiblio called with undefined biblionumber";
68	return;
69	}
70	my $dbh = C4::Context->dbh;
71	my $sth = $dbh->prepare("SELECT marcxml,history FROM biblioitems WHERE biblionumber=? ");
72	$sth->execute($biblionumber);
73	my $row = $sth->fetchrow_hashref;
74	my $marcxml = StripNonXmlChars( $row->{'marcxml'} );
75	MARC::File::XML->default_record_format( C4::Context->preference('marcflavour') );
76	my $record = MARC::Record->new();
77	my ($history, $borrowers) = HistoryParse( $row->{'history'} );
78	$borrowers = HistoryBorrowerDetails( $borrowers );
79	$history = HistoryMapUsers( $history, $borrowers );
80	if ($marcxml) {
81	$record = eval { MARC::Record::new_from_xml( $marcxml, "utf8", C4::Context->preference('marcflavour') ) };
82	if ($@) { warn " problem with :$biblionumber : $@ \n$marcxml"; }
83	return unless $record;
84	C4::Biblio::_koha_marc_update_bib_ids($record, '', $biblionumber, $biblionumber);
85	C4::Biblio::EmbedItemsInMarcBiblio($record, $biblionumber) if ($embeditems);
86	return ($record, $history);
87	} else {
88	return;
89	}
90	}
91
92	=head2 HistoryParse
93
94	Input format (JSON): [ { datetime, borrowernumber, marcxml } ]
95	Output format: { tag } { subfield } [ { borrowernumber, data, datetime } ]
96
97	=cut
98
99	sub HistoryParse {
100	my $json = shift;
101	if (!defined $json) {
102	warn "HistoryParse: Missing JSON parameter";
103	return undef;
104	}
105	my $input = decode_json($json);
106	# Reindex the dataset; order all values by datetime under each tag name.
107	my $borrowers = { };
108	my $output = { };
109	for my $item (@{$input}) {
110	my $datetime = $item->{datetime};
111	$borrowers->{ $item->{borrowernumber }} = undef;
112	my $record = MARC::File::XML::decode($item->{marcxml});
113	for my $field ($record->fields()) {
114	my $tag = $field->tag();
115	$output->{$tag} = {} unless defined $output->{$tag};
116	for my $subfield ($field->subfields()) {
117	# Build hash ref structure.
118	my $subfield_tag = @{$subfield}[0];
119	$output->{$tag}->{$subfield_tag} = []
120	unless defined $output->{$tag}->{$subfield_tag};
121	push( @{ $output->{$tag}->{$subfield_tag} }, HistoryParsedRecordNew(
122	@{ $subfield }[1], $item->{borrowernumber}, $datetime));
123	}
124	}
125	}
126	return ( $output, $borrowers );
127	}
128
129	=head2 HistoryBorrowerDetails
130
131	Take a hashref with borrowernumbers as keys, returns new hash with the
132	borrowernumber as key to hash containing firstname, surname and title.
133
134	=cut
135
136	sub HistoryBorrowerDetails {
137	my $borrowernumbers = shift;
138	my $dbh = C4::Context->dbh;
139	my $output = { };
140	my @numbers = keys %{$borrowernumbers};
141	if (@numbers > 0) {
142	# We now need to look up the numeric user id's and map to name and title strings.
143	my $sth = $dbh->prepare(qq{SELECT
144	borrowernumber, title, firstname, surname
145	FROM borrowers
146	WHERE borrowernumber IN}
147	. '(' . join(',', ('?') x @numbers) . ')');
148	$sth->execute(@numbers)
149	or die ('BorrowerDetails: Unable to execute SELECT statement');
150	while (my $row = $sth->fetchrow_hashref()) {
151	$output->{ $row->{borrowernumber} } = { };
152	$output->{ $row->{borrowernumber} }->{title} = $row->{title};
153	$output->{ $row->{borrowernumber} }->{firstname} = $row->{firstname};
154	$output->{ $row->{borrowernumber} }->{surname} = $row->{surname};
155	}
156	$sth->finish();
157	}
158	return $output;
159	}
160
161	=head2 HistoryMapUsers
162
163	=cut
164
165	sub HistoryMapUsers {
166	my ($history, $borrowers) = @_;
167	my $mappedhistory = { };
168	for my $tag (keys %{ $history }) {
169	$mappedhistory->{ $tag } = { };
170	for my $field (keys %{ $history->{ $tag } }) {
171	$mappedhistory->{ $tag }->{ $field } = [ ];
172	for my $entry (@{ $history->{ $tag }->{ $field } }) {
173	# C4::Dates does not allow me to print time, only dates.
174	#my $newtime = C4::Dates->new( $history->{ $tag }->{ $field }->{ $time }->{timestamp}, 'iso' )->output('syspref');
175	my $newitem = { };
176	my $user = $borrowers->{ $entry->{borrowernumber} };
177
178	# Maybe change this to work on original instead of copy?
179	$newitem->{title} = $user->{title};
180	$newitem->{firstname} = $user->{firstname};
181	$newitem->{surname} = $user->{surname};
182	$newitem->{borrowernumber} = $entry->{borrowernumber};
183	$newitem->{data} = $entry->{data};
184	$newitem->{datetime} = $entry->{datetime};
185
186	push ( @{ $mappedhistory->{ $tag }->{ $field } } , $newitem);
187	}
188	}
189	}
190	return $mappedhistory;
191	}
192
193	=head2 HistoryParsedRecordNew
194
195	=cut
196
197	sub HistoryParsedRecordNew {
198	my ($value, $borrowernumber, $datetime) = @_;
199	my $newrecord = {
200	data => $value,
201	borrowernumber => $borrowernumber,
202	datetime => $datetime,
203	};
204	return $newrecord;
205	}
206
207	=head2 HistoryRecordNew
208
209	=cut
210
211	sub HistoryRecordNew {
212	my ( $record ) = @_;
213	my $encoding = C4::Context->preference("marcflavour");
214	my $hash_record = {
215	borrowernumber => C4::Context->userenv()->{number},
216	datetime => POSIX::strftime('%Y-%m-%d %T', localtime(time)),
217	marcxml => $record->as_xml_record($encoding),
218	};
219	return $hash_record;
220	}
221
222	=head2 HistoryUpdate
223
224	=cut
225
226	sub HistoryUpdate {
227	my ( $record, $limit, $collection ) = @_;
228	if ( !$record ) {
229	warn "HistoryUpdate: Called with undefined record";
230	return;
231	}
232	if ( ref($record) ne 'HASH' ) {
233	warn "HistoryUpdate: Record parameter is not a hashref";
234	return;
235	}
236	$limit = 10 unless defined $limit;
237	# We need something to append history to, even if there is none.
238	$collection = [] unless defined $collection;
239	# Truncate history to $histsize - 1, need space for new entry.
240	splice(@{$collection}, $limit - 1);
241	push(@{$collection}, $record);
242	# Sort the resulting array, newest entries first.
243	# Removed; used to be integer timestamps. Is now MySQL date strings.
244	#@{$collection} = sort { $a->{timestamp} < $b->{timestamp} } @{$collection};
245	@{$collection} = sort { $a->{datetime} lt $b->{datetime} } @{$collection};
246	return $collection;
247	}
248
249	1;
250
251	__END__
252
253	=head1 AUTHOR
254
255	Koha Development Team <http://koha-community.org/>
256
257	Paul POULAIN paul.poulain@free.fr
258
259	Joshua Ferraro jmf@liblime.com
260
261	=cut
262

Lines 55-60 function openAuth(tagsubfieldid,authtype,source) { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/js/cataloging.js (+10 lines)
55	newin=window.open("../authorities/auth_finder.pl?source="+source+"&authtypecode="+authtype+"&index="+tagsubfieldid+"&value_mainstr="+encodeURI(mainmainstring)+"&value_main="+encodeURI(mainstring), "_blank",'width=700,height=550,toolbar=false,scrollbars=yes');	55	newin=window.open("../authorities/auth_finder.pl?source="+source+"&authtypecode="+authtype+"&index="+tagsubfieldid+"&value_mainstr="+encodeURI(mainmainstring)+"&value_main="+encodeURI(mainstring), "_blank",'width=700,height=550,toolbar=false,scrollbars=yes');
56	}	56	}
57		57
		58	function HistoryToggle (tagid)
		59	{
		60	$('#' + tagid).toggle();
		61	}
		62
		63	function HistoryRollback (tagid, value)
		64	{
		65	$('#' + tagid).val(value);
		66	}
		67
58	function ExpandField(index) {	68	function ExpandField(index) {
59	var original = document.getElementById(index); //original <div>	69	var original = document.getElementById(index); //original <div>
60	var divs = original.getElementsByTagName('div');	70	var divs = original.getElementsByTagName('div');

Line 0 Link Here

(-)a/t/db_dependent/BiblioHistory.t (-1 / +256 lines)
0	-	1	#!/usr/bin/perl
		2
		3	use Modern::Perl;
		4	use t::lib::TestBuilder;
		5	use t::lib::Mocks;
		6	use Test::More tests => 6;
		7	use POSIX qw(strftime);
		8
		9	use MARC::Record;
		10	use MARC::Field;
		11	use JSON qw(encode_json);
		12
		13	use Koha::MetadataRecord::History;
		14
		15	BEGIN {
		16	use_ok('C4::Biblio');
		17	}
		18
		19	our $dbh = C4::Context->dbh;
		20	$dbh->{AutoCommit} = 0;
		21	$dbh->{RaiseError} = 0;
		22
		23	$dbh->do(q\|DELETE FROM issues\|);
		24	$dbh->do(q\|DELETE FROM items\|);
		25	$dbh->do(q\|DELETE FROM borrowers\|);
		26	$dbh->do(q\|DELETE FROM branches\|);
		27	$dbh->do(q\|DELETE FROM categories\|);
		28	$dbh->do(q\|DELETE FROM biblioitems\|);
		29
		30	my $builder = t::lib::TestBuilder->new();
		31
		32	my $branch = $builder->build(
		33	{
		34	source => 'Branch',
		35	}
		36	);
		37
		38	my $category = $builder->build(
		39	{
		40	source => 'Category',
		41	}
		42	);
		43
		44	my $patron1 = $builder->build(
		45	{
		46	source => 'Borrower',
		47	value => {
		48	title => 'Mr/Mrs',
		49	firstname => 'First name',
		50	surname => 'Surname',
		51	categorycode => $category->{categorycode},
		52	branchcode => $branch->{branchcode},
		53	},
		54	}
		55	);
		56
		57	my $patron2 = $builder->build(
		58	{
		59	source => 'Borrower',
		60	value => {
		61	title => 'Mr/Mrs 2',
		62	firstname => 'First name 2',
		63	surname => 'Surname 2',
		64	categorycode => $category->{categorycode},
		65	branchcode => $branch->{branchcode},
66	},
67	}
68	);
69
70	my $biblio = $builder->build(
71	{
72	source => 'Biblio',
73	value => {
74	branchcode => $branch->{branchcode},
75	},
76	}
77	);
78
79	C4::Context->_new_userenv('DUMMY_SESSION_ID');
80	C4::Context->set_userenv( $patron1->{borrowernumber},
81	$patron1->{userid}, 'usercnum', $patron1->{firstname}, $patron1->{surname},
82	$branch->{branchcode}, 'My library', 0 );
83
84	# Item with no pre-existing history backlog.
85	my $record1 = MARC::Record->new();
86	my $field1 = MARC::Field->new(
87	245, '1', '0',
88	'a' => 'First Title',
89	'c' => 'Some dude'
90	);
91	$record1->append_fields($field1);
92
93	my $record2 = MARC::Record->new();
94	my $field2 = MARC::Field->new(
95	245, '1', '0',
96	'a' => 'Second Title',
97	'c' => 'Former dude'
98	);
99	$record2->append_fields($field2);
100
101	my $biblioitem1 = $builder->build(
102	{
103	source => 'Biblioitem',
104	value => {
105	marcxml => $record1->as_xml(),
106	history => undef,
107	}
108	}
109	);
110
111	# items{tagname}{subfield}{timestamp}{borrowernumber\|timestamp\|marcxml}
112	my $items = [
113	{
114	borrowernumber => $patron1->{borrowernumber},
115	datetime => '2012-08-12 12:00:10',
116	marcxml => $record1->as_xml(),
117	},
118	{
119	borrowernumber => $patron2->{borrowernumber},
120	datetime => '2012-08-12 12:00:10',
121	marcxml => $record2->as_xml(),
122	}
123	];
124
125	# Item with previous history entries.
126	my $biblioitem2 = $builder->build(
127	{
128	source => 'Biblioitem',
129	value => {
130	marcxml => $record2->as_xml(),
131	history => encode_json($items),
132	}
133	}
134	);
135
136	my $expected_history = {
137	245 => {
138	a => [
139	{
140	borrowernumber => $patron1->{borrowernumber},
141	data => 'First Title',
142	datetime => '2012-08-12 12:00:10'
143	},
144	{
145	borrowernumber => $patron2->{borrowernumber},
146	data => 'Second Title',
147	datetime => '2012-08-12 12:00:10'
148	},
149	],
150	c => [
151	{
152	borrowernumber => $patron1->{borrowernumber},
153	data => 'Some dude',
154	datetime => '2012-08-12 12:00:10'
155	},
156	{
157	borrowernumber => $patron2->{borrowernumber},
158	data => 'Former dude',
159	datetime => '2012-08-12 12:00:10'
160	},
161	],
162	},
163	};
164
165	my $expected_users = {
166	$patron1->{borrowernumber} => undef,
167	$patron2->{borrowernumber} => undef,
168	};
169
170	# Tests the decoding and reindexing of the data, without any borrower
171	# information implanted into the history itself.
172
173	my ( $history, $users ) = C4::Biblio::HistoryParse( encode_json($items) );
174
175	is_deeply( $history, $expected_history, 'HistoryParse: Output' );
176	is_deeply( $users, $expected_users, 'HistoryParse: Users' );
177
178	# Tests the extraction of full borrower details based on the borrowernumber.
179	my $expected_details = {
180	$patron1->{borrowernumber} => {
181	firstname => $patron1->{firstname},
182	surname => $patron1->{surname},
183	title => $patron1->{title},
184	},
185	$patron2->{borrowernumber} => {
186	firstname => $patron2->{firstname},
187	surname => $patron2->{surname},
188	title => $patron2->{title},
189	}
190	};
191
192	my $details = HistoryBorrowerDetails($expected_users);
193	is_deeply( $details, $expected_details, 'HistoryBorrowerDetails: Output' );
194
195	{
196	my $expected_mapped_history = {
197	245 => {
198	a => [
199	{
200	borrowernumber => $patron1->{borrowernumber},
201	data => 'First Title',
202	firstname => $patron1->{firstname},
203	surname => $patron1->{surname},
204	title => $patron1->{title},
205	datetime => '2012-08-12 12:00:10'
206	},
207	{
208	borrowernumber => $patron2->{borrowernumber},
209	data => 'Second Title',
210	firstname => $patron2->{firstname},
211	surname => $patron2->{surname},
212	title => $patron2->{title},
213	datetime => '2012-08-12 12:00:10'
214	},
215	],
216	c => [
217	{
218	borrowernumber => $patron1->{borrowernumber},
219	data => 'Some dude',
220	firstname => $patron1->{firstname},
221	surname => $patron1->{surname},
222	title => $patron1->{title},
223	datetime => '2012-08-12 12:00:10'
224	},
225	{
226	borrowernumber => $patron2->{borrowernumber},
227	data => 'Former dude',
228	firstname => $patron2->{firstname},
229	surname => $patron2->{surname},
230	title => $patron2->{title},
231	datetime => '2012-08-12 12:00:10'
232	},
233	]
234	}
235	};
236
237	$history = C4::Biblio::HistoryMapUsers( $expected_history, $details );
238
239	is_deeply( $history, $expected_mapped_history, 'HistoryMapUsers: Output' );
240
241	#my $record;
242	#( $record, $history ) = GetMarcBiblioHistory( $biblioitem2->{biblionumber} );
243
244	#is_deeply( $record, $record2 );
245	#is_deeply( $history, $expected_mapped_history );
246	}
247
248	# The C4::Context will provide the expected user borrowernumber.
249	my $record = HistoryRecordNew($record1);
250
251	my $expected_record = {
252	borrowernumber => C4::Context->userenv()->{number},
253	marcxml => $record1->as_xml_record(),
254	datetime => POSIX::strftime( '%Y-%m-%d %T', localtime ),
255	};
256	is_deeply( $record, $expected_record );