@@ -, +, @@ Bug 5729 : Fixing copyright and FSF address Bug 5729 : MT4588: Adds coins informations to intranet (written by Matthias Meusburger) --- catalogue/ISBDdetail.pl | 1 + catalogue/MARCdetail.pl | 8 ++- catalogue/detail.pl | 2 + .../prog/en/modules/catalogue/ISBDdetail.tmpl | 6 +++ .../prog/en/modules/catalogue/MARCdetail.tmpl | 44 ++++++++++++++++++- .../prog/en/modules/catalogue/detail.tmpl | 6 +++ 6 files changed, 61 insertions(+), 6 deletions(-) --- a/catalogue/ISBDdetail.pl +++ a/catalogue/ISBDdetail.pl @@ -90,6 +90,7 @@ $template->param ( isbdview => 1, z3950_search_params => C4::Search::z3950_search_args(GetBiblioData($biblionumber)), C4::Search::enabled_staff_search_views, + ocoins => GetCOinSBiblio($biblionumber), ); output_html_with_http_headers $query, $cookie, $template->output; --- a/catalogue/MARCdetail.pl +++ a/catalogue/MARCdetail.pl @@ -1,6 +1,7 @@ #!/usr/bin/perl # Copyright 2000-2002 Katipo Communications +# Parts Copyright Biblibre 2010 # # This file is part of Koha. # @@ -14,7 +15,7 @@ # 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., +# with this program; if not, write to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. =head1 NAME @@ -43,7 +44,6 @@ the items attached to the biblio =cut use strict; -#use warnings; FIXME - Bug 2505 use C4::Auth; use C4::Context; @@ -84,6 +84,8 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( } ); +$template->param( ocoins => GetCOinSBiblio($biblionumber) ); + #count of item linked my $itemcount = GetItemsCount($biblionumber); $template->param( count => $itemcount, @@ -118,7 +120,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { # deal with leader unless ( $tagslib->{'000'}->{'@'}->{tab} ne $tabloop ) - { # or ($tagslib->{'000'}->{'@'}->{hidden} =~ /-7|-4|-3|-2|2|3|5|8/ )) { + { # my %subfield_data; $subfield_data{marc_lib} = $tagslib->{'000'}->{'@'}->{lib}; $subfield_data{marc_value} = $record->leader(); --- a/catalogue/detail.pl +++ a/catalogue/detail.pl @@ -65,6 +65,8 @@ if (C4::Context->preference("XSLTDetailsDisplay") ) { } $template->param( 'SpineLabelShowPrintOnBibDetails' => C4::Context->preference("SpineLabelShowPrintOnBibDetails") ); +$template->param( ocoins => GetCOinSBiblio($biblionumber) ); + # some useful variables for enhanced content; # in each case, we're grabbing the first value we find in --- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/ISBDdetail.tmpl +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/ISBDdetail.tmpl @@ -16,6 +16,12 @@
+ + + "> + + +
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/MARCdetail.tmpl +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/MARCdetail.tmpl @@ -1,6 +1,21 @@ Koha › Catalog › MARC Details for <!-- TMPL_VAR NAME="bibliotitle" --> + + + +