X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=cataloguing%2Faddbiblio.pl;h=d2cd902b09c280b8d076ce5645e7f44445aae4c8;hb=b03648dc1965c6996da87ac94af73c1f941c45c3;hp=4fbd8316c9d07d9f3916ee9f0cf0fd2a5caf1377;hpb=fa5acd49ea62a5b9c812cb1a6adc8f328453fc6d;p=koha.git diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl index 4fbd8316c9..d2cd902b09 100755 --- a/cataloguing/addbiblio.pl +++ b/cataloguing/addbiblio.pl @@ -1,6 +1,5 @@ #!/usr/bin/perl -# $Id$ # Copyright 2000-2002 Katipo Communications # @@ -30,6 +29,11 @@ use C4::Context; use MARC::Record; use C4::Log; use C4::Koha; # XXX subfield_is_koha_internal_p +use C4::Branch; # XXX subfield_is_koha_internal_p +use C4::ClassSource; +use C4::ImportBatch; +use C4::Charset; + use Date::Calc qw(Today); use MARC::File::USMARC; use MARC::File::XML; @@ -42,9 +46,9 @@ our($tagslib,$authorised_values_sth,$is_a_modif,$usedTagsLib,$mandatory_z3950); =item MARCfindbreeding - $record = MARCfindbreeding($dbh, $breedingid); + $record = MARCfindbreeding($breedingid); -Look up the breeding farm with database handle $dbh, for the +Look up the import record repository for the record with record with id $breedingid. If found, returns the decoded MARC::Record; otherwise, -1 is returned (FIXME). Returns as second parameter the character encoding. @@ -52,25 +56,23 @@ Returns as second parameter the character encoding. =cut sub MARCfindbreeding { - my ( $dbh, $id ) = @_; - my $sth = - $dbh->prepare("select file,marc,encoding from marc_breeding where id=?"); - $sth->execute($id); - my ( $file, $marc, $encoding ) = $sth->fetchrow; + my ( $id ) = @_; + my ($marc, $encoding) = GetImportRecordMarc($id); + # remove the - in isbn, koha store isbn without any - if ($marc) { my $record = MARC::Record->new_from_usmarc($marc); - if ( $record->field('010') ) { - foreach my $field ( $record->field('010') ) { - foreach my $subfield ( $field->subfield('a') ) { - my $newisbn = $field->subfield('a'); + my ($isbnfield,$isbnsubfield) = GetMarcFromKohaField('biblioitems.isbn',''); + if ( $record->field($isbnfield) ) { + foreach my $field ( $record->field($isbnfield) ) { + foreach my $subfield ( $field->subfield($isbnsubfield) ) { + my $newisbn = $field->subfield($isbnsubfield); $newisbn =~ s/-//g; - $field->update( 'a' => $newisbn ); + $field->update( $isbnsubfield => $newisbn ); } - # record->insert_fields_ordered($record->field('010')); } } - - if ($record->subfield(100,'a')) { + # fix the unimarc 100 coded field (with unicode information) + if (C4::Context->preference('marcflavour') eq 'UNIMARC' && $record->subfield(100,'a')) { my $f100a=$record->subfield(100,'a'); my $f100 = $record->field(100); my $f100temp = $f100->as_string; @@ -83,14 +85,15 @@ sub MARCfindbreeding { } } - if ( ref($record) eq undef ) { + if ( !defined(ref($record)) ) { return -1; } else { + # normalize author : probably UNIMARC specific... if ( C4::Context->preference("z3950NormalizeAuthor") and C4::Context->preference("z3950AuthorAuthFields") ) { - my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author"); + my ( $tag, $subfield ) = GetMarcFromKohaField("biblio.author", ''); # my $summary = C4::Context->preference("z3950authortemplate"); my $auth_fields = @@ -162,16 +165,16 @@ sub build_authorized_values_list ($$$$$$$) { #---- branch if ( $tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) { - my $sth = - $dbh->prepare( - "select branchcode,branchname from branches order by branchname"); - $sth->execute; - push @authorised_values, "" - unless ( $tagslib->{$tag}->{$subfield}->{mandatory} ); - - while ( my ( $branchcode, $branchname ) = $sth->fetchrow_array ) { - push @authorised_values, $branchcode; - $authorised_lib{$branchcode} = $branchname; + #Use GetBranches($onlymine) + my $onlymine=C4::Context->preference('IndependantBranches') && + C4::Context->userenv && + C4::Context->userenv->{flags} % 2 == 0 && + C4::Context->userenv->{branch}; + my $branches = GetBranches($onlymine); + my @branchloop; + foreach my $thisbranch ( sort keys %$branches ) { + push @authorised_values, $thisbranch; + $authorised_lib{$thisbranch} = $branches->{$thisbranch}->{'branchname'}; } #----- itemtypes @@ -192,6 +195,25 @@ sub build_authorized_values_list ($$$$$$$) { } $value = $itemtype unless ($value); + #---- class_sources + } + elsif ( $tagslib->{$tag}->{$subfield}->{authorised_value} eq "cn_source" ) { + push @authorised_values, "" + unless ( $tagslib->{$tag}->{$subfield}->{mandatory} ); + + my $class_sources = GetClassSources(); + + my $default_source = C4::Context->preference("DefaultClassificationSource"); + + foreach my $class_source (sort keys %$class_sources) { + next unless $class_sources->{$class_source}->{'used'} or + ($value and $class_source eq $value) or + ($class_source eq $default_source); + push @authorised_values, $class_source; + $authorised_lib{$class_source} = $class_sources->{$class_source}->{'description'}; + $value = $class_source unless ($value); + $value = $default_source unless ($value); + } #---- "true" authorised value } else { @@ -243,12 +265,14 @@ sub GetMandatoryFieldZ3950($){ my @title = GetMarcFromKohaField('biblio.title',$frameworkcode); my @author = GetMarcFromKohaField('biblio.author',$frameworkcode); my @issn = GetMarcFromKohaField('biblioitems.issn',$frameworkcode); + my @lccn = GetMarcFromKohaField('biblioitems.lccn',$frameworkcode); return { $isbn[0].$isbn[1] => 'isbn', $title[0].$title[1] => 'title', $author[0].$author[1] => 'author', $issn[0].$issn[1] => 'issn', + $lccn[0].$lccn[1] => 'lccn', }; } @@ -265,6 +289,14 @@ sub create_input { $value =~ s/"/"/g; + # determine maximum length; 9999 bytes per ISO 2709 except for leader and MARC21 008 + my $max_length = 9999; + if ($tag eq '000') { + $max_length = 24; + } elsif ($tag eq '008' and C4::Context->preference('marcflavour') eq 'MARC21') { + $max_length = 40; + } + # if there is no value provided but a default value in parameters, get it unless ($value) { $value = $tagslib->{$tag}->{$subfield}->{defaultvalue}; @@ -276,11 +308,20 @@ sub create_input { $value =~ s/YYYY/$year/g; $value =~ s/MM/$month/g; $value =~ s/DD/$day/g; + my $username=(C4::Context->userenv?C4::Context->userenv->{'surname'}:"superlibrarian"); + $value=~s/user/$username/g; + } my $dbh = C4::Context->dbh; + + # map '@' as "subfield" label for fixed fields + # to something that's allowed in a div id. + my $id_subfield = $subfield; + $id_subfield = "00" if $id_subfield eq "@"; + my %subfield_data = ( tag => $tag, - subfield => $subfield, + subfield => $id_subfield, marc_lib => substr( $tagslib->{$tag}->{$subfield}->{lib}, 0, 22 ), marc_lib_plain => $tagslib->{$tag}->{$subfield}->{lib}, tag_mandatory => $tagslib->{$tag}->{mandatory}, @@ -288,34 +329,51 @@ sub create_input { repeatable => $tagslib->{$tag}->{$subfield}->{repeatable}, kohafield => $tagslib->{$tag}->{$subfield}->{kohafield}, index => $index_tag, - id => "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield, + id => "tag_".$tag."_subfield_".$id_subfield."_".$index_tag."_".$index_subfield, value => $value, random => CreateKey(), ); - if($subfield eq '@'){ - $subfield_data{id} = "tag_".$tag."_subfield_00_".$index_tag."_".$index_subfield; - } else { - $subfield_data{id} = "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield; - } if(exists $mandatory_z3950->{$tag.$subfield}){ $subfield_data{z3950_mandatory} = $mandatory_z3950->{$tag.$subfield}; } - + # decide if the subfield must be expanded (visible) by default or not + # if it is mandatory, then expand. If it is hidden explicitly by the hidden flag, hidden anyway $subfield_data{visibility} = "display:none;" if ( ($tagslib->{$tag}->{$subfield}->{hidden} % 2 == 1) and $value ne '' or ($value eq '' and !$tagslib->{$tag}->{$subfield}->{mandatory}) ); - + # always expand all subfields of a mandatory field + $subfield_data{visibility} = "" if $tagslib->{$tag}->{mandatory}; # it's an authorised field if ( $tagslib->{$tag}->{$subfield}->{authorised_value} ) { $subfield_data{marc_value} = build_authorized_values_list( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ); + # it's a subfield $9 linking to an authority record - see bug 2206 + } + elsif ($subfield eq "9" and + exists($tagslib->{$tag}->{'a'}->{authtypecode}) and + defined($tagslib->{$tag}->{'a'}->{authtypecode}) and + $tagslib->{$tag}->{'a'}->{authtypecode} ne '') { + + $subfield_data{marc_value} = + ""; + # it's a thesaurus / authority field } elsif ( $tagslib->{$tag}->{$subfield}->{authtypecode} ) { + my $readonly=(C4::Context->preference("BiblioAddsAuthorities")?"":qq(readonly="readonly")); $subfield_data{marc_value} = " - {$tag}->{$subfield}->{authtypecode}."&index=$subfield_data{id}','$subfield_data{id}')\">... - "; - # it's a plugin field + size=\"67\" + maxlength=\"$max_length\" + $readonly\/>{$tag}->{$subfield}->{authtypecode}."'); return false;\" tabindex=\"1\" title=\"Tag Editor\">... + "; } elsif ( $tagslib->{$tag}->{$subfield}->{'value_builder'} ) { + # it's a plugin field # opening plugin. Just check wether we are on a developper computer on a production one # (the cgidir differs) my $cgidir = C4::Context->intranetdir . "/cgi-bin/cataloguing/value_builder"; unless ( opendir( DIR, "$cgidir" ) ) { $cgidir = C4::Context->intranetdir . "/cataloguing/value_builder"; + closedir( DIR ); } my $plugin = $cgidir . "/" . $tagslib->{$tag}->{$subfield}->{'value_builder'}; - do $plugin || die "Plugin Failed: ".$plugin; - my $extended_param = plugin_parameters( $dbh, $rec, $tagslib, $subfield_data{id}, $tabloop ); - my ( $function_name, $javascript ) = plugin_javascript( $dbh, $rec, $tagslib, $subfield_data{id}, $tabloop ); -# my ( $function_name, $javascript,$extended_param ); + if (do $plugin) { + my $extended_param = plugin_parameters( $dbh, $rec, $tagslib, $subfield_data{id}, $tabloop ); + my ( $function_name, $javascript ) = plugin_javascript( $dbh, $rec, $tagslib, $subfield_data{id}, $tabloop ); - $subfield_data{marc_value} = - " + ... + $javascript"; + } else { + warn "Plugin Failed: $plugin"; + # supply default input form + $subfield_data{marc_value} = + " - ... - $javascript"; + \/> + "; + } # it's an hidden field } elsif ( $tag eq '' ) { @@ -362,6 +438,8 @@ sub create_input { type=\"hidden\" id=\"".$subfield_data{id}."\" name=\"".$subfield_data{id}."\" + size=\"67\" + maxlength=\"$max_length\" value=\"$value\" \/> "; } @@ -372,6 +450,8 @@ sub create_input { name=\"".$subfield_data{id}."\" class=\"input_marceditor\" tabindex=\"1\" + size=\"67\" + maxlength=\"$max_length\" value=\"$value\" \/>"; @@ -405,6 +485,8 @@ sub create_input { name=\"".$subfield_data{id}."\" value=\"$value\" tabindex=\"1\" + size=\"67\" + maxlength=\"$max_length\" class=\"input_marceditor\" \/> "; @@ -414,6 +496,22 @@ sub create_input { return \%subfield_data; } + +=item format_indicator + +Translate indicator value for output form - specifically, map +indicator = ' ' to ''. This is for the convenience of a cataloger +using a mouse to select an indicator input. + +=cut + +sub format_indicator { + my $ind_value = shift; + return '' if not defined $ind_value; + return '' if $ind_value eq ' '; + return $ind_value; +} + sub build_tabs ($$$$$) { my ( $template, $record, $dbh, $encoding,$input ) = @_; @@ -454,7 +552,7 @@ sub build_tabs ($$$$$) { foreach my $tag (@tab_data) { $i++; next if ! $tag; - my $indicator; + my ($indicator1, $indicator2); my $index_tag = CreateKey; # if MARC::Record is not empty =>use it as master loop, then add missing subfields that should be in the tab. @@ -518,8 +616,15 @@ sub build_tabs ($$$$$) { next if ( $tag < 10 ); next if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 ) - or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) - ); #check for visibility flag + or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) ) + and not ( $subfield eq "9" and + exists($tagslib->{$tag}->{'a'}->{authtypecode}) and + defined($tagslib->{$tag}->{'a'}->{authtypecode}) and + $tagslib->{$tag}->{'a'}->{authtypecode} ne "" + ) + ; #check for visibility flag + # if subfield is $9 in a field whose $a is authority-controlled, + # always include in the form regardless of the hidden setting - bug 2206 next if ( defined( $field->subfield($subfield) ) ); push( @subfields_data, @@ -539,12 +644,14 @@ sub build_tabs ($$$$$) { index => $index_tag, tag_lib => $tagslib->{$tag}->{lib}, repeatable => $tagslib->{$tag}->{repeatable}, + mandatory => $tagslib->{$tag}->{mandatory}, subfield_loop => \@subfields_data, fixedfield => $tag < 10?1:0, random => CreateKey, ); if ($tag >= 010){ # no indicator for theses tag - $tag_data{indicator} = $field->indicator(1).$field->indicator(2); + $tag_data{indicator1} = format_indicator($field->indicator(1)), + $tag_data{indicator2} = format_indicator($field->indicator(2)), } push( @loop_data, \%tag_data ); } @@ -559,7 +666,14 @@ sub build_tabs ($$$$$) { next if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -5 ) or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 4 ) ) + and not ( $subfield eq "9" and + exists($tagslib->{$tag}->{'a'}->{authtypecode}) and + defined($tagslib->{$tag}->{'a'}->{authtypecode}) and + $tagslib->{$tag}->{'a'}->{authtypecode} ne "" + ) ; #check for visibility flag + # if subfield is $9 in a field whose $a is authority-controlled, + # always include in the form regardless of the hidden setting - bug 2206 next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop ); push( @@ -576,7 +690,9 @@ sub build_tabs ($$$$$) { index => $index_tag, tag_lib => $tagslib->{$tag}->{lib}, repeatable => $tagslib->{$tag}->{repeatable}, - indicator => $indicator, + mandatory => $tagslib->{$tag}->{mandatory}, + indicator1 => $indicator1, + indicator2 => $indicator2, subfield_loop => \@subfields_data, tagfirstsubfield => $subfields_data[0], fixedfield => $tag < 10?1:0, @@ -596,6 +712,16 @@ sub build_tabs ($$$$$) { $template->param( BIG_LOOP => \@BIG_LOOP ); } +# +# sub that tries to find authorities linked to the biblio +# the sub : +# - search in the authority DB for the same authid (in $9 of the biblio) +# - search in the authority DB for the same 001 (in $3 of the biblio in UNIMARC) +# - search in the authority DB for the same values (exactly) (in all subfields of the biblio) +# if the authority is found, the biblio is modified accordingly to be connected to the authority. +# if the authority is not found, it's added, and the biblio is then modified to be connected to the authority. +# + sub BiblioAddAuthorities{ my ( $record, $frameworkcode ) = @_; my $dbh=C4::Context->dbh; @@ -611,30 +737,65 @@ AND (authtypecode IS NOT NULL AND authtypecode<>\"\")|); $query->execute($frameworkcode); my ($countcreated,$countlinked); while (my $data=$query->fetchrow_hashref){ - if ($record->field($data->{tagfield})){ - next if ($record->subfield($data->{tagfield},'3')||$record->subfield($data->{tagfield},'9')); + foreach my $field ($record->field($data->{tagfield})){ + next if ($field->subfield('3')||$field->subfield('9')); # No authorities id in the tag. # Search if there is any authorities to link to. my $query='at='.$data->{authtypecode}.' '; - map {$query.= " and he=".$_->[1] if ($_->[0]=~/[A-z]/)} $record->field($data->{tagfield})->subfields(); - my ($error,$results)=SimpleSearch($query,"authorityserver"); - # there is at least 1 result => return the 1st one - if (@$results>1) { + map {$query.= ' and he,ext="'.$_->[1].'"' if ($_->[0]=~/[A-z]/)} $field->subfields(); + my ($error, $results, $total_hits)=SimpleSearch( $query, undef, undef, [ "authorityserver" ] ); + # there is only 1 result + if ( $error ) { + warn "BIBLIOADDSAUTHORITIES: $error"; + return (0,0) ; + } + if ($results && scalar(@$results)==1) { my $marcrecord = MARC::File::USMARC::decode($results->[0]); - $record->field($data->{tagfield})->add_subfields('9'=>$marcrecord->field('001')->data); + $field->add_subfields('9'=>$marcrecord->field('001')->data); + $countlinked++; + } elsif (scalar(@$results)>1) { + #More than One result + #This can comes out of a lack of a subfield. +# my $marcrecord = MARC::File::USMARC::decode($results->[0]); +# $record->field($data->{tagfield})->add_subfields('9'=>$marcrecord->field('001')->data); $countlinked++; } else { #There are no results, build authority record, add it to Authorities, get authid and add it to 9 - ###NOTICE : This is only valid if a subfield is linked to one and only one authtypecode - - my $authtypedata=GetAuthType($data->{authtypecode}); - my $marcrecordauth=MARC::Record->new(); - my $field=MARC::Field->new($authtypedata->{auth_tag_to_report},'','',"a"=>"".$record->subfield($data->{tagfield},'a')); - map { $field->add_subfields($_->[0]=>$_->[1]) if ($_->[0]=~/[A-z]/ && $_->[0] ne "a" )} $record->field($data->{tagfield})->subfields(); - $marcrecordauth->insert_fields_ordered($field); - my $authid=AddAuthority($marcrecordauth,'',$data->{authtypecode}); - $countcreated++; - $record->field($data->{tagfield})->add_subfields('9'=>$authid); + ###NOTICE : This is only valid if a subfield is linked to one and only one authtypecode + ###NOTICE : This can be a problem. We should also look into other types and rejected forms. + my $authtypedata=GetAuthType($data->{authtypecode}); + next unless $authtypedata; + my $marcrecordauth=MARC::Record->new(); + if (C4::Context->preference('marcflavour') eq 'MARC21') { + $marcrecordauth->leader(' nz a22 o 4500'); + SetMarcUnicodeFlag($marcrecordauth, 'MARC21'); + } + my $authfield=MARC::Field->new($authtypedata->{auth_tag_to_report},'','',"a"=>"".$field->subfield('a')); + map { $authfield->add_subfields($_->[0]=>$_->[1]) if ($_->[0]=~/[A-z]/ && $_->[0] ne "a" )} $field->subfields(); + $marcrecordauth->insert_fields_ordered($authfield); + + # bug 2317: ensure new authority knows it's using UTF-8; currently + # only need to do this for MARC21, as MARC::Record->as_xml_record() handles + # automatically for UNIMARC (by not transcoding) + # FIXME: AddAuthority() instead should simply explicitly require that the MARC::Record + # use UTF-8, but as of 2008-08-05, did not want to introduce that kind + # of change to a core API just before the 3.0 release. + + if (C4::Context->preference('marcflavour') eq 'MARC21') { + $marcrecordauth->leader(' nz a22 o 4500'); + $marcrecordauth->insert_fields_ordered(MARC::Field->new('667','','','a'=>"Machine generated authority record.")); + my $cite = $record->author() . ", " . $record->title_proper() . ", " . $record->publication_date() . " "; + $cite =~ s/^[\s\,]*//; + $cite =~ s/[\s\,]*$//; + $cite = "Work cat.: (" . C4::Context->preference('MARCOrgCode') . ")". $record->subfield('999','c') . ": " . $cite; + $marcrecordauth->insert_fields_ordered(MARC::Field->new('670','','','a'=>$cite)); + } + +# warn "AUTH RECORD ADDED : ".$marcrecordauth->as_formatted; + + my $authid=AddAuthority($marcrecordauth,'',$data->{authtypecode}); + $countcreated++; + $field->add_subfields('9'=>$authid); } } } @@ -668,31 +829,22 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( } ); -#Getting the list of all frameworks -my $queryfwk = $dbh->prepare("select frameworktext, frameworkcode from biblio_framework"); -$queryfwk->execute; -my %select_fwk; -my @select_fwk; -my $curfwk; -push @select_fwk, "Default"; -$select_fwk{"Default"} = "Default"; - -while ( my ( $description, $fwk ) = $queryfwk->fetchrow ) { - push @select_fwk, $fwk; - $select_fwk{$fwk} = $description; -} -$curfwk = $frameworkcode; -my $framework = CGI::scrolling_list( - -name => 'Frameworks', - -id => 'Frameworks', - -default => $curfwk, - -onchange => 'Changefwk(this);', - -values => \@select_fwk, - -labels => \%select_fwk, - -size => 1, - -multiple => 0 -); -$template->param( framework => $framework, breedingid => $breedingid ); +# Getting the list of all frameworks +# get framework list +my $frameworks = getframeworks; +my @frameworkcodeloop; +foreach my $thisframeworkcode ( keys %$frameworks ) { + my %row = ( + value => $thisframeworkcode, + frameworktext => $frameworks->{$thisframeworkcode}->{'frameworktext'}, + ); + if ($frameworkcode eq $thisframeworkcode){ + $row{'selected'}="selected=\"selected\""; + } + push @frameworkcodeloop, \%row; +} +$template->param( frameworkcodeloop => \@frameworkcodeloop, + breedingid => $breedingid ); # ++ Global $tagslib = &GetMarcStructure( 1, $frameworkcode ); @@ -715,13 +867,14 @@ if (($biblionumber) && !($breedingid)){ $record = GetMarcBiblio($biblionumber); } if ($breedingid) { - ( $record, $encoding ) = MARCfindbreeding( $dbh, $breedingid ) ; + ( $record, $encoding ) = MARCfindbreeding( $breedingid ) ; } $is_a_modif = 0; if ($biblionumber) { $is_a_modif = 1; + $template->param( title => $record->title(), ); # if it's a modif, retrieve bibli and biblioitem numbers for the future modification of old-DB. ( $biblionumbertagfield, $biblionumbertagsubfield ) =