Bugzilla – Attachment 689 Details for
Bug 2505
Omnibus: Enable Perl warnings in all modules and scripts
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Patch for opac-userupdate.pl
0012-Bug-2505-Enabled-warnings-in-opac-userupdate.pl.patch (text/plain), 2.77 KB, created by
Chris Cormack
on 2009-08-12 00:45:00 UTC
(
hide
)
Description:
Patch for opac-userupdate.pl
Filename:
MIME Type:
Creator:
Chris Cormack
Created:
2009-08-12 00:45:00 UTC
Size:
2.77 KB
patch
obsolete
>From d38e6788385a925a11e6cb830bf56c5f4bf863ec Mon Sep 17 00:00:00 2001 >From: Garry Collum <gcollum@gmail.com> >Date: Tue, 11 Aug 2009 20:37:47 -0400 >Subject: [PATCH] Bug 2505: Enabled warnings in opac-userupdate.pl >Content-Type: text/plain; charset="utf-8" > >Enabled warnings. Corrected all resulting warnings by initializing variables. > >Some fixes and enhancements possibly related to Bug: 1153 - Existing B_address now shows in the resulting email. Birthdate now appears in the email using the System's default format. If the patron changes data in the form data took place the FIELD name now appears as uppercase in the resulting email. >--- > opac/opac-userupdate.pl | 30 ++++++++++++++++++++++++++---- > 1 files changed, 26 insertions(+), 4 deletions(-) > >diff --git a/opac/opac-userupdate.pl b/opac/opac-userupdate.pl >index ebfe619..8664316 100755 >--- a/opac/opac-userupdate.pl >+++ b/opac/opac-userupdate.pl >@@ -18,6 +18,7 @@ > # Suite 330, Boston, MA 02111-1307 USA > > use strict; >+use warnings; > > use CGI; > use Mail::Sendmail; >@@ -52,8 +53,8 @@ my $lib = GetBranchDetail($borr->{'branchcode'}); > # handle the new information.... > # collect the form values and send an email. > my @fields = ( >- 'surname', 'firstname', 'phone', >- 'fax', 'address','address2','city','zipcode','phone','mobile','fax','phonepro', 'emailaddress','B_streetaddress','B_city','B_zipcode','dateofbirth','sex' >+ 'surname', 'firstname', >+ 'address','address2','city','zipcode','phone','mobile','fax','phonepro', 'emailaddress','B_streetaddress','B_city','B_zipcode','dateofbirth','sex' > ); > my $update; > my $updateemailaddress = $lib->{'branchemail'}; >@@ -89,9 +90,30 @@ Borrower $borr->{'cardnumber'} > has requested to change her/his personal details. > Please check these new details and make the changes: > EOF >+ >+ my $B_streetnumber = $borr->{'B_streetnumber'} || ''; >+ my $B_address = $borr->{'B_address'} || ''; >+ > foreach my $field (@fields) { >- my $newfield = $query->param($field); >- $message .= "$field : $borr->{$field} --> $newfield\n"; >+ my $newfield = $query->param($field) || ''; >+ my $borrowerfield = ''; >+ if($borr->{$field}) { >+ $borrowerfield = $borr->{$field}; >+ } >+ # reconstruct the alternate address >+ if($field eq "B_streetaddress") { >+ $borrowerfield = "$B_streetnumber $B_address"; >+ } >+ >+ if($field eq "dateofbirth") { >+ $borrowerfield = format_date( $borr->{'dateofbirth'} ) || ''; >+ } >+ >+ if($borrowerfield eq $newfield) { >+ $message .= "$field : $borrowerfield --> $newfield\n"; >+ } else { >+ $message .= uc($field) . " : $borrowerfield --> $newfield\n"; >+ } > } > $message .= "\n\nThanks,\nKoha\n\n"; > my %mail = ( >-- >1.5.6.5 >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 2505
:
686
|
687
|
688
|
689
|
690
|
691
|
692
|
693
|
694
|
695
|
696
|
697
|
698
|
699
|
700
|
701
|
702
|
703
|
704
|
705
|
706
|
707
|
708
|
709
|
2223
|
3884
|
4574
|
8209
|
8317
|
8322
|
8373
|
9034
|
9035
|
9036
|
34442