remove space before query

[Biblio-Z3950.git] / CROSBI.pm

diff --git a/CROSBI.pm b/CROSBI.pm
index 62ae19f..24bee4b 100644 (file)
--- a/CROSBI.pm
+++ b/CROSBI.pm
@@ -90,7 +90,7 @@ inner join rad_ustanova using (id) -- sifra
                        my $query = shift;
                        warn "## parse_fti [$query]";
                        my $fti;
-                       if ( $query =~ s/^(fti_.+):// ) {
+                       if ( $query =~ s/^(fti_.+):\s*// ) {
                                $fti = $1;
                        } else {
                                warn "INVALID QUERY no fti_xxx: [$query]";
@@ -416,7 +416,7 @@ sub next_marc {
                        my $delimiter = shift @_;
                        my ( $before,$after ) = ( '', '' );
                        ( $before, $value, $after ) = @$value if ( ref $value eq 'ARRAY' );
-                       $out .= $last_delimiter . $value if $value;
+                       $out .= $last_delimiter . $before . $value . $after if $value;
                        $last_delimiter = $delimiter || last;
                }
                warn "### [$out]";