Note: my comments are untested and may not work without modification. Some
parts left to the reader to complete.
On Monday, July 30, 2007 2:16 PM, Michael Bowden wrote:
> @m856 = sort {$a cmp $b} @m856;
@m856 has MARC::Field objects. Comparing them as such are unlikely to
produce desired results.
better might be @m856 = sort {$a->as_usmarc() cmp $b->as_usmarc()} @m856,
but then you lose the field object. Better might be to leave out that step
and go on to:
> my %seen = ();
> my @new856 = ();
Instead of going through all fields in the record, you could go through the
856s you have gathered, add them to the %seen hash as usmarc (to facilitate
comparisons), and, as subsequent ones are already seen, delete the field.
After that, you could sort the fields, delete them, and then add back the
sorted fields.
if (@m856) {
foreach $f (@m856) {
#add this field to seen fields if not seen
unless ($seen{$f->as_usmarc}){
$seen{$f->as_usmarc} = $f;
}#unless seen this field's exact data
else {
#seen it, so delete current
$record->delete_field($f);
} #else seen this field
} #foreach 856
my @new856 = (); #add values of %seen, sorted according to keys of %seen
###sort remaining/deduplicated 856 fields, delete existing fields, and then
add sorted fields back.
###where @new856 contains the values of %seen, sorted according to the keys
of %seen
$record->insert_fields_ordered( @new856 );
#########################################
I hope this helps,
Bryan Baldus
[EMAIL PROTECTED]
[EMAIL PROTECTED]
http://home.inwave.com/eija
