View | Details | Raw Unified | Return to bug 24381
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/bug_24381.perl (-1 / +24 lines)
Lines 84-89 q{UPDATE letter SET content = ? WHERE code = 'ACCOUNT_CREDIT' AND REPLACE(REPLAC Link Here
84
    );
84
    );
85
    $sth->execute( $account_credit, $account_credit_old );
85
    $sth->execute( $account_credit, $account_credit_old );
86
86
87
    # replace patron variable with credit.patron
88
    $dbh->do("UPDATE letter SET content = REPLACE(content, '[% patron', '[% credit.patron') WHERE code = 'ACCOUNT_CREDIT' ");
89
    # replace library variable with credit.library.branchname
90
    $dbh->do("UPDATE letter SET content = REPLACE(content, '[% library', '[% credit.library.branchname') WHERE code = 'ACCOUNT_CREDIT' ");
91
    # replace offsets variable with credit.offsets
92
    $dbh->do("UPDATE letter SET content = REPLACE(content, ' offsets %]', ' credit.offsets %]') WHERE code = 'ACCOUNT_CREDIT' ");
93
    # replace change_given variable with change
94
    $dbh->do("UPDATE letter SET content = REPLACE(content, '[% change_given', '[% change') WHERE code = 'ACCOUNT_CREDIT' ");
87
95
88
    # ACCOUNT_DEBIT
96
    # ACCOUNT_DEBIT
89
    my $account_debit = q{
97
    my $account_debit = q{
Lines 170-175 q{UPDATE letter SET content = ? WHERE code = 'ACCOUNT_DEBIT' AND REPLACE(REPLACE Link Here
170
    );
178
    );
171
    $sth->execute($account_debit, $account_debit_old);
179
    $sth->execute($account_debit, $account_debit_old);
172
180
181
    # replace patron variable with debit.patron
182
    $dbh->do("UPDATE letter SET content = REPLACE(content, '[% patron', '[% debit.patron') WHERE code = 'ACCOUNT_DEBIT' ");
183
    # replace library variable with debit.library.branchname
184
    $dbh->do("UPDATE letter SET content = REPLACE(content, '[% library', '[% debit.library.branchname') WHERE code = 'ACCOUNT_DEBIT' ");
185
    # replace offsets variable with debit.offsets
186
    $dbh->do("UPDATE letter SET content = REPLACE(content, ' offsets %]', ' debit.offsets %]') WHERE code = 'ACCOUNT_DEBIT' ");
187
    # replace total variable with debit.patron.account.balance
188
    $dbh->do("UPDATE letter SET content = REPLACE(content, '[% total ', '[% debit.patron.account.balance ') WHERE code = 'ACCOUNT_DEBIT' ");
189
    # replace totalcredit variable with debit.patron.account.balance <= 0
190
    $dbh->do("UPDATE letter SET content = REPLACE(content, 'totalcredit', 'debit.patron.account.balance <= 0') WHERE code = 'ACCOUNT_DEBIT' ");
191
173
    # RECEIPT
192
    # RECEIPT
174
    my $receipt = q{
193
    my $receipt = q{
175
        [% PROCESS "accounts.inc" %]
194
        [% PROCESS "accounts.inc" %]
Lines 244-248 q{UPDATE letter SET content = ? WHERE code = 'RECEIPT' AND REPLACE(REPLACE(conte Link Here
244
    );
263
    );
245
    $sth->execute($receipt,$receipt_old);
264
    $sth->execute($receipt,$receipt_old);
246
265
266
    # replace offsets variable with debit.offsets
267
    $dbh->do("UPDATE letter SET content = REPLACE(content, ' offsets %]', ' payment.offsets %]') WHERE code = 'RECEIPT' ");
268
    # replace collected variable with tendered
269
    $dbh->do("UPDATE letter SET content = REPLACE(content, '[% collected', '[% tendered') WHERE code = 'RECEIPT' ");
270
247
    NewVersion( $DBversion, 24381, "Update accounts notices" );
271
    NewVersion( $DBversion, 24381, "Update accounts notices" );
248
}
272
}
249
- 

Return to bug 24381