- my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc);
- if ($tag) {
- push @tags,$dbh->quote("$tag$subfield");
+ if ($marc) {
+ my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc);
+ if ($tag) {
+ push @tags,$dbh->quote("$tag$subfield");
+ } else {
+ push @tags, $dbh->quote(substr($marc,0,4));
+ }