| Paste number 56347: | miker_ / eeevil - does this make sense as a patch for marc2bre? |
| Pasted by: | dbs |
| 8 months, 4 weeks ago | |
| #openils-evergreen | Context in IRC logs | |
| Paste contents: |
| --- /home/dan/source/Evergreen-trunk/Open-ILS/src/extras/import/marc2bre.pl 2008-02-08 15:40:55.000000000 -0500 +++ marc2bre_munged.pl 2008-02-22 18:43:16.000000000 -0500 @@ -166,7 +166,7 @@ } my $tcn; - ($rec, $tcn) = preprocess($rec); + ($rec, $tcn) = preprocess($rec, $id); $tcn->add_subfields(c => $id); @@ -212,8 +212,9 @@ sub preprocess { my $rec = shift; + my $id = shift; - my ($id, $source, $value) = ('','',''); + my ($source, $value) = ('','',''); if (!$id) { my $f = $rec->field('001'); |
This paste has no annotations.