#!/usr/bin/perl
# Copyright 2000-2002 Katipo Communications
+# Copyright 2010 BibLibre
#
# This file is part of Koha.
#
my $catcode;
if ( $category_type eq 'C') {
- if ($data->{'guarantorid'} ne '0' ) {
+ if ($data->{guarantorid} ) {
my $data2 = GetMember( 'borrowernumber' => $data->{'guarantorid'} );
foreach (qw(address city B_address B_city phone mobile zipcode country B_country)) {
$data->{$_} = $data2->{$_};
$template->param( lib1 => $lib1 ) if ($lib1);
$template->param( lib2 => $lib2 ) if ($lib2);
+# Show OPAC privacy preference is system preference is set
+if ( C4::Context->preference('OPACPrivacy') ) {
+ $template->param( OPACPrivacy => 1);
+ $template->param( "privacy".$data->{'privacy'} => 1);
+}
+
# current issues
#
my $issue = GetPendingIssues($borrowernumber);