From c16e4b878224a0f1c3f8325fc76fc0c9caf4ad14 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Wed, 2 Oct 2002 00:43:17 +0000
Subject: [PATCH] New script that provides a form for public members to update
 their personal details.

---
 opac/opac-userupdate.pl | 68 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100755 opac/opac-userupdate.pl

diff --git a/opac/opac-userupdate.pl b/opac/opac-userupdate.pl
new file mode 100755
index 0000000000..f2c7e19df9
--- /dev/null
+++ b/opac/opac-userupdate.pl
@@ -0,0 +1,68 @@
+#!/usr/bin/perl
+use strict;
+require Exporter;
+use CGI;
+use Mail::Sendmail;
+
+use C4::Output;       # gettemplate
+use C4::Auth;         # checkauth, getborrowernumber.
+use C4::Koha;
+use C4::Circulation::Circ2;
+
+
+my $query = new CGI;
+
+my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
+
+# get borrower information ....
+my $borrowernumber = getborrowernumber($loggedinuser);
+my ($borr, $flags) = getpatroninformation(undef, $borrowernumber);
+
+
+# handle the new information....
+# collect the form values and send an email.
+my @fields = ('title', 'surname', 'firstname', 'phone', 'faxnumber', 'streetaddress', 'emailaddress', 'city');
+my $update;
+my $updateemailaddress = "finlay\@katipo.co.nz";      #Will have to change this! !!!!!!!!!!!!!!!!!!!
+if ($query->{'title'}) {
+    # get all the fields:
+    my $message = <<"EOF";
+Borrower $borr->{'cardnumber'} http://intradev.katipo.co.nz/cgi-bin/koha/moremember.pl?bornum=$borrowernumber
+
+has requested to change their personal details. Please check these new details and make the changes:
+EOF
+    foreach my $field (@fields){
+	my $newfield = $query->param($field);
+	$message .= "$field : $borr->{$field}  -->  $newfield\n";
+    }
+    $message .= "\n\nThanks,\nKoha\n\n";
+    my %mail = ( To      => $updateemailaddress ,
+		 From    => $updateemailaddress ,
+		 Subject => "User Request for update of Record.",
+		 Message => $message );
+    if (sendmail %mail) {
+# do something if it works....
+	warn "Mail sent ok\n";
+	print $query->redirect('/cgi-bin/koha/opac-user.pl');
+    } else {
+# do something if it doesnt work....
+        warn "Error sending mail: $Mail::Sendmail::error \n";
+    }
+} 
+
+my $template = gettemplate("opac-userupdate.tmpl", "opac");
+
+
+$borr->{'dateenrolled'} = slashifyDate($borr->{'dateenrolled'});
+$borr->{'expiry'}       = slashifyDate($borr->{'expiry'});
+$borr->{'dateofbirth'}  = slashifyDate($borr->{'dateofbirth'});
+$borr->{'ethnicity'}    = fixEthnicity($borr->{'ethnicity'});
+
+
+my @bordat;
+$bordat[0] = $borr;
+
+$template->param(BORROWER_INFO => \@bordat);
+
+
+print "Content-Type: text/html\n\n", $template->output; 
-- 
2.39.5