3 # Copyright (C) 2008 LibLime
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
25 use Getopt::Long qw( GetOptions );
26 use Koha::DateUtils qw( dt_from_string output_pref );
30 fix_accountlines_date.pl - Fix date code in the description of fines
34 fix_accountlines_date.pl -m date_format [ -n fines_to_process ] [ -d ] [ --help or -h ]
37 --help or -h Brief usage message
38 --man Full documentation
39 -n fines_to_process How many fines to process; if left off will
41 -m date_format What format the dates are currently in; 'us'
42 or 'metric' (REQUIRED)
43 -d Run in debugging mode
47 This script fixes the date code in the description of fines. Previously, the
48 format of this was determined by which script you were using to update fines (see the -m option)
54 Prints a brief usage message and exits.
58 Prints a full manual page and exits.
62 Process only a certain amount of fines. If this option is left off, this script
63 will process everything.
67 This required option tells the script what format your dates are currently in.
68 If you were previously using the fines2.pl or fines-sanop.pl script to update
69 your fines, they will be in 'metric' format. If you were using the fines-ll.pl
70 script, they will be in 'us' format. After this script is finished, they will
71 be in whatever format your 'dateformat' system preference specifies.
75 Run in debugging mode; this prints out a lot of information and should be used
76 only if there is a problem and with the '-n' option.
88 # Regexes for the two date formats
89 our $US_DATE = '((0\d|1[0-2])\/([0-2]\d|3[01])\/(\d{4}))';
90 our $METRIC_DATE = '(([0-2]\d|3[01])\/(0\d|1[0-2])\/(\d{4}))';
94 $0: Fix the date code in the description of fines
96 Due to the multiple scripts used to update fines in earlier versions of Koha,
97 this script should be used to change the format of the date codes in the
98 accountlines table before you start using Koha 3.0.
101 --mode or -m This should be 'us' or 'metric', and tells the script
102 what format your old dates are in.
103 --debug or -d Run this script in debug mode.
104 --limit or -n How many accountlines rows to fix; useful for testing.
105 --help or -h Print out this help message.
109 my $result = GetOptions(
113 'help|h' => \$want_help,
116 if (not $result or $want_help or ($mode ne 'us' and $mode ne 'metric')) {
121 our $dbh = C4::Context->dbh;
122 $dbh->{AutoCommit} = 0;
123 my $sth = $dbh->prepare("
124 SELECT accountlines_id, description
126 WHERE accounttype in ('FU', 'F', 'M')
130 my $update_sth = $dbh->prepare('
133 WHERE accountlines_id = ?
137 while (my $accountline = $sth->fetchrow_hashref) {
138 my $description = $accountline->{'description'};
142 if ($description =~ /$US_DATE/) { # mm/dd/yyyy
143 my $date = output_pref( { dt => dt_from_string( $1, 'us' ), dateonly => 1} );
144 print "Converting $1 (us) to " . $date . "\n" if $DEBUG;i
145 $description =~ s/$US_DATE/$date/;
148 } elsif ($mode eq 'metric') {
149 if ($description =~ /$METRIC_DATE/) { # dd/mm/yyyy
150 my $date = output_pref( { dt => dt_from_string( $1, 'metric' ), dateonly => 1} );
151 print "Converting $1 (metric) to " . $date . "\n" if $DEBUG;
152 $description =~ s/$METRIC_DATE/$date/;
157 print "Changing description from '" . $accountline->{'description'} . "' to '" . $description . "'\n" if $DEBUG;
158 $update_sth->execute($description, $accountline->{'accountlines_id'});
162 last if ($done == $limit); # $done can't be -1, so this works