View | Details | Raw Unified | Return to bug 4885
Collapse All | Expand All

(-)a/C4/Biblio.pm (+41 lines)
Lines 68-73 BEGIN { Link Here
68
      &GetISBDView
68
      &GetISBDView
69
69
70
      &GetMarcNotes
70
      &GetMarcNotes
71
      &GetMarcISBN
71
      &GetMarcSubjects
72
      &GetMarcSubjects
72
      &GetMarcBiblio
73
      &GetMarcBiblio
73
      &GetMarcAuthors
74
      &GetMarcAuthors
Lines 1254-1259 sub GetAuthorisedValueDesc { Link Here
1254
    }
1255
    }
1255
}
1256
}
1256
1257
1258
=head2 GetMarcISBN
1259
1260
  $marcisbnsarray = GetMarcISBN( $record, $marcflavour );
1261
1262
Get all ISBNs from the MARC record and returns them in an array.
1263
ISBNs stored in differents places depending on MARC flavour
1264
1265
=cut
1266
1267
sub GetMarcISBN {
1268
    my ( $record, $marcflavour ) = @_;
1269
    my $scope;
1270
    if ( $marcflavour eq "MARC21" ) {
1271
        $scope = '020';
1272
    } else {    # assume unimarc if not marc21
1273
        $scope = '010';
1274
    }
1275
    my @marcisbns;
1276
    my $isbn = "";
1277
    my $tag  = "";
1278
    my $marcisbn;
1279
    foreach my $field ( $record->field($scope) ) {
1280
        my $value = $field->as_string();
1281
        if ( $isbn ne "" ) {
1282
            $marcisbn = { marcisbn => $isbn, };
1283
            push @marcisbns, $marcisbn;
1284
            $isbn = $value;
1285
        }
1286
        if ( $isbn ne $value ) {
1287
            $isbn = $isbn . " " . $value;
1288
        }
1289
    }
1290
1291
    if ($isbn) {
1292
        $marcisbn = { marcisbn => $isbn };
1293
        push @marcisbns, $marcisbn;    #load last tag into array
1294
    }
1295
    return \@marcisbns;
1296
}    # end GetMarcISBN
1297
1257
=head2 GetMarcNotes
1298
=head2 GetMarcNotes
1258
1299
1259
  $marcnotesarray = GetMarcNotes( $record, $marcflavour );
1300
  $marcnotesarray = GetMarcNotes( $record, $marcflavour );
(-)a/catalogue/detail.pl (+2 lines)
Lines 87-92 unless (defined($record)) { Link Here
87
}
87
}
88
88
89
my $marcnotesarray   = GetMarcNotes( $record, $marcflavour );
89
my $marcnotesarray   = GetMarcNotes( $record, $marcflavour );
90
my $marcisbnsarray   = GetMarcISBN( $record, $marcflavour );
90
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
91
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
91
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
92
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
92
my $marcseriesarray  = GetMarcSeries($record,$marcflavour);
93
my $marcseriesarray  = GetMarcSeries($record,$marcflavour);
Lines 212-217 $template->param( Link Here
212
	MARCAUTHORS => $marcauthorsarray,
213
	MARCAUTHORS => $marcauthorsarray,
213
	MARCSERIES  => $marcseriesarray,
214
	MARCSERIES  => $marcseriesarray,
214
	MARCURLS => $marcurlsarray,
215
	MARCURLS => $marcurlsarray,
216
    MARCISBNS => $marcisbnsarray,
215
	subtitle    => $subtitle,
217
	subtitle    => $subtitle,
216
	itemdata_ccode      => $itemfields{ccode},
218
	itemdata_ccode      => $itemfields{ccode},
217
	itemdata_enumchron  => $itemfields{enumchron},
219
	itemdata_enumchron  => $itemfields{enumchron},
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl (-2 / +6 lines)
Lines 148-155 function verify_images() { Link Here
148
        
148
        
149
        <div class="yui-u" style="margin-top: 1em;">
149
        <div class="yui-u" style="margin-top: 1em;">
150
        <ul>
150
        <ul>
151
        <!-- TMPL_IF name="normalized_isbn" -->
151
        <!-- TMPL_IF NAME="MARCISBNS" -->
152
            <li><strong>ISBN:</strong> <!-- TMPL_VAR NAME="normalized_isbn" --></li>
152
            <li><strong>ISBN:</strong><ul><!-- TMPL_LOOP NAME="MARCISBNS" --><li><!-- TMPL_VAR NAME="marcisbn" --></li><!-- /TMPL_LOOP --></ul></li>
153
        <!-- TMPL_ELSE -->
154
            <!-- TMPL_IF name="normalized_isbn" -->
155
                <li><strong>ISBN:</strong> <!-- TMPL_VAR NAME="normalized_isbn" --></li>
156
            <!-- /TMPL_IF -->
153
        <!-- /TMPL_IF -->
157
        <!-- /TMPL_IF -->
154
        <!-- TMPL_IF name="issn" -->
158
        <!-- TMPL_IF name="issn" -->
155
            <li><strong>ISSN:</strong><!-- TMPL_VAR NAME="issn" --></li>
159
            <li><strong>ISSN:</strong><!-- TMPL_VAR NAME="issn" --></li>
(-)a/koha-tmpl/opac-tmpl/prog/en/modules/opac-detail.tmpl (-2 / +6 lines)
Lines 140-147 YAHOO.util.Event.onContentReady("furtherm", function () { Link Here
140
    
140
    
141
    <!-- TMPL_IF NAME="pages" --><span class="results_summary"><span class="label">Physical details:</span> <!-- TMPL_VAR NAME="pages" --> <!-- TMPL_VAR NAME="illus" --> <!-- TMPL_VAR NAME="size" --></span><!-- /TMPL_IF -->
141
    <!-- TMPL_IF NAME="pages" --><span class="results_summary"><span class="label">Physical details:</span> <!-- TMPL_VAR NAME="pages" --> <!-- TMPL_VAR NAME="illus" --> <!-- TMPL_VAR NAME="size" --></span><!-- /TMPL_IF -->
142
142
143
    <!-- TMPL_IF name="normalized_isbn" -->
143
    <!-- TMPL_IF NAME="MARCISBNS" -->
144
        <span class="results_summary"><span class="label">ISBN: </span><!-- TMPL_VAR NAME="normalized_isbn" --></span>
144
        <span class="results_summary"><span class="label">ISBN:</span><!-- TMPL_LOOP NAME="MARCISBNS" --><!-- TMPL_VAR NAME="marcisbn" --><!-- TMPL_IF NAME="__LAST__" -->.<!-- TMPL_ELSE -->; <!-- /TMPL_IF --><!-- /TMPL_LOOP --></span>
145
    <!-- TMPL_ELSE -->
146
        <!-- TMPL_IF name="normalized_isbn" -->
147
            <span class="results_summary"><span class="label">ISBN: </span><!-- TMPL_VAR NAME="normalized_isbn" --></span>
148
        <!-- /TMPL_IF -->
145
    <!-- /TMPL_IF -->
149
    <!-- /TMPL_IF -->
146
    <!-- TMPL_IF name="issn" -->
150
    <!-- TMPL_IF name="issn" -->
147
    <span class="results_summary"><span class="label">ISSN:</span><!-- TMPL_VAR NAME="issn" --></span>
151
    <span class="results_summary"><span class="label">ISSN:</span><!-- TMPL_VAR NAME="issn" --></span>
(-)a/opac/opac-detail.pl (-1 / +2 lines)
Lines 197-202 for my $itm (@items) { Link Here
197
my $dbh              = C4::Context->dbh;
197
my $dbh              = C4::Context->dbh;
198
my $marcflavour      = C4::Context->preference("marcflavour");
198
my $marcflavour      = C4::Context->preference("marcflavour");
199
my $marcnotesarray   = GetMarcNotes   ($record,$marcflavour);
199
my $marcnotesarray   = GetMarcNotes   ($record,$marcflavour);
200
my $marcisbnsarray   = GetMarcISBN   ($record,$marcflavour);
200
my $marcauthorsarray = GetMarcAuthors ($record,$marcflavour);
201
my $marcauthorsarray = GetMarcAuthors ($record,$marcflavour);
201
my $marcsubjctsarray = GetMarcSubjects($record,$marcflavour);
202
my $marcsubjctsarray = GetMarcSubjects($record,$marcflavour);
202
my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
203
my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
Lines 209-214 my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($bib Link Here
209
                     MARCAUTHORS             => $marcauthorsarray,
210
                     MARCAUTHORS             => $marcauthorsarray,
210
                     MARCSERIES              => $marcseriesarray,
211
                     MARCSERIES              => $marcseriesarray,
211
                     MARCURLS                => $marcurlsarray,
212
                     MARCURLS                => $marcurlsarray,
213
                     MARCISBNS               => $marcisbnsarray,
212
                     norequests              => $norequests,
214
                     norequests              => $norequests,
213
                     RequestOnOpac           => C4::Context->preference("RequestOnOpac"),
215
                     RequestOnOpac           => C4::Context->preference("RequestOnOpac"),
214
                     itemdata_ccode          => $itemfields{ccode},
216
                     itemdata_ccode          => $itemfields{ccode},
215
- 

Return to bug 4885