Attachment #2994 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 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},

Lines 148-155 function verify_images() { Link Here

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

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">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>

Lines 197-202 for my $itm (@items) { Link Here

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

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 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 );