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

[Ambrose Li]

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

Modified Files:
	opac-userupdate.pl 
Log Message:
Updated opac-userupdate.pl to work with 1.3
Copied kohaerror.tmpl from 1.2 for opac-userupdate.pl


Index: opac-userupdate.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-userupdate.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** opac-userupdate.pl	4 Feb 2003 06:01:52 -0000	1.8
--- opac-userupdate.pl	4 Feb 2003 06:40:05 -0000	1.9
***************
*** 9,12 ****
--- 9,13 ----
  use C4::Koha;
  use C4::Circulation::Circ2;
+ use C4::Interface::CGI::Output;
  use HTML::Template;
  
***************
*** 34,43 ****
  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;
  }
--- 35,50 ----
  if ($updateemailaddress eq '') {
      warn "KohaAdminEmailAddress system preference not set.  Couldn't send patron update information for $borr->{'firstname'} $borr->{'surname'} (#$borrowernumber)\n";
!     my($template) = get_template_and_user({template_name => "kohaerror.tmpl",
! 			     query => $query,
! 			     type => "opac",
! 			     authnotrequired => 1,
! 			     flagsrequired => {borrow => 1},
! 			     debug => 1,
! 			     });
  
      $template->param(errormessage => 'KohaAdminEmailAddress system preference
      is not set.  Please visit the library to update your user record');
  
!     output_html_with_http_headers $query, $cookie, $template->output;
      exit;
  }
***************
*** 46,52 ****
      # 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){
--- 53,60 ----
      # get all the fields:
      my $message = <<"EOF";
! Borrower $borr->{'cardnumber'}
  
! has requested to change her/his personal details.
! Please check these new details and make the changes:
  EOF
      foreach my $field (@fields){