Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 316 lines (266 sloc) 10.664 kb
a0b06fb @ctfliblime Prepare for perlbrew usage by changing all script magic to "#!/usr/bin/e...
ctfliblime authored
1 #!/usr/bin/env perl
d0374d0 Initial revision
rangi authored
2
1e67687 Added copyright statement to all .pl and .pm files
tonnesen authored
3 # Copyright 2000-2002 Katipo Communications
4 #
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
10 # version.
11 #
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA 02111-1307 USA
19
a399981 rel_3_0 moved to HEAD
tipaul authored
20
21 =head1 moremember.pl
22
23 script to do a borrower enquiry/bring up borrower details etc
24 Displays all the details about a borrower
25 written 20/12/99 by chris@katipo.co.nz
26 last modified 21/1/2000 by chris@katipo.co.nz
27 modified 31/1/2001 by chris@katipo.co.nz
28 to not allow items on request to be renewed
29
30 needs html removed and to use the C4::Output more, but its tricky
31
32 =cut
33
d0374d0 Initial revision
rangi authored
34 use strict;
bbff6a5 @pjones9 PT 10317209: Refactor some of the patron display loops into a new module
pjones9 authored
35 use warnings;
100e6a9 functions that were in C4::Interface::CGI::Output are now in C4::Output.
hdl authored
36 use CGI;
3607caa @ctfliblime Add Koha.pm and include it universally
ctfliblime authored
37 use Koha;
dbca398 Merged with arensb-context branch: use C4::Context->dbh instead of
arensb authored
38 use C4::Context;
21afa5d Fix for 1477, reserves/holds not showing in moremember.pl
Chris Cormack authored
39 use C4::Auth;
d0374d0 Initial revision
rangi authored
40 use C4::Output;
e82eca4 see mail on koha-devel : code cleaning on Search.pm + normalizing API + ...
tipaul authored
41 use C4::Members;
944063b patron attributes - staff search and display
Galen Charlton authored
42 use C4::Members::Attributes;
3c4159b followup on Owen's patron attributes patch
Galen Charlton authored
43 use C4::Members::AttributeTypes;
65e8370 @kylemhall Advanced Patron Search
kylemhall authored
44 use C4::Members::Lists;
36e44fe @hgq first partial commit for PTFS PT 8625217 CIRC 1124 fines
hgq authored
45 use C4::Accounts;
1da1059 @dlbptfs Improvements to hold-expiration process
dlbptfs authored
46 use C4::Dates qw/format_date/;
3ddec89 moving Reserves2.pm to Reserves.pm
tipaul authored
47 use C4::Reserves;
c596d55 HUGE COMMIT : code cleaning circulation.
tipaul authored
48 use C4::Circulation;
0376493 refactored slashifyDate function out of inline code, created C4/Koha.pm
pate authored
49 use C4::Koha;
df6c6bc Letters / alert system, continuing...
tipaul authored
50 use C4::Letters;
a399981 rel_3_0 moved to HEAD
tipaul authored
51 use C4::Biblio;
52 use C4::Branch; # GetBranchName
b6e6248 bug 3222: moved messaging preference editing
Galen Charlton authored
53 use C4::Form::MessagingPreferences;
bbff6a5 @pjones9 PT 10317209: Refactor some of the patron display loops into a new module
pjones9 authored
54 use C4::View::Member;
8663e9c calc_charges expects to be passed a database handler, this wasnt happeni...
rangi authored
55
f8f8a3c added 'update child to adult' dropbox option
Mason James authored
56 #use Smart::Comments;
8ffa67a Previous Cardnumber Tracking
PTFS authored
57 use Data::Dumper;
f8f8a3c added 'update child to adult' dropbox option
Mason James authored
58
673f0a2 moremember.pl - We will be doing a lot of debugging on Members, this is ...
Joe Atzberger authored
59 use vars qw($debug);
60
61 BEGIN {
62 $debug = $ENV{DEBUG} || 0;
63 }
64
d0374d0 Initial revision
rangi authored
65 my $input = new CGI;
9149ca0 @colinsc Squashed commit fixes from testing updatecharges permissions
colinsc authored
66 if (!$debug) {
67 $debug = $input->param('debug') || 0;
68 }
bbff6a5 @pjones9 PT 10317209: Refactor some of the patron display loops into a new module
pjones9 authored
69 my $print = $input->param('print') // '';
1a91801 Add Staff member type. Add permissions checks for bug# 1269
Ryan Higgins authored
70 my $error = $input->param('error');
9123b86 Fix for bug 1402, now if a renewal fails, the librarian is aware of it
Chris Cormack authored
71
8a41956 Bug 2652 - This patch is an extension of the slip printing feature
Darrell Ulm authored
72 my $quickslip = 0;
daa25c4 Tidied up missing/misappropriated variable names.
David Bavousett authored
73 my $template_name;
783823a Adding option to switch templates based in URL parameter.
oleonard authored
74
606ecb5 Patch from Joe Atzberger to remove $Id$ and $Log$ from scripts
Chris Cormack authored
75 if ($print eq "page") { $template_name = "members/moremember-print.tmpl"; }
76 elsif ($print eq "slip") { $template_name = "members/moremember-receipt.tmpl"; }
8a41956 Bug 2652 - This patch is an extension of the slip printing feature
Darrell Ulm authored
77 elsif ($print eq "qslip") { $template_name = "members/moremember-receipt.tmpl"; $quickslip = 1; }
606ecb5 Patch from Joe Atzberger to remove $Id$ and $Log$ from scripts
Chris Cormack authored
78 else { $template_name = "members/moremember.tmpl"; }
d0374d0 Initial revision
rangi authored
79
a399981 rel_3_0 moved to HEAD
tipaul authored
80 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
81 {
82 template_name => $template_name,
83 query => $input,
84 type => "intranet",
85 authnotrequired => 0,
1efbfd5 @colinsc Squashed commit of the following:
colinsc authored
86 flagsrequired => { borrowers => '*' },
a399981 rel_3_0 moved to HEAD
tipaul authored
87 debug => 1,
88 }
89 );
90 my $borrowernumber = $input->param('borrowernumber');
0376493 refactored slashifyDate function out of inline code, created C4/Koha.pm
pate authored
91
d0374d0 Initial revision
rangi authored
92 #start the page and read in includes
0b66bd8 Code Cleaning Members.
hdl authored
93 my $data = GetMember( $borrowernumber ,'borrowernumber');
bbff6a5 @pjones9 PT 10317209: Refactor some of the patron display loops into a new module
pjones9 authored
94 my $roaddetails = GetRoadTypeDetails( $data->{'streettype'} );
a399981 rel_3_0 moved to HEAD
tipaul authored
95 my $reregistration = $input->param('reregistration');
96
97 if ( not defined $data ) {
606ecb5 Patch from Joe Atzberger to remove $Id$ and $Log$ from scripts
Chris Cormack authored
98 $template->param (unknowuser => 1);
6251e32 Fix for bug 1014, internal server error on unknown borrower
Chris Cormack authored
99 output_html_with_http_headers $input, $cookie, $template->output;
a399981 rel_3_0 moved to HEAD
tipaul authored
100 exit;
101 }
0376493 refactored slashifyDate function out of inline code, created C4/Koha.pm
pate authored
102
a399981 rel_3_0 moved to HEAD
tipaul authored
103 # re-reregistration function to automatic calcul of date expiry
9149ca0 @colinsc Squashed commit fixes from testing updatecharges permissions
colinsc authored
104 if ( $reregistration && $reregistration eq 'y' ) {
24f3dbe Fix for re-enrollment not working
Chris Cormack authored
105 $data->{'dateexpiry'} = ExtendMemberSubscriptionTo( $borrowernumber );
106 }
107
9fb4a72 Bug Fixing 1782 patch
Henri-Damien LAURENT authored
108 my $category_type = $data->{'category_type'};
0b66bd8 Code Cleaning Members.
hdl authored
109
f8f8a3c added 'update child to adult' dropbox option
Mason James authored
110 ### $category_type
111
a399981 rel_3_0 moved to HEAD
tipaul authored
112 # in template <TMPL_IF name="I"> => instutitional (A for Adult& C for children)
113 $template->param( $data->{'categorycode'} => 1 );
0376493 refactored slashifyDate function out of inline code, created C4/Koha.pm
pate authored
114
c102b3c Members overhaul for Dates.pm - Stop double converts and disappearing ex...
Joe Atzberger authored
115 $debug and printf STDERR "dates (enrolled,expiry,birthdate) raw: (%s, %s, %s)\n", map {$data->{$_}} qw(dateenrolled dateexpiry dateofbirth);
606ecb5 Patch from Joe Atzberger to remove $Id$ and $Log$ from scripts
Chris Cormack authored
116 foreach (qw(dateenrolled dateexpiry dateofbirth)) {
673f0a2 moremember.pl - We will be doing a lot of debugging on Members, this is ...
Joe Atzberger authored
117 my $userdate = $data->{$_};
118 unless ($userdate) {
119 $debug and warn sprintf "Empty \$data{%12s}", $_;
120 $data->{$_} = '';
121 next;
122 }
c102b3c Members overhaul for Dates.pm - Stop double converts and disappearing ex...
Joe Atzberger authored
123 $userdate = C4::Dates->new($userdate,'iso')->output('syspref');
124 $data->{$_} = $userdate || '';
125 $template->param( $_ => $userdate );
606ecb5 Patch from Joe Atzberger to remove $Id$ and $Log$ from scripts
Chris Cormack authored
126 }
127 $data->{'IS_ADULT'} = ( $data->{'categorycode'} ne 'I' );
128
e7524b0 @pianohacker Allow patrons to be excluded from debt collection
pianohacker authored
129 for (qw(debarred gonenoaddress lost borrowernotes exclude_from_collection)) {
606ecb5 Patch from Joe Atzberger to remove $Id$ and $Log$ from scripts
Chris Cormack authored
130 $data->{$_} and $template->param(flagged => 1) and last;
7b4897d Checking for the existence of flags (debarred, gonenoaddress. lost) and ...
oleonard authored
131 }
132
a399981 rel_3_0 moved to HEAD
tipaul authored
133 $data->{'ethnicity'} = fixEthnicity( $data->{'ethnicity'} );
dcd788b @ctfliblime fix template error in moremember.pl
ctfliblime authored
134 $data->{ 'sex_'. ($data->{sex} // '') .'_p' } = 1;
52a5fd4 Moved C4/Charset.pm to C4/Interface/CGI/Output.pm
acli authored
135
3675d88 Fix upgrade-child: could not update child unless guarantor was defined. ...
Ryan Higgins authored
136 if ( $category_type eq 'C') {
137 if ($data->{'guarantorid'} ne '0' ) {
138 my $data2 = GetMember( $data->{'guarantorid'} ,'borrowernumber');
f1f833c @hinderer bug 3464: Takes columns country and B_country of table borrowers into ac...
hinderer authored
139 foreach (qw(address city B_address B_city phone mobile zipcode country B_country)) {
3675d88 Fix upgrade-child: could not update child unless guarantor was defined. ...
Ryan Higgins authored
140 $data->{$_} = $data2->{$_};
141 }
142 }
143 my ( $catcodes, $labels ) = GetborCatFromCatType( 'A', 'WHERE category_type = ?' );
144 my $cnt = scalar(@$catcodes);
145
146 $template->param( 'CATCODE_MULTI' => 1) if $cnt > 1;
147 $template->param( 'catcode' => $catcodes->[0]) if $cnt == 1;
5849a03 Fix so that reserves are only showing for the biblioitem not the biblio ...
rangi authored
148 }
0379fec templatified
dnmeid authored
149
f11a088 little fixes for update_child feature.
Mason James authored
150
a399981 rel_3_0 moved to HEAD
tipaul authored
151 if ( $data->{'ethnicity'} || $data->{'ethnotes'} ) {
152 $template->param( printethnicityline => 1 );
46c2ff9 Merged in optional ethnicity fix from rel-1-2
tonnesen authored
153 }
a399981 rel_3_0 moved to HEAD
tipaul authored
154 if ( $category_type eq 'A' ) {
155 $template->param( isguarantee => 1 );
156
0b66bd8 Code Cleaning Members.
hdl authored
157 my ( $count, $guarantees ) = GetGuarantees( $data->{'borrowernumber'} );
a399981 rel_3_0 moved to HEAD
tipaul authored
158 my @guaranteedata;
26e845e @hgq PTFS PT 7788517 recommitting items ownership fixes
hgq authored
159
160 foreach(@$guarantees) {
161 push @guaranteedata, {
162 borrowernumber => $$_{borrowernumber},
163 cardnumber => $$_{cardnumber},
164 name => join(' ',$$_{firstname},$$_{surname}),
165 };
a399981 rel_3_0 moved to HEAD
tipaul authored
166 }
167 $template->param( guaranteeloop => \@guaranteedata );
168 ( $template->param( adultborrower => 1 ) ) if ( $category_type eq 'A' );
169 }
170 else {
0b66bd8 Code Cleaning Members.
hdl authored
171 if ($data->{'guarantorid'}){
7e2b82a @dlbptfs Work in Progress commit dealing with the creation of TalkingTech MESSAGE...
dlbptfs authored
172 my ($guarantor) = GetMember( $data->{'guarantorid'},'borrowernumber');
3aa6ef5 moremember.pl - partially addresses date bug 1477
Joe Atzberger authored
173 $template->param(guarantor => 1);
606ecb5 Patch from Joe Atzberger to remove $Id$ and $Log$ from scripts
Chris Cormack authored
174 foreach (qw(borrowernumber cardnumber firstname surname)) {
175 $template->param("guarantor$_" => $guarantor->{$_});
176 }
a399981 rel_3_0 moved to HEAD
tipaul authored
177 }
552fd87 Fix for bug 1686
Chris Cormack authored
178 if ($category_type eq 'C'){
179 $template->param('C' => 1);
180 }
d0374d0 Initial revision
rangi authored
181 }
182
183 my %bor;
a399981 rel_3_0 moved to HEAD
tipaul authored
184 $bor{'borrowernumber'} = $borrowernumber;
0376493 refactored slashifyDate function out of inline code, created C4/Koha.pm
pate authored
185
d293d82 Itemtypes, branch, and categories are displayed using their respective d...
plugz authored
186 # Converts the branchcode to the branch name
87d94a8 Adding branch independancy management.
hdl authored
187 my $samebranch;
a399981 rel_3_0 moved to HEAD
tipaul authored
188 if ( C4::Context->preference("IndependantBranches") ) {
189 my $userenv = C4::Context->userenv;
6924e7d @PaulPoulain fix for 2997 : superlibrarian's ability to edit item/patron home branch ...
PaulPoulain authored
190 unless ( $userenv->{flags} % 2 == 1 ) {
a399981 rel_3_0 moved to HEAD
tipaul authored
191 $samebranch = ( $data->{'branchcode'} eq $userenv->{branch} );
192 }
6924e7d @PaulPoulain fix for 2997 : superlibrarian's ability to edit item/patron home branch ...
PaulPoulain authored
193 $samebranch = 1 if ( $userenv->{flags} % 2 == 1 );
1be2c41 (bug #3284) fix borrower deletion in independantbranches mode
Nahuel ANGELINETTI authored
194 }else{
195 $samebranch = 1;
87d94a8 Adding branch independancy management.
hdl authored
196 }
36a70c5 fixing sloppy coding in moremember.pl: 500 error when paton missing bran...
Joshua Ferraro authored
197 my $branchdetail = GetBranchDetail( $data->{'branchcode'});
198 $data->{'branchname'} = $branchdetail->{branchname};
a399981 rel_3_0 moved to HEAD
tipaul authored
199 my $lib1 = &GetSortDetails( "Bsort1", $data->{'sort1'} );
200 my $lib2 = &GetSortDetails( "Bsort2", $data->{'sort2'} );
6e19303 Cleanup - moremember.pl and .tmpl
Joe Atzberger authored
201 $template->param( lib1 => $lib1 ) if ($lib1);
202 $template->param( lib2 => $lib2 ) if ($lib2);
d0374d0 Initial revision
rangi authored
203
a399981 rel_3_0 moved to HEAD
tipaul authored
204
bbff6a5 @pjones9 PT 10317209: Refactor some of the patron display loops into a new module
pjones9 authored
205 ##################################################################################
a399981 rel_3_0 moved to HEAD
tipaul authored
206 # BUILD HTML
207 # show all reserves of this borrower, and the position of the reservation ....
1f6aeeb 4-14 Added table of suspended holds to moremember.pl under 'On Hold' tab...
PTFS authored
208
bbff6a5 @pjones9 PT 10317209: Refactor some of the patron display loops into a new module
pjones9 authored
209 my $patron_infobox = C4::View::Member::BuildFinesholdsissuesBox($borrowernumber, $input);
210 $template->param(%$patron_infobox);
7125390 @dlbptfs Placed a Revision History tab on the moremember.tmpl
dlbptfs authored
211
df6c6bc Letters / alert system, continuing...
tipaul authored
212 # current alert subscriptions
a399981 rel_3_0 moved to HEAD
tipaul authored
213 my $alerts = getalert($borrowernumber);
df6c6bc Letters / alert system, continuing...
tipaul authored
214 foreach (@$alerts) {
a399981 rel_3_0 moved to HEAD
tipaul authored
215 $_->{ $_->{type} } = 1;
216 $_->{relatedto} = findrelatedto( $_->{type}, $_->{externalid} );
df6c6bc Letters / alert system, continuing...
tipaul authored
217 }
c6d6f60 More fixes for patron images
Chris Nighswonger authored
218
e4c8fc4 (bug #3745) fix deletion of borrowers rights detection
Nahuel ANGELINETTI authored
219 my $candeleteuser;
220 my $userenv = C4::Context->userenv;
221 if($userenv->{flags} % 2 == 1){
222 $candeleteuser = 1;
223 }elsif ( C4::Context->preference("IndependantBranches") ) {
224 $candeleteuser = ( $data->{'branchcode'} eq $userenv->{branch} );
225 }else{
226 if( C4::Auth::getuserflags( $userenv->{flags},$userenv->{number})->{borrowers} ) {
227 $candeleteuser = 1;
228 }else{
229 $candeleteuser = 0;
230 }
231 }
232
36baa63 First installment on adding patronimage upload form to member details vi...
Chris Nighswonger authored
233 # check to see if patron's image exists in the database
234 # basically this gives us a template var to condition the display of
235 # patronimage related interface on
236 my ($picture, $dberror) = GetPatronImage($data->{'cardnumber'});
237 $template->param( picture => 1 ) if $picture;
c6d6f60 More fixes for patron images
Chris Nighswonger authored
238
9395334 add control of 'return date' if it 's a special or repeatable holidays ,...
btoumi authored
239 my $branch=C4::Context->userenv->{'branch'};
a399981 rel_3_0 moved to HEAD
tipaul authored
240
f75c46e @pjones9 PT 8910345: Fatal error in moremember.pl
pjones9 authored
241 $data->{worklibraries} //= [];
bb9ec95 @hgq PTFS PT 9447629, related to 8675147 holds
hgq authored
242 $$data{_worklibraries} = join(", ",@{$$data{worklibraries}});
243 $$data{_worklibraries} ||= '(none)';
244 $$data{_worklibraries} = '(none, not staff)' if $$data{category_type} ne 'S';
0379fec templatified
dnmeid authored
245 $template->param($data);
a399981 rel_3_0 moved to HEAD
tipaul authored
246
842082d @ctfliblime [delivers #14882093] Define staff permissions via "roles"
ctfliblime authored
247 for my $role_id (@{$data->{roles}}) {
248 my $role = C4::Members::GetMember($role_id);
249 push @{$data->{role_descriptions}}, {role_id => $role_id, description => $role->{surname}};
250 }
30ceed5 [#14882151] z3950: CRUD servers, map patrons to servers, search, import
gpo authored
251 $template->param(
252 member_roles => $data->{role_descriptions},
253 CGPz3950serverID => C4::Context->preference('CGPz3950serverID'),
254 z3950servers => C4::Members::GetMemberZ3950Servers($borrowernumber),
255 );
842082d @ctfliblime [delivers #14882093] Define staff permissions via "roles"
ctfliblime authored
256
8bce938 @pianohacker Implement requested changes
pianohacker authored
257 $template->param( lost_summary => GetLostStats( $borrowernumber, 1 ) );
b04979d @pianohacker Show lost items summary on member detail page
pianohacker authored
258
944063b patron attributes - staff search and display
Galen Charlton authored
259 if (C4::Context->preference('ExtendedPatronAttributes')) {
260 $template->param(ExtendedPatronAttributes => 1);
261 $template->param(patron_attributes => C4::Members::Attributes::GetBorrowerAttributes($borrowernumber));
3c4159b followup on Owen's patron attributes patch
Galen Charlton authored
262 my @types = C4::Members::AttributeTypes::GetAttributeTypes();
263 if (scalar(@types) == 0) {
264 $template->param(no_patron_attribute_types => 1);
265 }
944063b patron attributes - staff search and display
Galen Charlton authored
266 }
267
b6e6248 bug 3222: moved messaging preference editing
Galen Charlton authored
268 if (C4::Context->preference('EnhancedMessagingPreferences')) {
269 C4::Form::MessagingPreferences::set_form_values({ borrowernumber => $borrowernumber }, $template);
270 $template->param(messaging_form_inactive => 1);
271 $template->param(SMSSendDriver => C4::Context->preference("SMSSendDriver"));
272 $template->param(SMSnumber => defined $data->{'smsalertnumber'} ? $data->{'smsalertnumber'} : $data->{'mobile'});
273 }
274
8ffa67a Previous Cardnumber Tracking
PTFS authored
275 my @previousCardnumbers = C4::Stats::GetPreviousCardnumbers( $borrowernumber );
276
277 if ( @previousCardnumbers ) {
278 $template->param(
279 previousCardnumbersLoop => \@previousCardnumbers,
280 previousCardnumbersCount => scalar( @previousCardnumbers )
281 );
b6e6248 bug 3222: moved messaging preference editing
Galen Charlton authored
282 }
283
e662ba2 Handle non-latin1 charsets
acli authored
284 $template->param(
7b683cf bug 2874 [2/3]: added awareness of circulate/override_renewals subpermis...
John Beppu authored
285 detailview => 1,
03d8521 Allow renewal limits to be overridden
Michael Hafen authored
286 AllowRenewalLimitOverride => C4::Context->preference("AllowRenewalLimitOverride"),
6e19303 Cleanup - moremember.pl and .tmpl
Joe Atzberger authored
287 DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
e4c8fc4 (bug #3745) fix deletion of borrowers rights detection
Nahuel ANGELINETTI authored
288 CANDELETEUSER => $candeleteuser,
6e19303 Cleanup - moremember.pl and .tmpl
Joe Atzberger authored
289 roaddetails => $roaddetails,
290 borrowernumber => $borrowernumber,
291 categoryname => $data->{'description'},
279dab8 Bug 3514 syspref to control whether the Return column is active in Patro...
J. David Bavousett authored
292 dispreturn => C4::Context->preference('PatronDisplayReturn'),
6e19303 Cleanup - moremember.pl and .tmpl
Joe Atzberger authored
293 reregistration => $reregistration,
294 branch => $branch,
295 error => $error,
296 $error => 1,
297 StaffMember => ($category_type eq 'S'),
298 is_child => ($category_type eq 'C'),
299 dateformat => C4::Context->preference("dateformat"),
300 "dateformat_" . (C4::Context->preference("dateformat") || '') => 1,
1be2c41 (bug #3284) fix borrower deletion in independantbranches mode
Nahuel ANGELINETTI authored
301 samebranch => $samebranch,
8a41956 Bug 2652 - This patch is an extension of the slip printing feature
Darrell Ulm authored
302 quickslip => $quickslip,
7a719fd @kylemhall SCLS-CIRC-2200-1 - Receipt Templates - BugFix - Set UseRecieptTemplates ...
kylemhall authored
303 UseReceiptTemplates => C4::Context->preference("UseReceiptTemplates"),
a399981 rel_3_0 moved to HEAD
tipaul authored
304 );
0376493 refactored slashifyDate function out of inline code, created C4/Koha.pm
pate authored
305
6d72c1f @ctfliblime [#21791141] Add more info to patron records
ctfliblime authored
306 $template->param("showinitials" => 0);
93b4ee6 Hide othernames on patron display if DisplayOtherNames is off.
J. David Bavousett authored
307 $template->param("showothernames" => C4::Context->preference('DisplayOthernames'));
f2a28fb @dlbptfs Tweaks to a previous commit to toggle the display of initials and othern...
dlbptfs authored
308
65e8370 @kylemhall Advanced Patron Search
kylemhall authored
309 $template->param(
310 ListsLoop => GetLists(),
311 MemberListsLoop => GetListsForMember({ borrowernumber => $borrowernumber }),
312 );
313
52a5fd4 Moved C4/Charset.pm to C4/Interface/CGI/Output.pm
acli authored
314 output_html_with_http_headers $input, $cookie, $template->output;
30ceed5 [#14882151] z3950: CRUD servers, map patrons to servers, search, import
gpo authored
315 exit;
Something went wrong with that request. Please try again.