[Koha-cvs] CVS: koha/value_builder unimarc_field_210c.pl,1.1,1.2 unimarc_field_225a.pl,1.3,1.4

[Paul POULAIN]

Update of /cvsroot/koha/koha/value_builder
In directory sc8-pr-cvs1:/tmp/cvs-serv9403/value_builder

Modified Files:
	unimarc_field_210c.pl unimarc_field_225a.pl 
Log Message:
fixes, improvements and doc

Index: unimarc_field_210c.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_210c.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** unimarc_field_210c.pl	20 Dec 2002 14:50:50 -0000	1.1
--- unimarc_field_210c.pl	23 Jan 2003 12:30:35 -0000	1.2
***************
*** 97,101 ****
  
  function Clic$function_name(subfield_managed) {
! 	defaultvalue=document.forms[0].field_value[1].value;
  	newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_210c.pl&result=\"+defaultvalue+\"&index=$field_number\",\"value builder\",'width=500,height=400,toolbar=false,scrollbars=yes');
  
--- 97,101 ----
  
  function Clic$function_name(subfield_managed) {
! 	defaultvalue=escape(document.forms[0].field_value[subfield_managed].value);
  	newin=window.open(\"../plugin_launcher.pl?plugin_name=unimarc_field_210c.pl&result=\"+defaultvalue+\"&index=$field_number\",\"value builder\",'width=500,height=400,toolbar=false,scrollbars=yes');
  
***************
*** 115,119 ****
  my ($input) = @_;
  	my $index = $input->param("index");
! 	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=thesaurus_popup.pl?category=EDITORS&index=$index\"></html>";
  	exit;
  }
--- 115,120 ----
  my ($input) = @_;
  	my $index = $input->param("index");
! 	my $result = $input->param("result");
! 	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=thesaurus_popup.pl?category=EDITORS&index=$index&result=$result\"></html>";
  	exit;
  }

Index: unimarc_field_225a.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_225a.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** unimarc_field_225a.pl	20 Dec 2002 14:02:39 -0000	1.3
--- unimarc_field_225a.pl	23 Jan 2003 12:30:36 -0000	1.4
***************
*** 19,22 ****
--- 19,44 ----
  # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  # Suite 330, Boston, MA  02111-1307 USA
+ =head1 SYNOPSIS
+ 
+ This plugin is used to map isbn/editor with collection.
+ It need :
+   in thesaurus, a category named EDITORS
+   in this category, datas must be entered like following :
+   isbn separator editor separator collection.
+   for example :
+   2204 -- Cerf -- Cogitatio fidei
+   2204 -- Cerf -- Le Magistère de l'Eglise
+   2204 -- Cerf -- Lectio divina
+   2204 -- Cerf -- Lire la Bible
+   2204 -- Cerf -- Pour lire
+   2204 -- Cerf -- Sources chrétiennes
+ 
+   when the user clic on ... on 225a line, the popup shows the list of collections from the selected editor
+   if the biblio has no isbn, then the search if done on editor only
+   If the biblio ha an isbn, the search is done on isbn and editor. It's faster.
+ 
+ =over 2
+ 
+ =cut
  
  use strict;
***************
*** 85,95 ****
  					});
  # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
! 	my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father=? and category='EDITORS'");
! 	my @splited = split //, $isbn_found;
! 	my $isbn_rebuild='';
! 	my @collections;
! 	foreach my $x (@splited) {
! 		$isbn_rebuild.=$x;
! 		$sth->execute("$isbn_rebuild $authoritysep $editor_found $authoritysep");
  		while (my ($line)= $sth->fetchrow) {
  			push @collections,$line;
--- 107,127 ----
  					});
  # builds collection list : search isbn and editor, in parent, then load collections from bibliothesaurus table
! 	# if there is an isbn, complete search
! 		my @collections;
! 	if ($isbn_found) {
! 		my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father=? and category='EDITORS'");
! 		my @splited = split //, $isbn_found;
! 		my $isbn_rebuild='';
! 		foreach my $x (@splited) {
! 			$isbn_rebuild.=$x;
! 			$sth->execute("$isbn_rebuild $authoritysep $editor_found $authoritysep");
! 			while (my ($line)= $sth->fetchrow) {
! 				push @collections,$line;
! 			}
! 		}
! 	} else {
! 	# if there is no isbn, search with %
! 		my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father like ? and category='EDITORS'");
! 		$sth->execute("\%$authoritysep $editor_found $authoritysep");
  		while (my ($line)= $sth->fetchrow) {
  			push @collections,$line;