Attachment #2241 for bug #4885

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




      &GetISBDView

      &GetMarcNotes
      &GetMarcISBN
      &GetMarcSubjects
      &GetMarcBiblio
      &GetMarcAuthors

    }
}

=head2 GetMarcISBN

  $marcisbnsarray = GetMarcISBN( $record, $marcflavour );

Get all ISBNs from the MARC record and returns them in an array.
ISBNs stored in differents places depending on MARC flavour

=cut

sub GetMarcISBN {
    my ( $record, $marcflavour ) = @_;
    my $scope;
    if ( $marcflavour eq "MARC21" ) {
        $scope = '020';
    } else {    # assume unimarc if not marc21
        $scope = '010';
    }
    my @marcisbns;
    my $isbn = "";
    my $tag  = "";
    my $marcisbn;
    foreach my $field ( $record->field($scope) ) {
        my $value = $field->as_string();
        if ( $isbn ne "" ) {
            $marcisbn = { marcisbn => $isbn, };
            push @marcisbns, $marcisbn;
            $isbn = $value;
        }
        if ( $isbn ne $value ) {
            $isbn = $isbn . " " . $value;
        }
    }

    if ($isbn) {
        $marcisbn = { marcisbn => $isbn };
        push @marcisbns, $marcisbn;    #load last tag into array
    }
    return \@marcisbns;
}    # end GetMarcISBN

=head2 GetMarcNotes

  $marcnotesarray = GetMarcNotes( $record, $marcflavour );

Lines 87-92 unless (defined($record)) { Link Here

(-)a/catalogue/detail.pl (+2 lines)
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},

Lines 120-127 function verify_images() { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl (-2 / +6 lines)
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>

Lines 140-147 YAHOO.util.Event.onContentReady("furtherm", function () { Link Here

(-)a/koha-tmpl/opac-tmpl/prog/en/modules/opac-detail.tmpl (-2 / +6 lines)
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>

Lines 199-204 for my $itm (@items) { Link Here

(-)a/opac/opac-detail.pl (-1 / +2 lines)
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

Lines 68-73 BEGIN { Link Here

(-)a/C4/Biblio.pm (+41 lines)
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 );