opac/opac-userupdate.pl

   1 #!/usr/bin/perl
   2
   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
  20 use strict;
  21
  22 use CGI;
  23 use Mail::Sendmail;
  24
  25 use C4::Auth;    # checkauth, getborrowernumber.
  26 use C4::Context;
  27 use C4::Koha;
  28 use C4::Circulation;
  29 use C4::Output;
  30 use C4::Dates qw/format_date/;
  31 use C4::Members;
  32 use C4::Members::Attributes;
  33 use C4::Branch;
  34
  35 my $query = new CGI;
  36
  37 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
  38     {
  39         template_name   => "opac-userupdate.tmpl",
  40         query           => $query,
  41         type            => "opac",
  42         authnotrequired => 0,
  43         flagsrequired   => { borrow => 1 },
  44         debug           => 1,
  45     }
  46 );
  47
  48 # get borrower information ....
  49 my ( $borr ) = GetMemberDetails( $borrowernumber );
  50 my $lib = GetBranchDetail($borr->{'branchcode'});
  51
  52 # handle the new information....
  53 # collect the form values and send an email.
  54 my @fields = (
  55     'surname',       'firstname',    'phone',
  56     'fax', 'address','address2','city','zipcode','phone','mobile','fax','phonepro', 'emailaddress','B_streetaddress','B_city','B_zipcode','dateofbirth','sex'
  57 );
  58 my $update;
  59 my $updateemailaddress = $lib->{'branchemail'};
  60 $updateemailaddress = C4::Context->preference('KohaAdminEmailAddress') unless( $updateemailaddress =~ /\w+@\w+/);
  61 if ( $updateemailaddress eq '' ) {
  62     warn
  63 "KohaAdminEmailAddress system preference not set.  Couldn't send patron update information for $borr->{'firstname'} $borr->{'surname'} (#$borrowernumber)\n";
  64     my ($template) = get_template_and_user(
  65         {
  66             template_name   => "kohaerror.tmpl",
  67             query           => $query,
  68             type            => "opac",
  69             authnotrequired => 1,
  70             flagsrequired   => { borrow => 1 },
  71             debug           => 1,
  72         }
  73     );
  74
  75     $template->param(
  76         noadminemail => 1,
  77     );
  78
  79     output_html_with_http_headers $query, $cookie, $template->output;
  80     exit;
  81 }
  82
  83 if ( $query->param('modify') ) {
  84
  85     # get all the fields:
  86     my $message = <<"EOF";
  87 Borrower $borr->{'cardnumber'}
  88
  89 has requested to change her/his personal details.
  90 Please check these new details and make the changes:
  91 EOF
  92     foreach my $field (@fields) {
  93         my $newfield = $query->param($field);
  94         $message .= "$field : $borr->{$field}  -->  $newfield\n";
  95     }
  96     $message .= "\n\nThanks,\nKoha\n\n";
  97     my %mail = (
  98         To      => $updateemailaddress,
  99         From    => $updateemailaddress,
 100         Subject => "User Request for update of Record.",
 101         Message => $message,
 102         'Content-Type' => 'text/plain; charset="utf8"',
 103     );
 104
 105     if ( sendmail %mail ) {
 106
 107         # do something if it works....
 108         warn "Mail sent ok\n";
 109         print $query->redirect('/cgi-bin/koha/opac-user.pl?patronupdate=sent');
 110         exit;
 111     }
 112     else {
 113
 114         # do something if it doesnt work....
 115         warn "Error sending mail: $Mail::Sendmail::error \n";
 116     }
 117 }
 118
 119 $borr->{'dateenrolled'} = format_date( $borr->{'dateenrolled'} );
 120 $borr->{'dateexpiry'}       = format_date( $borr->{'dateexpiry'} );
 121 $borr->{'dateofbirth'}  = format_date( $borr->{'dateofbirth'} );
 122 $borr->{'ethnicity'}    = fixEthnicity( $borr->{'ethnicity'} );
 123
 124 if (C4::Context->preference('ExtendedPatronAttributes')) {
 125     my $attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber, 'opac');
 126     if (scalar(@$attributes) > 0) {
 127         $borr->{ExtendedPatronAttributes} = 1;
 128         $borr->{patron_attributes} = $attributes;
 129     }
 130 }
 131
 132 my @bordat;
 133 $bordat[0] = $borr;
 134
 135 $template->param(
 136     BORROWER_INFO => \@bordat,
 137     userupdateview => 1,
 138 );
 139
 140 output_html_with_http_headers $query, $cookie, $template->output;