[Koha-cvs] CVS: koha/marc fill_usmarc.pl,1.9,1.10

[Paul POULAIN]

Update of /cvsroot/koha/koha/marc
In directory usw-pr-cvs1:/tmp/cvs-serv17732

Modified Files:
	fill_usmarc.pl 
Log Message:
small fixes : opac lib is the same as librarian lib by default.

Index: fill_usmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/marc/fill_usmarc.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** fill_usmarc.pl	11 Oct 2002 13:35:10 -0000	1.9
--- fill_usmarc.pl	11 Oct 2002 14:52:29 -0000	1.10
***************
*** 31,36 ****
  $dbh->do("delete from marc_tag_structure");
  $dbh->do("delete from marc_subfield_structure");
! my $reqtag=$dbh->prepare("insert into marc_tag_structure (tagfield,liblibrarian,repeatable) values (?,?,?)");
! my $reqsubfield=$dbh->prepare("insert into marc_subfield_structure (tagfield,tagsubfield,liblibrarian,repeatable) values (?,?,?,?)");
  my $description;
  foreach $tag (sort keys %$fields) {
--- 31,36 ----
  $dbh->do("delete from marc_tag_structure");
  $dbh->do("delete from marc_subfield_structure");
! my $reqtag=$dbh->prepare("insert into marc_tag_structure (tagfield,liblibrarian,libopac,repeatable) values (?,?,?,?)");
! my $reqsubfield=$dbh->prepare("insert into marc_subfield_structure (tagfield,tagsubfield,liblibrarian,libopac,repeatable) values (?,?,?,?,?)");
  my $description;
  foreach $tag (sort keys %$fields) {
***************
*** 38,42 ****
  	$fields->{$tag}->{"name"}  =~ s/\(NR\)//g;
  	$fields->{$tag}->{"name"}  =~ s/\<a h.*\<\/a>//g;
! 	$reqtag->execute($tag,$fields->{$tag}->{"name"},$fields->{$tag}->{"repeating"});
  	foreach $subfield (sort keys %{$fields->{$tag}->{"subfields"}}) {
  	    if ($fields->{$tag}->{"subfields"}->{$subfield}->{"description"}) {
--- 38,42 ----
  	$fields->{$tag}->{"name"}  =~ s/\(NR\)//g;
  	$fields->{$tag}->{"name"}  =~ s/\<a h.*\<\/a>//g;
! 	$reqtag->execute($tag,$fields->{$tag}->{"name"},$fields->{$tag}->{"name"},$fields->{$tag}->{"repeating"});
  	foreach $subfield (sort keys %{$fields->{$tag}->{"subfields"}}) {
  	    if ($fields->{$tag}->{"subfields"}->{$subfield}->{"description"}) {
***************
*** 51,54 ****
--- 51,55 ----
  				  $tag,
  				  $subfield,
+ 				  $description?$description:"Unknown",
  				  $description?$description:"Unknown",
  				  $fields->{$tag}->{"subfields"}->{$subfield}->{"repeating"}