[Koha-cvs] CVS: koha memberentry.pl,1.6.2.4,1.6.2.5 newmember.pl,1.1.1.1.2.1,1.1.1.1.2.2

[Steve Tonnesen]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv12465

Modified Files:
      Tag: rel-1-2
        memberentry.pl newmember.pl 
Log Message:
New system preference for setting date format when entering patron birth dates.
Defaults to non-us if not set.


Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/memberentry.pl,v
retrieving revision 1.6.2.4
retrieving revision 1.6.2.5
diff -C2 -r1.6.2.4 -r1.6.2.5
*** memberentry.pl      27 Jul 2002 04:33:57 -0000      1.6.2.4
--- memberentry.pl      25 Oct 2002 17:23:41 -0000      1.6.2.5
***************
*** 17,20 ****
--- 17,28 ----
  my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
  
+ my %systemprefs=systemprefs();
+ my $dateformat=$systemprefs{'dateformat'};
+ ($dateformat) || ($dateformat='nonus');
+ my $datehintstring='';
+ ($dateformat eq 'US') ? ($datehintstring="mm/dd/yy") : 
($datehintstring="dd/mm/yy");
+ 
+ 
+ 
  my $member=$input->param('bornum');
  if ($member eq ''){
***************
*** 55,59 ****
  
  my $cardnumber=$data->{'cardnumber'};
- my %systemprefs=systemprefs();
  # FIXME
  # This logic should probably be moved out of the presentation code.
--- 63,66 ----
***************
*** 125,129 ****
  print <<printend
  >M
! &nbsp; &nbsp;  <B>Date of Birth</B> (dd/mm/yy)
  <input type=text name=dateofbirth size=10 value="$data->{'dateofbirth'}">
  </td></tr>
--- 132,136 ----
  print <<printend
  >M
! &nbsp; &nbsp;  <B>Date of Birth</B> ($datehintstring)
  <input type=text name=dateofbirth size=10 value="$data->{'dateofbirth'}">
  </td></tr>

Index: newmember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newmember.pl,v
retrieving revision 1.1.1.1.2.1
retrieving revision 1.1.1.1.2.2
diff -C2 -r1.1.1.1.2.1 -r1.1.1.1.2.2
*** newmember.pl        11 Sep 2002 21:28:28 -0000      1.1.1.1.2.1
--- newmember.pl        25 Oct 2002 17:23:42 -0000      1.1.1.1.2.2
***************
*** 6,13 ****
  use C4::Output;
  use C4::Input;
- use C4::Input;
  use C4::Auth;
  use CGI;
  use Date::Manip;
  
  my %env;
--- 6,20 ----
  use C4::Output;
  use C4::Input;
  use C4::Auth;
+ use C4::Search;  # Only used for systemprefs, remove when switching to Context
  use CGI;
  use Date::Manip;
+ 
+ 
+ my %systemprefs=systemprefs();
+ my $dateformat=$systemprefs{'dateformat'};
+ ($dateformat) || ($dateformat='nonus');
+ Date_Init("DateFormat=$dateformat");
+ 
  
  my %env;