[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha memberentry.pl,1.6.2.4,1.6.2.5 newmember.pl,1.1.1.1
From: |
Steve Tonnesen |
Subject: |
[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 |
Date: |
Fri, 25 Oct 2002 10:23:44 -0700 |
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
! <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
! <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;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [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 <=