--- /dev/null
+#!/usr/bin/perl
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
+=head1 NAME
+
+ISBDdetail.pl : script to show a biblio in ISBD format
+
+=head1 SYNOPSIS
+
+
+=head1 DESCRIPTION
+
+This script needs a biblionumber in bib parameter (bibnumber
+from koha style DB. Automaticaly maps to marc biblionumber).
+
+=head1 FUNCTIONS
+
+=over 2
+
+=cut
+
+
+use strict;
+require Exporter;
+use C4::Auth;
+use C4::Context;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use MARC::Record;
+use C4::Biblio;
+use C4::Catalogue;
+use HTML::Template;
+
+my $query=new CGI;
+
+my $dbh=C4::Context->dbh;
+
+my $biblionumber=$query->param('bib');
+my $bibid = $query->param('bibid');
+$bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless $bibid;
+$biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless $biblionumber;
+my $itemtype = &MARCfind_frameworkcode($dbh,$bibid);
+my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
+
+my $record =MARCgetbiblio($dbh,$bibid);
+# open template
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "catalogue/ISBDdetail.tmpl",
+ query => $query,
+ type => "intranet",
+ authnotrequired => 1,
+ debug => 1,
+ });
+
+my $ISBD = C4::Context->preference('ISBD');
+my @fields = $record->fields();
+foreach my $field (@fields) {
+ my $tag = $field->tag();
+ if ($tag<10) {
+ } else {
+ my @subf = $field->subfields;
+ for my $i (0..$#subf) {
+ my $subfieldcode = $subf[$i][0];
+ my $subfieldvalue = $subf[$i][1];
+ my $tagsubf = $tag.$subfieldcode;
+ $ISBD =~ s/\[(.?.?.?)$tagsubf(.*?)]/$1$subfieldvalue\[$1$tagsubf$2]$2$3/g;
+ }
+ }
+}
+$ISBD =~ s/\[(.*?)]//g;
+$ISBD =~ s/\n/<br>/g;
+$template->param(ISBD => $ISBD,
+ biblionumber => $biblionumber);
+
+output_html_with_http_headers $query, $cookie, $template->output;
+
--- /dev/null
+<!-- TMPL_INCLUDE NAME="cat-top.inc" -->
+<link rel="stylesheet" type="text/css" href="<!-- TMPL_VAR name="themelang" -->/includes/marc-editor.css">
+<div id="mainbloc">
+ <div id="bibliomenu">
+ <a href="detail.pl?bib=<!-- TMPL_VAR name="biblionumber" -->" class="button catalogue">
+ Normal
+ </a>
+ <a href="MARCdetail.pl?bib=<!-- TMPL_VAR name="biblionumber" -->" class="button catalogue">
+ MARC
+ </a>
+ <a href="javascript:Dopop('bookshelves/addbookbybiblionumber.pl?biblionumber=<!-- TMPL_VAR name="biblionumber" -->')" class="button catalogue">
+ Add to shelf
+ </a>
+ <a href="javascript:Dopop('detailprint.pl?bib=<!-- TMPL_VAR name="biblionumber" -->')" class="button catalogue">
+ Print
+ </a>
+ <!-- TMPL_UNLESS NAME="norequests" -->
+ <a class="button catalogue" href="/cgi-bin/koha/reserve.pl?bib=<!-- TMPL_VAR NAME="biblionumber" ESCAPE=URL -->">
+ Request
+ </a>
+ <!-- /TMPL_UNLESS -->
+ </div>
+
+ <div id="bloc100">
+ <h2 class="catalogue">ISBD</h2>
+ <p>ISBD : <!-- TMPL_VAR name="ISBD" --></p>
+ </div>
+</div>
+<script>
+function Dopop(link) {
+ newin=window.open(link,'width=500,height=400,toolbar=false,scrollbars=yes');
+}
+</script>
+
+<!-- TMPL_INCLUDE NAME="cat-bottom.inc" -->
<div id="mainbloc">
<!-- TMPL_LOOP NAME="BIBLIO_RESULTS" -->
+ <h1 class="catalogue"><!-- TMPL_VAR NAME="title" --> (<!-- TMPL_VAR NAME="author" -->) <!-- TMPL_VAR NAME="class" --></h1>
+ <a href="MARCdetail.pl?bib=<!-- TMPL_VAR name="biblionumber" -->" class="button catalogue">MARC</a>
+ <a href="ISBDdetail.pl?bib=<!-- TMPL_VAR name="biblionumber" -->" class="button catalogue">
+ ISBD
+ </a>
+ <a href="javascript:Dopop('bookshelves/addbookbybiblionumber.pl?biblionumber=<!-- TMPL_VAR name="biblionumber" -->')" class="button catalogue">
+ Add to shelf
+ </a>
+ <a href="javascript:Dopop('detailprint.pl?bib=<!-- TMPL_VAR name="biblionumber" -->')" class="button catalogue">
+ Print
+ </a>
<!-- TMPL_IF NAME="norequests" -->
<!-- TMPL_ELSE -->
- <a class="button" href=request.pl?bib=<!-- TMPL_VAR NAME="biblionumber" -->>Requests</a>
+ <a class="button catalogue" href=request.pl?bib=<!-- TMPL_VAR NAME="biblionumber" -->>Requests</a>
<!-- /TMPL_IF -->
- <h1 class="catalogue"><!-- TMPL_VAR NAME="title" --> (<!-- TMPL_VAR NAME="author" -->) <!-- TMPL_VAR NAME="class" --></h1>
<div id="bloc25">
<h2 class="catalogue">BIBLIO RECORD <!-- TMPL_VAR NAME="biblionumber" --></h2>
- <p><a href="MARCdetail.pl?bib=<!-- TMPL_VAR name="biblionumber" -->" class="button">MARC</a></p>
<p>
<!-- TMPL_IF name="isbn" --><b>ISBN:</b><a href="/cgi-bin/koha/opac-searchresults.pl?isbn=<!-- TMPL_VAR NAME="isbn" ESCAPE="URL" -->"><!-- TMPL_VAR NAME="ISBN" --></a><!-- /TMPL_IF --><br>
<!-- TMPL_IF name="subtitle" --><b>Subtitle:</b><!-- TMPL_VAR NAME="subtitle" --><!-- /TMPL_IF --><br>
<!-- /TMPL_LOOP -->
</table>
</div>
+<script>
+function Dopop(link) {
+ newin=window.open(link,'width=500,height=400,toolbar=false,scrollbars=yes');
+}
+</script>
+
<!-- TMPL_INCLUDE NAME="cat-bottom.inc" -->
projects / koha-ffzg.git / commitdiff