[Koha-cvs] CVS: koha/opac opac-userupdate.pl,1.7,1.8

[Ambrose Li]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1:/tmp/cvs-serv15797/opac

Modified Files:
	opac-userupdate.pl 
Log Message:
Sync to same file in 1.2 branch


Index: opac-userupdate.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-userupdate.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** opac-userupdate.pl	2 Feb 2003 07:18:38 -0000	1.7
--- opac-userupdate.pl	4 Feb 2003 06:01:52 -0000	1.8
***************
*** 6,9 ****
--- 6,10 ----
  
  use C4::Auth;         # checkauth, getborrowernumber.
+ use C4::Context;
  use C4::Koha;
  use C4::Circulation::Circ2;
***************
*** 30,34 ****
  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:
--- 31,46 ----
  my @fields = ('title', 'surname', 'firstname', 'phone', 'faxnumber', 'streetaddress', 'emailaddress', 'city');
  my $update;
! my $updateemailaddress= C4::Context->preference('KohaAdminEmailAddress');
! if ($updateemailaddress eq '') {
!     warn "KohaAdminEmailAddress system preference not set.  Couldn't send patron update information for $borr->{'firstname'} $borr->{'surname'} (#$borrowernumber)\n";
!     my $template = gettemplate("kohaerror.tmpl", "opac");
! 
!     $template->param(errormessage => 'KohaAdminEmailAddress system preference
!     is not set.  Please visit the library to update your user record');
! 
!     print $query->header(), $template->output;
!     exit;
! }
! 
  if ($query->{'title'}) {
      # get all the fields:
***************
*** 51,54 ****
--- 63,67 ----
  	warn "Mail sent ok\n";
  	print $query->redirect('/cgi-bin/koha/opac-user.pl');
+ 	exit;
      } else {
  # do something if it doesnt work....