finally found and killed the oisbn bug -- I think
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 9 May 2007 22:12:34 +0000 (22:12 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 9 May 2007 22:12:34 +0000 (22:12 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@7229 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm

index e4c22cc..37613d0 100644 (file)
@@ -1055,7 +1055,7 @@ sub oISBN {
        # Return the oISBN data structure.  This will be XMLized at a higher layer.
        return
                { metarecord => $mr->[0]->metarecord,
-                 record_list => { map { ($_->record, $_->value) } @$recs } };
+                 record_list => { map { $_ ? ($_->record, $_->value) : () } @$recs } };
 
 }
 __PACKAGE__->register_method(