[Koha-cvs] CVS: koha/C4 AuthoritiesMarc.pm,1.9.2.1,1.9.2.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16041/C4

Modified Files:
      Tag: rel_2_2
	AuthoritiesMarc.pm 
Log Message:
* adding search on "main entry" (ie $a subfield) on a given authority (the "search everywhere" field is still here).
* adding a select box to requet "contain" or "begin with" search.
* fixing some bug in authority search (related to "main entry" search)

Index: AuthoritiesMarc.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/AuthoritiesMarc.pm,v
retrieving revision 1.9.2.1
retrieving revision 1.9.2.2
diff -C2 -r1.9.2.1 -r1.9.2.2
*** AuthoritiesMarc.pm	24 Feb 2005 13:12:13 -0000	1.9.2.1
--- AuthoritiesMarc.pm	28 Feb 2005 14:03:13 -0000	1.9.2.2
***************
*** 62,66 ****
--- 62,83 ----
  	#		(m1.subfieldvalue like "Des%" and m2.subfieldvalue like "27%")
  
+ 	# the marclist may contain "mainentry". In this case, search the tag_to_report, that depends on
+ 	# the authtypecode. Then, search on $a of this tag_to_report
+ 	for (my $i=0;$i<$#{$tags};$i++) {
+ 		if (@$tags[$i] eq "mainentry") {
+ 			my $sth = $dbh->prepare("select auth_tag_to_report from auth_types where authtypecode=?");
+ 			$sth->execute($authtypecode);
+ 			my ($tag_to_report) = $sth->fetchrow;
+ 			@$tags[$i] = $tag_to_report."a";
+ 		}
+ 	}
+ 
  	# "Normal" statements
+ 	# quote marc fields/subfields
+ 	for (my $i=0;$i<$#{$tags};$i++) {
+ 		if (@$tags[$i]) {
+ 			@$tags[$i] = $dbh->quote(@$tags[$i]);
+ 		}
+ 	}
  	my @normal_tags = ();
  	my @normal_and_or = ();
***************
*** 842,845 ****
--- 859,867 ----
  # $Id$
  # $Log$
+ # Revision 1.9.2.2  2005/02/28 14:03:13  tipaul
+ # * adding search on "main entry" (ie $a subfield) on a given authority (the "search everywhere" field is still here).
+ # * adding a select box to requet "contain" or "begin with" search.
+ # * fixing some bug in authority search (related to "main entry" search)
+ #
  # Revision 1.9.2.1  2005/02/24 13:12:13  tipaul
  # saving authority modif in a text file. This will be used soon with another script (in crontab). The script in crontab will retrieve every authorityid in the directory localfile/authorities and modify every biblio using this authority. Those modifs may be long. So they can't be done through http, because we may encounter a webserver timeout, and kill the process before end of the job.