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 1253-1258 sub GetAuthorisedValueDesc { Link Here
1253
    }
1254
    }
1254
}
1255
}
1255
1256
1257
=head2 GetMarcISBN
1258
1259
  $marcisbnsarray = GetMarcISBN( $record, $marcflavour );
1260
1261
Get all ISBNs from the MARC record and returns them in an array.
1262
ISBNs stored in differents places depending on MARC flavour
1263
1264
=cut
1265
1266
sub GetMarcISBN {
1267
    my ( $record, $marcflavour ) = @_;
1268
    my $scope;
1269
    if ( $marcflavour eq "MARC21" ) {
1270
        $scope = '020';
1271
    } else {    # assume unimarc if not marc21
1272
        $scope = '010';
1273
    }
1274
    my @marcisbns;
1275
    my $isbn = "";
1276
    my $tag  = "";
1277
    my $marcisbn;
1278
    foreach my $field ( $record->field($scope) ) {
1279
        my $value = $field->as_string();
1280
        if ( $isbn ne "" ) {
1281
            $marcisbn = { marcisbn => $isbn, };
1282
            push @marcisbns, $marcisbn;
1283
            $isbn = $value;
1284
        }
1285
        if ( $isbn ne $value ) {
1286
            $isbn = $isbn . " " . $value;
1287
        }
1288
    }
1289
1290
    if ($isbn) {
1291
        $marcisbn = { marcisbn => $isbn };
1292
        push @marcisbns, $marcisbn;    #load last tag into array
1293
    }
1294
    return \@marcisbns;
1295
}    # end GetMarcISBN
1296
1256
=head2 GetMarcNotes
1297
=head2 GetMarcNotes
1257
1298
1258
  $marcnotesarray = GetMarcNotes( $record, $marcflavour );
1299
  $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 207-212 $template->param( Link Here
207
	MARCAUTHORS => $marcauthorsarray,
208
	MARCAUTHORS => $marcauthorsarray,
208
	MARCSERIES  => $marcseriesarray,
209
	MARCSERIES  => $marcseriesarray,
209
	MARCURLS => $marcurlsarray,
210
	MARCURLS => $marcurlsarray,
211
    MARCISBNS => $marcisbnsarray,
210
	subtitle    => $subtitle,
212
	subtitle    => $subtitle,
211
	itemdata_ccode      => $itemfields{ccode},
213
	itemdata_ccode      => $itemfields{ccode},
212
	itemdata_enumchron  => $itemfields{enumchron},
214
	itemdata_enumchron  => $itemfields{enumchron},
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl (-2 / +6 lines)
Lines 120-127 function verify_images() { Link Here
120
        
120
        
121
        <div class="yui-u" style="margin-top: 1em;">
121
        <div class="yui-u" style="margin-top: 1em;">
122
        <ul>
122
        <ul>
123
        <!-- TMPL_IF name="normalized_isbn" -->
123
        <!-- TMPL_IF NAME="MARCISBNS" -->
124
            <li><strong>ISBN:</strong> <!-- TMPL_VAR NAME="normalized_isbn" --></li>
124
            <li><strong>ISBN:</strong><ul><!-- TMPL_LOOP NAME="MARCISBNS" --><li><!-- TMPL_VAR NAME="marcisbn" --></li><!-- /TMPL_LOOP --></ul></li>
125
        <!-- TMPL_ELSE -->
126
            <!-- TMPL_IF name="normalized_isbn" -->
127
                <li><strong>ISBN:</strong> <!-- TMPL_VAR NAME="normalized_isbn" --></li>
128
            <!-- /TMPL_IF -->
125
        <!-- /TMPL_IF -->
129
        <!-- /TMPL_IF -->
126
        <!-- TMPL_IF name="issn" -->
130
        <!-- TMPL_IF name="issn" -->
127
            <li><strong>ISSN:</strong><!-- TMPL_VAR NAME="issn" --></li>
131
            <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">IBSN:</span><!-- TMPL_LOOP NAME="MARCISBNS" --><!-- TMPL_VAR NAME="marcisbn" -->; <!-- /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 199-204 for my $itm (@items) { Link Here
199
my $dbh              = C4::Context->dbh;
199
my $dbh              = C4::Context->dbh;
200
my $marcflavour      = C4::Context->preference("marcflavour");
200
my $marcflavour      = C4::Context->preference("marcflavour");
201
my $marcnotesarray   = GetMarcNotes   ($record,$marcflavour);
201
my $marcnotesarray   = GetMarcNotes   ($record,$marcflavour);
202
my $marcisbnsarray   = GetMarcISBN   ($record,$marcflavour);
202
my $marcauthorsarray = GetMarcAuthors ($record,$marcflavour);
203
my $marcauthorsarray = GetMarcAuthors ($record,$marcflavour);
203
my $marcsubjctsarray = GetMarcSubjects($record,$marcflavour);
204
my $marcsubjctsarray = GetMarcSubjects($record,$marcflavour);
204
my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
205
my $marcseriesarray  = GetMarcSeries  ($record,$marcflavour);
Lines 211-216 my $subtitle = GetRecordValue('subtitle', $record, GetFrameworkCode($bib Link Here
211
                     MARCAUTHORS             => $marcauthorsarray,
212
                     MARCAUTHORS             => $marcauthorsarray,
212
                     MARCSERIES              => $marcseriesarray,
213
                     MARCSERIES              => $marcseriesarray,
213
                     MARCURLS                => $marcurlsarray,
214
                     MARCURLS                => $marcurlsarray,
215
                     MARCISBNS               => $marcisbnsarray,
214
                     norequests              => $norequests,
216
                     norequests              => $norequests,
215
                     RequestOnOpac           => C4::Context->preference("RequestOnOpac"),
217
                     RequestOnOpac           => C4::Context->preference("RequestOnOpac"),
216
                     itemdata_ccode          => $itemfields{ccode},
218
                     itemdata_ccode          => $itemfields{ccode},
217
- 

Return to bug 4885