@@ -, +, @@ --- C4/Biblio.pm | 2 +- Koha/MetadataRecord/History.pm | 2 +- cataloguing/addbiblio.pl | 2 +- .../prog/en/modules/cataloguing/addbiblio.tt | 37 ++++++++++++++++------ 4 files changed, 30 insertions(+), 13 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -301,7 +301,7 @@ sub ModBiblio { # update biblionumber and biblioitemnumber in MARC # FIXME - this is assuming a 1 to 1 relationship between # biblios and biblioitems - my $sth = $dbh->prepare("select biblioitems.biblioitemnumber, biblio_metadata.history from biblioitems, biblio_metadata where biblioitems.biblionumber=?"); + my $sth = $dbh->prepare("select biblioitems.biblioitemnumber, biblio_metadata.history from biblioitems INNER JOIN biblio_metadata ON biblioitems.biblionumber = biblio_metadata.biblionumber WHERE biblioitems.biblionumber=?"); $sth->execute($biblionumber); my ($biblioitemnumber, $history) = $sth->fetchrow; $sth->finish(); --- a/Koha/MetadataRecord/History.pm +++ a/Koha/MetadataRecord/History.pm @@ -100,7 +100,7 @@ sub HistoryParse { my $json = shift; if (!defined $json) { warn "HistoryParse: Missing JSON parameter"; - return undef; + return; } my $input = decode_json($json); # Reindex the dataset; order all values by datetime under each tag name. --- a/cataloguing/addbiblio.pl +++ a/cataloguing/addbiblio.pl @@ -862,7 +862,7 @@ if ( $op eq "addbiblio" ) { else { ( $biblionumber, $oldbibitemnum ) = AddBiblio( $record, $frameworkcode ); } - if ($redirect eq "items" || ($mode ne "popup" && !$is_a_modif && $redirect ne "view" && $redirect ne "just_save")){ + if ($redirect eq "items" || (defined $mode && $mode ne "popup" && !$is_a_modif && $redirect ne "view" && $redirect ne "just_save")){ if ($frameworkcode eq 'FA'){ print $input->redirect( '/cgi-bin/koha/cataloguing/additem.pl?' --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbiblio.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbiblio.tt @@ -1,6 +1,7 @@ [% USE raw %] [% USE Asset %] [% USE Koha %] +[% USE KohaDates %] [% INCLUDE 'doc-head-open.inc' %]
Value | Date | +User | |||
---|---|---|---|---|---|
[% hist.data %] | -[% hist.datetime %] | -[% hist.title %] [% hist.firstname %] [% hist.surname %] | +[% hist.data | html %] | +[% hist.datetime | $KohaDates with_hours = 1 %] | +[% hist.title | html %] [% hist.firstname | html %] [% hist.surname | html %] |