[Koha-cvs] CVS: koha/value_builder unimarc_field_210c.pl,1.5,1.6 unimarc_field_225a.pl,1.7,1.8

[Paul POULAIN]

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

Modified Files:
	unimarc_field_210c.pl unimarc_field_225a.pl 
Log Message:
value builder for 210c (editor) and 225a (collection)
* create a authority category called "EDITORS"
* set :
200$a => ISBN
200$b => editor
200$c => (repeatable) collection.

Then enter, for example :
$a 23
$b Hachette Litterature
$c collection1|collection2|collection3

map your "editor" field to plugin 210c, your "collection" field to plugin 225a
Once you arrive on the editor field, if the beginning of the ISBN exists, the editor is automatically found.
Once you arrive on collection field, click on ... you can choose in the collection list.

The 210c / 225a comes from the UNIMARC editor/collection field, but should work as well with MARC21.

Index: unimarc_field_210c.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_210c.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** unimarc_field_210c.pl	7 Jun 2004 10:07:40 -0000	1.5
--- unimarc_field_210c.pl	23 Sep 2004 16:33:13 -0000	1.6
***************
*** 58,69 ****
  #---- the editor list is built from the "EDITORS" thesaurus
  #---- this thesaurus category must be filled as follow :
! #---- isbn_identifier authorityseparator editor authorityseparator collection
! #---- sample : 2224 -- Cerf -- Sources chrétiennes
! my $sth = $dbh->prepare("select father,stdlib from bibliothesaurus where category='EDITORS' and level=2");
  $sth->execute;
  my @editors;
  my $authoritysep = C4::Context->preference("authoritysep");
! while (my ($father,$stdlib) = $sth->fetchrow) {
! 	push(@editors,"$father $stdlib");
  }
  my $res  = "
--- 58,75 ----
  #---- the editor list is built from the "EDITORS" thesaurus
  #---- this thesaurus category must be filled as follow :
! #---- 200$a for isbn
! #---- 200$b for editor
! #---- 200$c (repeated) for collections
! my $sth = $dbh->prepare("select auth_subfield_table.authid,subfieldvalue from auth_subfield_table 
! 						left join auth_header on auth_subfield_table.authid=auth_header.authid 
! 						where authtypecode='EDITORS' and tag='200' and subfieldcode='a'");
! my $sth2 = $dbh->prepare("select subfieldvalue from auth_subfield_table where tag='200' and subfieldcode='b' and authid=?");
  $sth->execute;
  my @editors;
  my $authoritysep = C4::Context->preference("authoritysep");
! while (my ($authid,$isbn) = $sth->fetchrow) {
! 	$sth2->execute($authid);
! 	my ($editor) = $sth2->fetchrow;
! 	push(@editors,"$isbn $authoritysep $editor");
  }
  my $res  = "
***************
*** 98,102 ****
  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');
  
  }
--- 104,108 ----
  function Clic$function_name(subfield_managed) {
  	defaultvalue=escape(document.forms[0].field_value[subfield_managed].value);
! 	newin=window.open(\"../authorities/authorities-home.pl\",\"value builder\",'width=500,height=400,toolbar=false,scrollbars=yes');
  
  }

Index: unimarc_field_225a.pl
===================================================================
RCS file: /cvsroot/koha/koha/value_builder/unimarc_field_225a.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** unimarc_field_225a.pl	7 Jun 2004 10:07:40 -0000	1.7
--- unimarc_field_225a.pl	23 Sep 2004 16:33:13 -0000	1.8
***************
*** 120,130 ****
  		my @collections;
  	if ($isbn_found) {
! 		my $sth = $dbh->prepare("select stdlib from bibliothesaurus where father=? and category='EDITORS' order by stdlib");
  		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;
  			}
--- 120,135 ----
  		my @collections;
  	if ($isbn_found) {
! 		my $sth = $dbh->prepare("select auth_subfield_table.authid,subfieldvalue from auth_subfield_table 
! 						left join auth_header on auth_subfield_table.authid=auth_header.authid 
! 						where authtypecode='EDITORS' and tag='200' and subfieldcode='a' and subfieldvalue=?");
! 		my $sth2 = $dbh->prepare("select subfieldvalue from auth_subfield_table where tag='200' and subfieldcode='c' and authid=?");
  		my @splited = split //, $isbn_found;
  		my $isbn_rebuild='';
  		foreach my $x (@splited) {
  			$isbn_rebuild.=$x;
! 			$sth->execute($isbn_rebuild);
! 			my ($authid) = $sth->fetchrow;
! 			$sth2->execute($authid);
! 			while (my ($line)= $sth2->fetchrow) {
  				push @collections,$line;
  			}