--- /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');