@@ -, +, @@ AuthoritySeperator --- C4/AuthoritiesMarc.pm | 2 +- C4/Biblio.pm | 12 ++++++------ cataloguing/value_builder/unimarc_field_210c_bis.pl | 2 +- cataloguing/value_builder/unimarc_field_225a.pl | 2 +- installer/data/mysql/sysprefs.sql | 2 +- installer/data/mysql/updatedatabase.pl | 7 +++++++ .../prog/en/modules/admin/preferences/cataloguing.pref | 2 +- 7 files changed, 18 insertions(+), 11 deletions(-) --- a/C4/AuthoritiesMarc.pm +++ a/C4/AuthoritiesMarc.pm @@ -266,7 +266,7 @@ sub SearchAuthorities { ##Here we have to extract MARC record and $authid from ZEBRA AUTHORITIES my $rec=$oAResult->record($counter); - my $separator=C4::Context->preference('authoritysep'); + my $separator=C4::Context->preference('AuthoritySeparator'); my $authrecord = C4::Search::new_record_from_zebra( 'authorityserver', $rec->raw() --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -1824,7 +1824,7 @@ sub GetMarcSubjects { my @marcsubjects; my $subject_limit = C4::Context->preference("TraceCompleteSubfields") ? 'su,complete-subfield' : 'su'; - my $authoritysep = C4::Context->preference('authoritysep'); + my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator'); foreach my $field ( $record->field($fields_filter) ) { next unless ($field->tag() >= $mintag && $field->tag() <= $maxtag); @@ -1870,7 +1870,7 @@ sub GetMarcSubjects { code => $code, value => $value, link_loop => \@this_link_loop, - separator => (scalar @subfields_loop) ? $authoritysep : '' + separator => (scalar @subfields_loop) ? $AuthoritySeparator : '' }; } } @@ -1915,7 +1915,7 @@ sub GetMarcAuthors { } my @marcauthors; - my $authoritysep = C4::Context->preference('authoritysep'); + my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator'); foreach my $field ( $record->field($fields_filter) ) { next unless $field->tag() >= $mintag && $field->tag() <= $maxtag; @@ -1964,7 +1964,7 @@ sub GetMarcAuthors { code => $code, value => $value, link_loop => \@this_link_loop, - separator => (scalar @subfields_loop) ? $authoritysep : '' + separator => (scalar @subfields_loop) ? $AuthoritySeparator : '' }; } } @@ -2063,7 +2063,7 @@ sub GetMarcSeries { } my @marcseries; - my $authoritysep = C4::Context->preference('authoritysep'); + my $AuthoritySeparator = C4::Context->preference('AuthoritySeparator'); foreach my $field ( $record->field($fields_filter) ) { next unless $field->tag() >= $mintag && $field->tag() <= $maxtag; @@ -2099,7 +2099,7 @@ sub GetMarcSeries { code => $code, value => $value, link_loop => \@link_loop, - separator => (scalar @subfields_loop) ? $authoritysep : '', + separator => (scalar @subfields_loop) ? $AuthoritySeparator : '', volumenum => $volume_number, } } --- a/cataloguing/value_builder/unimarc_field_210c_bis.pl +++ a/cataloguing/value_builder/unimarc_field_210c_bis.pl @@ -88,7 +88,7 @@ sub plugin { my $index = $input->param('index'); my $result = $input->param('result'); my $editor_found = $input->param('editor_found'); - my $authoritysep = C4::Context->preference("authoritysep"); + my $AuthoritySeparator = C4::Context->preference("AuthoritySeparator"); warn Data::Dumper::Dumper $index; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( --- a/cataloguing/value_builder/unimarc_field_225a.pl +++ a/cataloguing/value_builder/unimarc_field_225a.pl @@ -108,7 +108,7 @@ sub plugin { my $index = $input->param('index'); my $result = $input->param('result'); my $editor_found = $input->param('editor_found'); - my $authoritysep = C4::Context->preference("authoritysep"); + my $AuthoritySeparator = C4::Context->preference("AuthoritySeparator"); my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { --- a/installer/data/mysql/sysprefs.sql +++ a/installer/data/mysql/sysprefs.sql @@ -40,7 +40,7 @@ INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` ('AnonymousPatron','0',NULL,'Set the identifier (borrowernumber) of the anonymous patron. Used for Suggestion and reading history privacy',''), ('AuthDisplayHierarchy','0','','Display authority hierarchies','YesNo'), ('AuthoritiesLog','1',NULL,'If ON, log edit/create/delete actions on authorities.','YesNo'), -('authoritysep','--','10','Used to separate a list of authorities in a display. Usually --','free'), +('AuthoritySeparator','--','10','Used to separate a list of authorities in a display. Usually --','free'), ('autoBarcode','OFF','incremental|annual|hbyymmincr|EAN13|OFF','Used to autogenerate a barcode: incremental will be of the form 1, 2, 3; annual of the form 2007-0001, 2007-0002; hbyymmincr of the form HB08010001 where HB=Home Branch','Choice'), ('AutoCreateAuthorities','0',NULL,'Automatically create authorities that do not exist when cataloging records.','YesNo'), ('AutoEmailOpacUser','0',NULL,'Sends notification emails containing new account details to patrons - when account is created.','YesNo'), --- a/installer/data/mysql/updatedatabase.pl +++ a/installer/data/mysql/updatedatabase.pl @@ -8465,6 +8465,13 @@ if ( CheckVersion($DBversion) ) { SetVersion($DBversion); } +$DBversion = "3.15.00.XXX"; +if ( CheckVersion($DBversion) ) { + $dbh->do("UPDATE systempreferences SET variable = 'AuthoritySeparator' WHERE variable = 'authoritysep'"); + print "Upgrade to $DBversion done (Bug 10330 - Rename system preference authoritysep to AuthoritySeparator)\n"; + SetVersion ($DBversion); +} + =head1 FUNCTIONS =head2 TableExists($table) --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref @@ -112,7 +112,7 @@ Cataloging: Display: - - 'Separate multiple displayed authors, series or subjects with ' - - pref: authoritysep + - pref: AuthoritySeparator class: short - '.' - --