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

(-)a/koha-tmpl/intranet-tmpl/prog/en/xslt/MARC21slim2intranetDetail.xsl (-1 / +5 lines)
Lines 40-45 Link Here
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">
(-)a/opac/opac-detail.pl (-1 / +11 lines)
Lines 91-96 if ( ! $record ) { Link Here
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
- 

Return to bug 15537