Bug 2524: Adding script to submit test reports to smolder server

[koha_fer] / opac / opac-MARCdetail.pl

diff --git a/opac/opac-MARCdetail.pl b/opac/opac-MARCdetail.pl
index 1d15691..a1ecb99 100755 (executable)
--- a/opac/opac-MARCdetail.pl
+++ b/opac/opac-MARCdetail.pl
@@ -56,8 +56,8 @@ my $dbh = C4::Context->dbh;
 
 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
@@ -70,6 +70,11 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         debug           => 1,
     }
 );
+
+$template->param(
+    bibliotitle => $biblio->{title},
+);
+
 # adding the $RequestOnOpac param
 my $RequestOnOpac;
 if (C4::Context->preference("RequestOnOpac")) {
@@ -132,8 +137,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
                     $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};
@@ -182,7 +186,10 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
                 }
                 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};
                 }
             }
@@ -213,8 +220,10 @@ foreach my $field (@fields) {
     # 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>";
@@ -235,7 +244,7 @@ foreach my $field (@fields) {
     }
 }
 my ( $holdingbrtagf, $holdingbrtagsubf ) =
-  &GetMarcFromKohaField( $dbh, "items.holdingbranch", $itemtype );
+  &GetMarcFromKohaField( "items.holdingbranch", $itemtype );
 @big_array =
   sort { $a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf} } @big_array;