Bugzilla – Attachment 3473 Details for
Bug 5684
Z3950 search on OCLC pulls in items (tag 952)
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Initial patch that removes all 952 fields in records from Z39.50 for new acquisitions
0001-Remove-all-items-fields-from-a-Z39.50-record-importe.patch (text/plain), 1.05 KB, created by
Frédérick Capovilla
on 2011-03-28 17:23:05 UTC
(
hide
)
Description:
Initial patch that removes all 952 fields in records from Z39.50 for new acquisitions
Filename:
MIME Type:
Creator:
Frédérick Capovilla
Created:
2011-03-28 17:23:05 UTC
Size:
1.05 KB
patch
obsolete
>From ad582b0ecc1c5b7029de6ee1003f9386f7935484 Mon Sep 17 00:00:00 2001 >From: =?utf-8?q?Fr=C3=A9d=C3=A9rick=20Capovilla?= <frederick.capovilla@sys-tech.net> >Date: Mon, 28 Mar 2011 12:09:23 -0400 >Subject: [PATCH] Remove all items fields from a Z39.50 record imported for acquisition. > >--- > acqui/neworderempty.pl | 5 +++++ > 1 files changed, 5 insertions(+), 0 deletions(-) > >diff --git a/acqui/neworderempty.pl b/acqui/neworderempty.pl >index 61f0962..7c726f3 100755 >--- a/acqui/neworderempty.pl >+++ b/acqui/neworderempty.pl >@@ -132,6 +132,11 @@ if ( $ordernumber eq '' and defined $params->{'breedingid'}){ > my ($marcrecord, $encoding) = MARCfindbreeding($params->{'breedingid'}); > die("Could not find the selected record in the reservoir, bailing") unless $marcrecord; > >+ # Remove all the items (952) from the imported record >+ foreach my $item ($marcrecord->field('952')) { >+ $marcrecord->delete_field($item); >+ } >+ > my $duplicatetitle; > #look for duplicates > if (! (($biblionumber,$duplicatetitle) = FindDuplicate($marcrecord))){ >-- >1.5.6.5 >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 5684
:
3051
|
3473
|
4102