Attachment #46511 for bug #15537

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

Lines 40-45 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/xslt/MARC21slim2intranetDetail.xsl (-1 / +5 lines)
40	</xsl:choose>	40	</xsl:choose>
41	</xsl:variable>	41	</xsl:variable>
42	<xsl:variable name="leader" select="marc:leader"/>	42	<xsl:variable name="leader" select="marc:leader"/>
		43	<xsl:variable name="leader5" select="substring($leader,6,1)"/>
43	<xsl:variable name="leader6" select="substring($leader,7,1)"/>	44	<xsl:variable name="leader6" select="substring($leader,7,1)"/>
44	<xsl:variable name="leader7" select="substring($leader,8,1)"/>	45	<xsl:variable name="leader7" select="substring($leader,8,1)"/>
45	<xsl:variable name="leader19" select="substring($leader,20,1)"/>	46	<xsl:variable name="leader19" select="substring($leader,20,1)"/>
Lines 89-95 Link Here
89	<xsl:when test="$leader6='c' or $leader6='d'">Score</xsl:when>	90	<xsl:when test="$leader6='c' or $leader6='d'">Score</xsl:when>
90	</xsl:choose>	91	</xsl:choose>
91	</xsl:variable>	92	</xsl:variable>
92		93	<!-- Display alert if the record has been marked as deleted in the leader -->
		94	<xsl:if test="$leader5='d'">
		95	<div id="leader-delete-alert" class="alert">According to the MARC record leader, this record is deleted. It will not be visible in the OPAC.</div>
		96	</xsl:if>
93	<!-- Title Statement -->	97	<!-- Title Statement -->
94	<!-- Alternate Graphic Representation (MARC 880) -->	98	<!-- Alternate Graphic Representation (MARC 880) -->
95	<xsl:if test="$display880">	99	<xsl:if test="$display880">




    exit;
}

# redirect if biblio has LDR05=d
my $leader = $record->leader();
if ($leader){
    my $ldr05 = substr($leader,5,1);
    if ($ldr05 eq 'd'){
        my $ldr05_redirect = "/cgi-bin/koha/errors/404.pl";
        print $query->redirect($ldr05_redirect);
        exit;
    }
}

# redirect if opacsuppression is enabled and biblio is suppressed
if (C4::Context->preference('OpacSuppression')) {
    # FIXME hardcoded; the suppression flag ought to be materialized
- 

Return to bug 15537

Lines 91-96 if ( ! $record ) { Link Here

(-)a/opac/opac-detail.pl (-1 / +11 lines)
91	exit;	91	exit;
92	}	92	}
93		93
		94	# redirect if biblio has LDR05=d
		95	my $leader = $record->leader();
		96	if ($leader){
		97	my $ldr05 = substr($leader,5,1);
		98	if ($ldr05 eq 'd'){
		99	my $ldr05_redirect = "/cgi-bin/koha/errors/404.pl";
		100	print $query->redirect($ldr05_redirect);
		101	exit;
		102	}
		103	}
		104
94	# redirect if opacsuppression is enabled and biblio is suppressed	105	# redirect if opacsuppression is enabled and biblio is suppressed
95	if (C4::Context->preference('OpacSuppression')) {	106	if (C4::Context->preference('OpacSuppression')) {
96	# FIXME hardcoded; the suppression flag ought to be materialized	107	# FIXME hardcoded; the suppression flag ought to be materialized
97	-