=cut
use strict;
-require Exporter;
use C4::Auth;
use C4::Context;
use C4::Output;
my $biblionumber = $query->param('biblionumber');
my $itemtype = &GetFrameworkCode($biblionumber);
-my $tagslib = &GetMarcStructure( $dbh, 0, $itemtype );
-
+my $tagslib = &GetMarcStructure( 0, $itemtype );
+my $biblio = GetBiblioData($biblionumber);
my $record = GetMarcBiblio($biblionumber);
# open template
debug => 1,
}
);
+
+$template->param(
+ bibliotitle => $biblio->{title},
+);
+
+$template->param( 'AllowOnShelfHolds' => C4::Context->preference('AllowOnShelfHolds') );
+$template->param( 'ItemsIssued' => CountItemsIssued( $biblionumber ) );
+
# adding the $RequestOnOpac param
my $RequestOnOpac;
if (C4::Context->preference("RequestOnOpac")) {
}
else {
my @subf = $fields[$x_i]->subfields;
-
+ my $previous;
# loop through each subfield
for my $i ( 0 .. $#subf ) {
$subf[$i][0] = "@" unless $subf[$i][0];
$tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab}
ne $tabloop );
next
- if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }
- ->{hidden} > 0 );
+ if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{hidden} > 0 );
my %subfield_data;
$subfield_data{marc_lib} =
- $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib};
+ ($tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib} eq $previous) ?
+ '--' :
+ $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib};
+ $previous = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{lib};
$subfield_data{link} =
$tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{link};
$subf[$i][1] =~ s/\n/<br\/>/g;
{
# 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] );
+ $subfield_data{marc_value} = $subf[$i][1];
}
else {
if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }
}
else {
$tag_data{tag} =
- $fields[$x_i]->tag() . ' -'
+ $fields[$x_i]->tag()
+ . ' '
+ . C4::Koha::display_marc_indicators($fields[$x_i])
+ . ' - '
. $tagslib->{ $fields[$x_i]->tag() }->{lib};
}
}
# 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} > 0 );
$witness{ $subf[$i][0] } =
$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{lib};
+
if ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{isurl} ) {
$this_row{ $subf[$i][0] } =
"<a href=\"$subf[$i][1]\">$subf[$i][1]</a>";
elsif ( $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq
"biblioitems.isbn" )
{
- $this_row{ $subf[$i][0] } = DisplayISBN( $subf[$i][1] );
+ $this_row{ $subf[$i][0] } = $subf[$i][1];
}
else {
$this_row{ $subf[$i][0] } =