Bugzilla – Attachment 13730 Details for
Bug 9162
Add a system preference to set which notes fields appears on title notes/description separator
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
BUG 9162 - Add a system preference to set which notes fields appears on title notes/description separator
BUG-9162---Add-a-system-preference-to-set-which-no.patch (text/plain), 4.70 KB, created by
Vitor Fernandes
on 2012-11-28 11:09:47 UTC
(
hide
)
Description:
BUG 9162 - Add a system preference to set which notes fields appears on title notes/description separator
Filename:
MIME Type:
Creator:
Vitor Fernandes
Created:
2012-11-28 11:09:47 UTC
Size:
4.70 KB
patch
obsolete
>From b24cacf77429fb9bc395656f096a09578e87b644 Mon Sep 17 00:00:00 2001 >From: Vitor FERNANDES <vfernandes@keep.pt> >Date: Wed, 28 Nov 2012 11:07:54 +0000 >Subject: [PATCH] BUG 9162 - Add a system preference to set which notes fields > appears on title notes/description separator > >Added a new system preference to control the fields to not appear in the separator. >Change GetMarcNotes to use the system preference created to only appear the fields that aren't in the list, >--- > C4/Biblio.pm | 22 ++++++++++++-------- > installer/data/mysql/sysprefs.sql | 1 + > installer/data/mysql/updatedatabase.pl | 7 +++++++ > .../en/modules/admin/preferences/cataloguing.pref | 6 +++++- > 4 files changed, 26 insertions(+), 10 deletions(-) > >diff --git a/C4/Biblio.pm b/C4/Biblio.pm >index 832da69..bb49239 100644 >--- a/C4/Biblio.pm >+++ b/C4/Biblio.pm >@@ -1686,16 +1686,20 @@ sub GetMarcNotes { > my $note = ""; > my $tag = ""; > my $marcnote; >+ my %blacklist = map { $_ => 1 } split(/,/,C4::Context->preference('NotesBlacklist')); > foreach my $field ( $record->field($scope) ) { >- my $value = $field->as_string(); >- if ( $note ne "" ) { >- $marcnote = { marcnote => $note, }; >- push @marcnotes, $marcnote; >- $note = $value; >- } >- if ( $note ne $value ) { >- $note = $note . " " . $value; >- } >+ my $tag = $field->tag(); >+ if (!$blacklist{$tag}) { >+ my $value = $field->as_string(); >+ if ( $note ne "" ) { >+ $marcnote = { marcnote => $note, }; >+ push @marcnotes, $marcnote; >+ $note = $value; >+ } >+ if ( $note ne $value ) { >+ $note = $note . " " . $value; >+ } >+ } > } > > if ($note) { >diff --git a/installer/data/mysql/sysprefs.sql b/installer/data/mysql/sysprefs.sql >index 44f9eb3..7930a4d 100644 >--- a/installer/data/mysql/sysprefs.sql >+++ b/installer/data/mysql/sysprefs.sql >@@ -387,3 +387,4 @@ INSERT INTO systempreferences (variable,value,explanation,type) VALUES('INTRAdid > INSERT INTO systempreferences (variable, value, options, explanation, type) VALUES ('BlockReturnOfWithdrawnItems', '1', '0', 'If enabled, items that are marked as withdrawn cannot be returned.', 'YesNo'); > INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('HoldsToPullStartDate','2','Set the default start date for the Holds to pull list to this many days ago',NULL,'Integer'); > INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('alphabet','A B C D E F G H I J K L M N O P Q R S T U V W X Y Z','Alphabet than can be expanded into browse links, e.g. on Home > Patrons',NULL,'free'); >+INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('NotesBlacklist','','List of notes fields that should not appear in the title notes/description separator of details',NULL,'free'; >diff --git a/installer/data/mysql/updatedatabase.pl b/installer/data/mysql/updatedatabase.pl >index 966ec9b..2c87fd2 100755 >--- a/installer/data/mysql/updatedatabase.pl >+++ b/installer/data/mysql/updatedatabase.pl >@@ -6083,6 +6083,13 @@ if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { > SetVersion($DBversion); > } > >+$DBversion = "XXX"; >+if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) { >+ $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('NotesBlacklist','','List of notes fields that should not appear in the title notes/description separator of details',NULL,'free')"); >+ print "Upgrade to $DBversion done (Bug 9162 - Add a system preference to set which notes fields appears on title notes/description separator)\n"; >+ SetVersion($DBversion); >+} >+ > =head1 FUNCTIONS > > =head2 TableExists($table) >diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref >index 91f15c3..a324ff7 100644 >--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref >+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref >@@ -156,4 +156,8 @@ Cataloging: > - pref: OpacSuppressionByIPRange > class: short > - (Leave blank if not used. Define a range like <code>192.168.</code>.) >- >+ - >+ - Don't show these >+ - pref: NotesBlacklist >+ class: multi >+ - note fields in title notes separator (OPAC record details) and in the description separator (Staff client record details). The fields should appear separated with commas and according with the Koha MARC format (eg 3.. for UNIMARC, 5.. for MARC21) >-- >1.7.9.5
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 9162
:
13730
|
13916
|
14121
|
14264
|
14265