From 8d44b6a516d7278ed5a68d58e1cadfb51aa779ce Mon Sep 17 00:00:00 2001 From: erickson Date: Mon, 22 Jan 2007 19:55:22 +0000 Subject: [PATCH] removed title and author normalization code git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_0@6802 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm index af20befea6..f50b9e4c20 100644 --- a/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm +++ b/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm @@ -426,8 +426,10 @@ sub finish_mods_batch { my $record = init_virtual_record(); # turn the hash into a fieldmapper object - (my $title = $perl->{title}) =~ s/\[.*?\]//og; - (my $author = $perl->{author}) =~ s/\(.*?\)//og; + #(my $title = $perl->{title}) =~ s/\[.*?\]//og; + #(my $author = $perl->{author}) =~ s/\(.*?\)//og; + my $title = $perl->{title}; + my $author = $perl->{author}; my @series; for my $s (@{$perl->{series}}) { -- 2.11.0