[Koha-cvs] koha/C4 AuthoritiesMarc.pm
Joshua Ferraro
jmf at liblime.com
Mon Mar 12 23:16:31 CET 2007
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
#
More information about the Koha-cvs
mailing list