[Koha-cvs] koha/C4 AuthoritiesMarc.pm

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Joshua Ferraro <kados>  07/03/12 22:16:31

Modified files:
        C4             : AuthoritiesMarc.pm 

Log message:
        chcking for field before calling subfields

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/AuthoritiesMarc.pm?cvsroot=koha&r1=1.38&r2=1.39

Patches:
Index: AuthoritiesMarc.pm
===================================================================
RCS file: /sources/koha/koha/C4/AuthoritiesMarc.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- AuthoritiesMarc.pm  9 Mar 2007 14:31:47 -0000       1.38
+++ AuthoritiesMarc.pm  12 Mar 2007 22:16:31 -0000      1.39
@@ -637,7 +637,7 @@
 #     warn "record :".$record->as_formatted." authtattoreport 
:$auth_tag_to_report";
     # build a request for authoritysearch
     my $query='at='.$authtypecode.' ';
-    map {$query.= " and he=\"".$_->[1]."\"" if ($_->[0]=~/[A-z]/)}  
$record->field($auth_tag_to_report)->subfields();
+    map {$query.= " and he=\"".$_->[1]."\"" if ($_->[0]=~/[A-z]/)}  
$record->field($auth_tag_to_report)->subfields() if 
$record->field($auth_tag_to_report);
     my ($error,$results)=SimpleSearch($query,"authorityserver");
     # there is at least 1 result => return the 1st one
     if (@$results>0) {
@@ -948,8 +948,11 @@
 
 =cut
 
-# $Id: AuthoritiesMarc.pm,v 1.38 2007/03/09 14:31:47 tipaul Exp $
+# $Id: AuthoritiesMarc.pm,v 1.39 2007/03/12 22:16:31 kados Exp $
 # $Log: AuthoritiesMarc.pm,v $
+# Revision 1.39  2007/03/12 22:16:31  kados
+# chcking for field before calling subfields
+#
 # Revision 1.38  2007/03/09 14:31:47  tipaul
 # rel_3_0 moved to HEAD
 #