projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 4330 : Fixing copyright and removing unconditional warn chris c mail 2010-12...
[koha.git]
/
members
/
moremember.pl
diff --git
a/members/moremember.pl
b/members/moremember.pl
index
605e278
..
bb593c4
100755
(executable)
--- a/
members/moremember.pl
+++ b/
members/moremember.pl
@@
-1,6
+1,7
@@
#!/usr/bin/perl
# Copyright 2000-2002 Katipo Communications
#!/usr/bin/perl
# Copyright 2000-2002 Katipo Communications
+# Copyright 2010 BibLibre
#
# This file is part of Koha.
#
#
# This file is part of Koha.
#
@@
-155,7
+156,7
@@
$data->{ "sex_".$data->{'sex'}."_p" } = 1;
my $catcode;
if ( $category_type eq 'C') {
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->{$_};
my $data2 = GetMember( 'borrowernumber' => $data->{'guarantorid'} );
foreach (qw(address city B_address B_city phone mobile zipcode country B_country)) {
$data->{$_} = $data2->{$_};
@@
-230,6
+231,12
@@
my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} );
$template->param( lib1 => $lib1 ) if ($lib1);
$template->param( lib2 => $lib2 ) if ($lib2);
$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);
# current issues
#
my $issue = GetPendingIssues($borrowernumber);
@@
-426,6
+433,7
@@
$template->param(
categoryname => $data->{'description'},
reregistration => $reregistration,
branch => $branch,
categoryname => $data->{'description'},
reregistration => $reregistration,
branch => $branch,
+ todaysdate => C4::Dates->today(),
totalprice => sprintf("%.2f", $totalprice),
totaldue => sprintf("%.2f", $total),
totaldue_raw => $total,
totalprice => sprintf("%.2f", $totalprice),
totaldue => sprintf("%.2f", $total),
totaldue_raw => $total,