[Koha-cvs] koha/C4 AuthoritiesMarc.pm

[Tumer Garip]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Tumer Garip <tgarip1957 at savannah.gnu.org>	06/05/20 14:32:54

Modified files:
	C4             : AuthoritiesMarc.pm 

Log message:
	If an authority is modified biblios related to this authority were not updated but a list of modified authorities was written to disk. Now by defult they get modified as well unless a system preference 'dontmerge' is defined. dontmerge=1 will keep the previous behaviour.
	
	Authority zebra server may have different shadow settings. Support is added

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/AuthoritiesMarc.pm.diff?tr1=1.25&tr2=1.26&r1=text&r2=text

Patches:
Index: koha/C4/AuthoritiesMarc.pm
diff -u koha/C4/AuthoritiesMarc.pm:1.25 koha/C4/AuthoritiesMarc.pm:1.26
--- koha/C4/AuthoritiesMarc.pm:1.25	Fri May 19 18:09:39 2006
+++ koha/C4/AuthoritiesMarc.pm	Sat May 20 14:32:54 2006
@@ -506,7 +506,7 @@
 		return;
 		}
 	}
-$Zpackage->("commit") if (C4::Context->shadow);	
+$Zpackage->("commit") if (C4::Context->authorityservershadow);	
 $Zpackage->destroy;
 }else{
 zebrafiles($dbh,$authid,$op);
@@ -606,8 +606,25 @@
 #Now rewrite the $record to table with an add
 $authid=AUTHaddauthority($dbh,$record,$authid,$authtypecode);
 
-##Uncomment below and all biblios will get updated with modified authority-- To be used with $merge flag
-#	&merge($dbh,$authid,$record,$authid,$record);
+
+### If a library thinks that updating all biblios is a long process and wishes to leave that to a cron job to use merge_authotities.p
+### they should have a system preference "dontmerge=1" otherwise by default biblios will be updated
+### the $merge flag is now depreceated and will be removed at code cleaning
+
+if (C4::Context->preference('dontmerge')){
+# save the file in localfile/modified_authorities
+	my $cgidir = C4::Context->intranetdir ."/cgi-bin";
+	unless (opendir(DIR, "$cgidir")) {
+			$cgidir = C4::Context->intranetdir."/";
+	} 
+
+	my $filename = $cgidir."/localfile/modified_authorities/$authid.authid";
+	open AUTH, "> $filename";
+	print AUTH $authid;
+	close AUTH;
+}else{
+	&merge($dbh,$authid,$record,$authid,$record);
+}
 return $authid;
 }
 
@@ -912,8 +929,13 @@
 
 =cut
 
-# $Id: AuthoritiesMarc.pm,v 1.25 2006/05/19 18:09:39 tgarip1957 Exp $
+# $Id: AuthoritiesMarc.pm,v 1.26 2006/05/20 14:32:54 tgarip1957 Exp $
 # $Log: AuthoritiesMarc.pm,v $
+# Revision 1.26  2006/05/20 14:32:54  tgarip1957
+# If an authority is modified biblios related to this authority were not updated but a list of modified authorities was written to disk. Now by defult they get modified as well unless a system preference 'dontmerge' is defined. dontmerge=1 will keep the previous behaviour.
+#
+# Authority zebra server may have different shadow settings. Support is added
+#
 # Revision 1.25  2006/05/19 18:09:39  tgarip1957
 # All support for auth_subfield_tables is removed. All search is now with zebra authorities. New authority structure allows multiple linking of authorities of differnet types to one another.
 # Authority tables are modified to be compatible with new MARC frameworks. This change is part of Authority Linking & Zebra authorities. Requires change in Mysql database. It will break head unless all changes regarding this is implemented. This warning will take place on all commits regarding this