Bug 19349: (QA follow-up) Cosmetic changes

[1] Construction with a // b instead of a; unless( a ) b;
[2] Error checking on subfieldCode
[3] Add explanation how to fill preference

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 8e31dcd..808ed8d 100644 (file)
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -3325,10 +3325,8 @@ sub ModBiblioMarc {
     };
     $record->as_usmarc; # Bug 20126/10455 This triggers field length calculation
 
-    my $m_rs = Koha::Biblio::Metadatas->find($metadata);
-    unless ($m_rs) {
-        $m_rs = Koha::Biblio::Metadata->new($metadata);
-    }
+    my $m_rs = Koha::Biblio::Metadatas->find($metadata) //
+        Koha::Biblio::Metadata->new($metadata);
 
     my $userenv = C4::Context->userenv;
     if ($userenv) {

diff --git a/Koha/Util/MARC.pm b/Koha/Util/MARC.pm
index a642b62..9268a16 100644 (file)
--- a/Koha/Util/MARC.pm
+++ b/Koha/Util/MARC.pm
@@ -211,6 +211,10 @@ sub set_marc_field {
 
     if ($marcField) {
         my ($fieldTag, $subfieldCode) = split /\$/, $marcField;
+        if( !$subfieldCode ) {
+            warn "set_marc_field: Invalid marcField format: $marcField\n";
+            return;
+        }
         my $field = $record->field($fieldTag);
         if ($field) {
             $field->update($subfieldCode => $value);

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 b25bf33..af80da8 100644 (file)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref
@@ -144,11 +144,11 @@ Cataloging:
             - pref: MarcFieldForCreatorId
             - and record's creator name in MARC subfield
             - pref: MarcFieldForCreatorName
-        -
             - Store record's last modifier borrowernumber in MARC subfield
             - pref: MarcFieldForModifierId
             - and record's last modifier name in MARC subfield
             - pref: MarcFieldForModifierName
+            - "<br/>NOTE: Use a dollar sign between field and subfield like 123$a."
     Display:
         -
             - 'Separate multiple displayed authors, series or subjects with '