Prepend only string content before first occurrence of ';'

PTFS-Europe · Jul 29, 2024 · 93bfecf · 93bfecf
1 parent f124eba
commit 93bfecf
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Koha/Plugin/Com/PTFSEurope/HLISD.pm b/Koha/Plugin/Com/PTFSEurope/HLISD.pm
@@ -168,6 +168,9 @@ sub harvest_libraries {
             }
         );
 
+        my $prepend = $library->{attributes}->{'document-supply'};
+        $prepend = substr( $prepend, 0, index( $prepend, ';' ) ) if ( index( $prepend, ';' ) != -1 );
+
         if($koha_library){
             $self->debug_msg(
                 sprintf(
@@ -182,7 +185,7 @@ sub harvest_libraries {
         my $library = Koha::Library->new(
             {
                 branchcode => $library->{id},
-                branchname => $library->{attributes}->{'document-supply'}
+                branchname => $prepend
                     . ' - ' . $library->{attributes}->{ $self->get_HLISD_library_field('branchname') },
                 branchaddress1 => $library->{attributes}->{$self->get_HLISD_library_field('branchaddress1')},
                 branchzip => $library->{attributes}->{$self->get_HLISD_library_field('branchzip')},