X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=MARCdetail.pl;h=ce83d28c9d8475c5e0b2212105e73ddc13cbf0e7;hb=18a6bad8ab949dcb1f97c1fe391b1eee5e0ad147;hp=b82d6facdd3ac84e28f2b4c465aefe9f89d9c8cb;hpb=5c67993c8f80b73c2bbea280fc32d1c4f1bb6161;p=koha.git diff --git a/MARCdetail.pl b/MARCdetail.pl index b82d6facdd..ce83d28c9d 100755 --- a/MARCdetail.pl +++ b/MARCdetail.pl @@ -26,10 +26,17 @@ MARCdetail.pl : script to show a biblio in MARC format =head1 DESCRIPTION -This script needs a biblionumber in bib parameter (bibnumber from koha style DB. Automaticaly maps to marc biblionumber). -It shows the biblio in a (nice) MARC format depending on MARC parameters tables. -The template is in /catalogue/MARCdetail.tmpl. this template must be divided in 11 "tabs". -The 10 firsts presents the biblio, the 11th one presents the items attached to the biblio +This script needs a biblionumber in bib parameter (bibnumber +from koha style DB. Automaticaly maps to marc biblionumber). + +It shows the biblio in a (nice) MARC format depending on MARC +parameters tables. + +The template is in /catalogue/MARCdetail.tmpl. +this template must be divided into 11 "tabs". + +The first 10 tabs present the biblio, the 11th one presents +the items attached to the biblio =head1 FUNCTIONS @@ -40,13 +47,16 @@ The 10 firsts presents the biblio, the 11th one presents the items attached to t use strict; require Exporter; +use C4::Auth; use C4::Context; use C4::Output; +use C4::Interface::CGI::Output; use CGI; use C4::Search; use MARC::Record; use C4::Biblio; -use C4::Catalogue; +use C4::Acquisition; +use C4::Bull; #uses getsubscriptionsfrombiblionumber use HTML::Template; my $query=new CGI; @@ -54,14 +64,52 @@ my $query=new CGI; my $dbh=C4::Context->dbh; my $biblionumber=$query->param('bib'); -my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber); +# my $bibid = $query->param('bibid'); +my $itemtype = $query->param('frameworkcode'); +my $popup = $query->param('popup'); # if set to 1, then don't insert links, it's just to show the biblio + +# $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless $bibid; +# $biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless $biblionumber; +$itemtype = &MARCfind_frameworkcode($dbh,$biblionumber) if not ($itemtype); +$itemtype = '' if ($itemtype eq 'Default'); +# warn "itemtype :".$itemtype; -my $tagslib = &MARCgettagslib($dbh,1); +my $tagslib = &MARCgettagslib($dbh,1,$itemtype); -my $record =MARCgetbiblio($dbh,$bibid); -#warn $record->as_formatted(); +my $record =MARCgetbiblio($dbh,$biblionumber); # open template -my $template = gettemplate("catalogue/MARCdetail.tmpl",0); +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "catalogue/MARCdetail.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); + +#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=$itemtype; +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); # fill arrays my @loop_data =(); my $tag; @@ -70,25 +118,58 @@ for (my $tabloop = 0; $tabloop<=10;$tabloop++) { # loop through each tag my @fields = $record->fields(); my @loop_data =(); - foreach my $field (@fields) { - my @subf=$field->subfields; - my $previous_tag = ''; - my @subfields_data; -# loop through each subfield - for my $i (0..$#subf) { - $previous_tag = $field->tag(); - next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab} ne $tabloop); +# foreach my $field (@fields) { + my @subfields_data; + for (my $x_i=0;$x_i<=$#fields;$x_i++) { +# warn "$tabloop => $x_i"; + # if tag <10, there's no subfield, use the "@" trick + if ($fields[$x_i]->tag()<10) { + next if ($tagslib->{$fields[$x_i]->tag()}->{'@'}->{tab} ne $tabloop); + next if ($tagslib->{$fields[$x_i]->tag()}->{'@'}->{hidden}); my %subfield_data; - $subfield_data{marc_lib}=$tagslib->{$field->tag()}->{$subf[$i][0]}->{lib}; - $subfield_data{marc_value}=$subf[$i][1]; - $subfield_data{marc_tag}=$subf[$i][0]; + $subfield_data{marc_lib}=$tagslib->{$fields[$x_i]->tag()}->{'@'}->{lib}; + $subfield_data{marc_value}=$fields[$x_i]->data(); + $subfield_data{marc_subfield}='@'; + $subfield_data{marc_tag}=$fields[$x_i]->tag(); push(@subfields_data, \%subfield_data); + } else { + my @subf=$fields[$x_i]->subfields; + # loop through each subfield + for my $i (0..$#subf) { + $subf[$i][0] = "@" unless $subf[$i][0]; + next if ($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{tab} ne $tabloop); + next if ($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{hidden}); + my %subfield_data; + $subfield_data{marc_lib}=$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{lib}; + $subfield_data{link}=$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{link}; +# warn "tag : ".$tagslib->{$fields[$x_i]->tag()}." subfield :".$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}."lien koha? : "$subfield_data{link}; + if ($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{isurl}) { + $subfield_data{marc_value}="$subf[$i][1]"; + } elsif ($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{kohafield} eq "biblioitems.isbn") { +# warn " tag : ".$tagslib->{$fields[$x_i]->tag()}." subfield :".$tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}. "ISBN : ".$subf[$i][1]."PosttraitementISBN :".DisplayISBN($subf[$i][1]); + $subfield_data{marc_value}=DisplayISBN($subf[$i][1]); + } else { + if ($tagslib->{$fields[$x_i]->tag()}->{$subf[$i][0]}->{authtypecode}) { + $subfield_data{authority}=$fields[$x_i]->subfield(9); + } + $subfield_data{marc_value}=get_authorised_value_desc($fields[$x_i]->tag(), $subf[$i][0], $subf[$i][1], '', $dbh); + } + $subfield_data{marc_subfield}=$subf[$i][0]; + $subfield_data{marc_tag}=$fields[$x_i]->tag(); + push(@subfields_data, \%subfield_data); + } } if ($#subfields_data>=0) { my %tag_data; - $tag_data{tag}=$field->tag().' -'. $tagslib->{$field->tag()}->{lib}; - $tag_data{subfield} = \@subfields_data; + if ($fields[$x_i]->tag() eq $fields[$x_i-1]->tag()) { + $tag_data{tag}=""; + } else { + $tag_data{tag}=$fields[$x_i]->tag().' -'. $tagslib->{$fields[$x_i]->tag()}->{lib}; + } + my @tmp = @subfields_data; + $tag_data{subfield} = \@tmp; push (@loop_data, \%tag_data); + undef @subfields_data; } } $template->param($tabloop."XX" =>\@loop_data); @@ -102,11 +183,13 @@ my @fields = $record->fields(); my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code my @big_array; foreach my $field (@fields) { + next if ($field->tag()<10); my @subf=$field->subfields; my %this_row; # loop through each subfield for my $i (0..$#subf) { next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab} ne 10); + next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{hidden}); $witness{$subf[$i][0]} = $tagslib->{$field->tag()}->{$subf[$i][0]}->{lib}; $this_row{$subf[$i][0]} =$subf[$i][1]; } @@ -118,7 +201,6 @@ foreach my $field (@fields) { foreach my $subfield_code (keys(%witness)) { for (my $i=0;$i<=$#big_array;$i++) { $big_array[$i]{$subfield_code}=" " unless ($big_array[$i]{$subfield_code}); -# warn "filled : ".$big_array[$i]{$subfield_code}; } } # now, construct template ! @@ -129,7 +211,6 @@ for (my $i=0;$i<=$#big_array; $i++) { foreach my $subfield_code (keys(%witness)) { $items_data .="".$big_array[$i]{$subfield_code}.""; } -# warn $items_data; my %row_data; $row_data{item_value} = $items_data; push(@item_value_loop,\%row_data); @@ -140,9 +221,39 @@ foreach my $subfield_code (keys(%witness)) { push(@header_value_loop, \%header_value); } +my $subscriptionsnumber = getsubscriptionfrombiblionumber($biblionumber); $template->param(item_loop => \@item_value_loop, item_header_loop => \@header_value_loop, biblionumber => $biblionumber, - bibid => $bibid); -print "Content-Type: text/html\n\n", $template->output; +# bibid => $bibid, + biblionumber => $biblionumber, + subscriptionsnumber => $subscriptionsnumber, + popup => $popup, + ); +output_html_with_http_headers $query, $cookie, $template->output; + +sub get_authorised_value_desc ($$$$$) { + my($tag, $subfield, $value, $framework, $dbh) = @_; + + #---- branch + if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) { + return getbranchname($value); + } + #---- itemtypes + if ($tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "itemtypes" ) { + return ItemType($value); + } + + #---- "true" authorized value + my $category = $tagslib->{$tag}->{$subfield}->{'authorised_value'}; + + if ($category ne "") { + my $sth = $dbh->prepare("select lib from authorised_values where category = ? and authorised_value = ?"); + $sth->execute($category, $value); + my $data = $sth->fetchrow_hashref; + return $data->{'lib'}; + } else { + return $value; # if nothing is found return the original value + } +}