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

(-)a/C4/Circulation.pm (-107 / +72 lines)
Lines 1324-1336 Get loan length for an itemtype, a borrower type and a branch Link Here
1324
sub GetLoanLength {
1324
sub GetLoanLength {
1325
    my ( $borrowertype, $itemtype, $branchcode ) = @_;
1325
    my ( $borrowertype, $itemtype, $branchcode ) = @_;
1326
    my $dbh = C4::Context->dbh;
1326
    my $dbh = C4::Context->dbh;
1327
    my $sth =
1327
    my $sth = $dbh->prepare(qq{
1328
      $dbh->prepare(
1328
        SELECT issuelength, lengthunit, renewalperiod
1329
'select issuelength, lengthunit from issuingrules where categorycode=? and itemtype=? and branchcode=? and issuelength is not null'
1329
        FROM issuingrules
1330
      );
1330
        WHERE   categorycode=?
1331
# warn "in get loan lenght $borrowertype $itemtype $branchcode ";
1331
            AND itemtype=?
1332
# try to find issuelength & return the 1st available.
1332
            AND branchcode=?
1333
# check with borrowertype, itemtype and branchcode, then without one of those parameters
1333
            AND issuelength IS NOT NULL
1334
    });
1335
1336
    # try to find issuelength & return the 1st available.
1337
    # check with borrowertype, itemtype and branchcode, then without one of those parameters
1338
1334
    $sth->execute( $borrowertype, $itemtype, $branchcode );
1339
    $sth->execute( $borrowertype, $itemtype, $branchcode );
1335
    my $loanlength = $sth->fetchrow_hashref;
1340
    my $loanlength = $sth->fetchrow_hashref;
1336
    return $loanlength
1341
    return $loanlength
Lines 1374-1379 sub GetLoanLength { Link Here
1374
    # if no rule is set => 21 days (hardcoded)
1379
    # if no rule is set => 21 days (hardcoded)
1375
    return {
1380
    return {
1376
        issuelength => 21,
1381
        issuelength => 21,
1382
        renewalperiod => 21,
1377
        lengthunit => 'days',
1383
        lengthunit => 'days',
1378
    };
1384
    };
1379
1385
Lines 1408-1414 sub GetHardDueDate { Link Here
1408
1414
1409
FIXME - This is a copy-paste of GetLoanLength
1415
FIXME - This is a copy-paste of GetLoanLength
1410
as a stop-gap.  Do not wish to change API for GetLoanLength 
1416
as a stop-gap.  Do not wish to change API for GetLoanLength 
1411
this close to release, however, Overdues::GetIssuingRules is broken.
1417
this close to release.
1412
1418
1413
Get the issuing rule for an itemtype, a borrower type and a branch
1419
Get the issuing rule for an itemtype, a borrower type and a branch
1414
Returns a hashref from the issuingrules table.
1420
Returns a hashref from the issuingrules table.
Lines 2430-2492 sub CanBookBeRenewed { Link Here
2430
    my $dbh       = C4::Context->dbh;
2436
    my $dbh       = C4::Context->dbh;
2431
    my $renews    = 1;
2437
    my $renews    = 1;
2432
    my $renewokay = 0;
2438
    my $renewokay = 0;
2433
	my $error;
2439
    my $error;
2434
2440
2435
    # Look in the issues table for this item, lent to this borrower,
2441
    my $borrower    = C4::Members::GetMemberDetails( $borrowernumber, 0 )   or return;
2436
    # and not yet returned.
2442
    my $item        = GetItem($itemnumber)                                  or return;
2443
    my $itemissue   = GetItemIssue($itemnumber)                             or return;
2437
2444
2438
    # Look in the issues table for this item, lent to this borrower,
2445
    my $branchcode  = _GetCircControlBranch($item, $borrower);
2439
    # and not yet returned.
2440
    my %branch = (
2441
            'ItemHomeLibrary' => 'items.homebranch',
2442
            'PickupLibrary'   => 'items.holdingbranch',
2443
            'PatronLibrary'   => 'borrowers.branchcode'
2444
            );
2445
    my $controlbranch = $branch{C4::Context->preference('CircControl')};
2446
    my $itype         = C4::Context->preference('item-level_itypes') ? 'items.itype' : 'biblioitems.itemtype';
2447
    
2448
    my $sthcount = $dbh->prepare("
2449
                   SELECT 
2450
                    borrowers.categorycode, biblioitems.itemtype, issues.renewals, renewalsallowed, $controlbranch
2451
                   FROM  issuingrules, 
2452
                   issues
2453
                   LEFT JOIN items USING (itemnumber) 
2454
                   LEFT JOIN borrowers USING (borrowernumber) 
2455
                   LEFT JOIN biblioitems USING (biblioitemnumber)
2456
                   
2457
                   WHERE
2458
                    (issuingrules.categorycode = borrowers.categorycode OR issuingrules.categorycode = '*')
2459
                   AND
2460
                    (issuingrules.itemtype = $itype OR issuingrules.itemtype = '*')
2461
                   AND
2462
                    (issuingrules.branchcode = $controlbranch OR issuingrules.branchcode = '*') 
2463
                   AND 
2464
                    borrowernumber = ? 
2465
                   AND
2466
                    itemnumber = ?
2467
                   ORDER BY
2468
                    issuingrules.categorycode desc,
2469
                    issuingrules.itemtype desc,
2470
                    issuingrules.branchcode desc
2471
                   LIMIT 1;
2472
                  ");
2473
2474
    $sthcount->execute( $borrowernumber, $itemnumber );
2475
    if ( my $data1 = $sthcount->fetchrow_hashref ) {
2476
        if ( ( $data1->{renewalsallowed} && $data1->{renewalsallowed} > $data1->{renewals} ) || $override_limit ) {
2477
            $renewokay = 1;
2478
        }
2479
        else {
2480
            $error = "too_many";
2481
        }
2482
2446
2483
        my $resstatus = C4::Reserves::GetReserveStatus($itemnumber);
2447
    my $issuingrule = GetIssuingRule($borrower->{categorycode}, $item->{itype}, $branchcode);
2484
        if ( $resstatus eq "Waiting" or $resstatus eq "Reserved" ) {
2448
2485
            $renewokay = 0;
2449
    if ( ( $issuingrule->{renewalsallowed} > $itemissue->{renewals} ) || $override_limit ) {
2486
            $error = "on_reserve";
2450
        $renewokay = 1;
2487
        }
2451
    } else {
2452
        $error = "too_many";
2488
    }
2453
    }
2489
    return ($renewokay,$error);
2454
2455
    my $resstatus = C4::Reserves::GetReserveStatus($itemnumber);
2456
    if ( $resstatus eq "Waiting" or $resstatus eq "Reserved" ) {
2457
        $renewokay = 0;
2458
        $error = "on_reserve";
2459
    }
2460
2461
    return ( $renewokay, $error );
2490
}
2462
}
2491
2463
2492
=head2 AddRenewal
2464
=head2 AddRenewal
Lines 2547-2553 sub AddRenewal { Link Here
2547
        $datedue = (C4::Context->preference('RenewalPeriodBase') eq 'date_due') ?
2519
        $datedue = (C4::Context->preference('RenewalPeriodBase') eq 'date_due') ?
2548
                                        $issuedata->{date_due} :
2520
                                        $issuedata->{date_due} :
2549
                                        DateTime->now( time_zone => C4::Context->tz());
2521
                                        DateTime->now( time_zone => C4::Context->tz());
2550
        $datedue =  CalcDateDue($datedue,$itemtype,$issuedata->{'branchcode'},$borrower);
2522
        $datedue =  CalcDateDue($datedue, $itemtype, $issuedata->{'branchcode'}, $borrower, 'is a renewal');
2551
    }
2523
    }
2552
2524
2553
    # Update the issues record to have the new due date, and a new count
2525
    # Update the issues record to have the new due date, and a new count
Lines 3016-3073 C<$borrower> = Borrower object Link Here
3016
=cut
2988
=cut
3017
2989
3018
sub CalcDateDue {
2990
sub CalcDateDue {
3019
    my ( $startdate, $itemtype, $branch, $borrower ) = @_;
2991
    my ( $startdate, $itemtype, $branch, $borrower, $isrenewal ) = @_;
2992
2993
    $isrenewal ||= 0;
3020
2994
3021
    # loanlength now a href
2995
    # loanlength now a href
3022
    my $loanlength =
2996
    my $loanlength =
3023
      GetLoanLength( $borrower->{'categorycode'}, $itemtype, $branch );
2997
            GetLoanLength( $borrower->{'categorycode'}, $itemtype, $branch );
2998
2999
    my $length_key = ( $isrenewal and defined $loanlength->{renewalperiod} )
3000
            ? qq{renewalperiod}
3001
            : qq{issuelength};
3024
3002
3025
    my $datedue;
3003
    my $datedue;
3026
3004
3027
    # if globalDueDate ON the datedue is set to that date
3005
    # calculate the datedue as normal
3028
    if (C4::Context->preference('globalDueDate')
3006
    if ( C4::Context->preference('useDaysMode') eq 'Days' )
3029
        && ( C4::Context->preference('globalDueDate') =~
3007
    {    # ignoring calendar
3030
            C4::Dates->regexp('syspref') )
3008
        my $dt =
3031
      ) {
3009
          DateTime->now( time_zone => C4::Context->tz() )
3032
        $datedue = dt_from_string(
3010
          ->truncate( to => 'minute' );
3033
            C4::Context->preference('globalDueDate'),
3011
        if ( $loanlength->{lengthunit} eq 'hours' ) {
3034
            C4::Context->preference('dateformat')
3012
            $dt->add( hours => $loanlength->{$length_key} );
3035
        );
3013
        } else {    # days
3014
            $dt->add( days => $loanlength->{$length_key} );
3015
            $dt->set_hour(23);
3016
            $dt->set_minute(59);
3017
        }
3018
        # break
3019
        return $dt;
3036
    } else {
3020
    } else {
3037
3021
        my $dur;
3038
        # otherwise, calculate the datedue as normal
3022
        if ($loanlength->{lengthunit} eq 'hours') {
3039
        if ( C4::Context->preference('useDaysMode') eq 'Days' )
3023
            $dur = DateTime::Duration->new( hours => $loanlength->{$length_key});
3040
        {    # ignoring calendar
3024
        }
3041
            my $dt =
3025
        else { # days
3042
              DateTime->now( time_zone => C4::Context->tz() )
3026
            $dur = DateTime::Duration->new( days => $loanlength->{$length_key});
3043
              ->truncate( to => 'minute' );
3027
        }
3044
            if ( $loanlength->{lengthunit} eq 'hours' ) {
3028
        if (ref $startdate ne 'DateTime' ) {
3045
                $dt->add( hours => $loanlength->{issuelength} );
3029
            $startdate = dt_from_string($startdate);
3046
            } else {    # days
3030
        }
3047
                $dt->add( days => $loanlength->{issuelength} );
3031
        my $calendar = Koha::Calendar->new( branchcode => $branch );
3048
                $dt->set_hour(23);
3032
        $datedue = $calendar->addDate( $startdate, $dur, $loanlength->{lengthunit} );
3049
                $dt->set_minute(59);
3033
        if ($loanlength->{lengthunit} eq 'days') {
3050
            }
3034
            $datedue->set_hour(23);
3051
            # break
3035
            $datedue->set_minute(59);
3052
            return $dt;
3053
3054
        } else {
3055
            my $dur;
3056
            if ($loanlength->{lengthunit} eq 'hours') {
3057
                $dur = DateTime::Duration->new( hours => $loanlength->{issuelength});
3058
            }
3059
            else { # days
3060
                $dur = DateTime::Duration->new( days => $loanlength->{issuelength});
3061
            }
3062
            if (ref $startdate ne 'DateTime' ) {
3063
                $startdate = dt_from_string($startdate);
3064
            }
3065
            my $calendar = Koha::Calendar->new( branchcode => $branch );
3066
            $datedue = $calendar->addDate( $startdate, $dur, $loanlength->{lengthunit} );
3067
            if ($loanlength->{lengthunit} eq 'days') {
3068
                $datedue->set_hour(23);
3069
                $datedue->set_minute(59);
3070
            }
3071
        }
3036
        }
3072
    }
3037
    }
3073
3038
(-)a/C4/Overdues.pm (-39 lines)
Lines 72-81 BEGIN { Link Here
72
	push @EXPORT, qw(
72
	push @EXPORT, qw(
73
        &GetIssuesIteminfo
73
        &GetIssuesIteminfo
74
	);
74
	);
75
    #
76
	# &GetIssuingRules - delete.
77
	# use C4::Circulation::GetIssuingRule instead.
78
	
79
	# subs to move to Members.pm
75
	# subs to move to Members.pm
80
	push @EXPORT, qw(
76
	push @EXPORT, qw(
81
        &CheckBorrowerDebarred
77
        &CheckBorrowerDebarred
Lines 696-736 sub GetFine { Link Here
696
    return 0;
692
    return 0;
697
}
693
}
698
694
699
700
=head2 GetIssuingRules
701
702
FIXME - This sub should be deprecated and removed.
703
It ignores branch and defaults.
704
705
    $data = &GetIssuingRules($itemtype,$categorycode);
706
707
Looks up for all issuingrules an item info 
708
709
C<$itemnumber> is a reference-to-hash whose keys are all of the fields
710
from the borrowers and categories tables of the Koha database. Thus,
711
712
C<$categorycode> contains  information about borrowers category 
713
714
C<$data> contains all information about both the borrower and
715
category he or she belongs to.
716
=cut 
717
718
sub GetIssuingRules {
719
	warn "GetIssuingRules is deprecated: use GetIssuingRule from C4::Circulation instead.";
720
   my ($itemtype,$categorycode)=@_;
721
   my $dbh   = C4::Context->dbh();    
722
   my $query=qq|SELECT *
723
        FROM issuingrules
724
        WHERE issuingrules.itemtype=?
725
            AND issuingrules.categorycode=?
726
        |;
727
    my $sth = $dbh->prepare($query);
728
    #  print $query;
729
    $sth->execute($itemtype,$categorycode);
730
    return $sth->fetchrow_hashref;
731
}
732
733
734
sub ReplacementCost2 {
695
sub ReplacementCost2 {
735
    my ( $itemnum, $borrowernumber ) = @_;
696
    my ( $itemnum, $borrowernumber ) = @_;
736
    my $dbh   = C4::Context->dbh();
697
    my $dbh   = C4::Context->dbh();
(-)a/admin/smart-rules.pl (-4 / +5 lines)
Lines 101-108 elsif ($op eq 'delete-branch-item') { Link Here
101
# save the values entered
101
# save the values entered
102
elsif ($op eq 'add') {
102
elsif ($op eq 'add') {
103
    my $sth_search = $dbh->prepare('SELECT COUNT(*) AS total FROM issuingrules WHERE branchcode=? AND categorycode=? AND itemtype=?');
103
    my $sth_search = $dbh->prepare('SELECT COUNT(*) AS total FROM issuingrules WHERE branchcode=? AND categorycode=? AND itemtype=?');
104
    my $sth_insert = $dbh->prepare('INSERT INTO issuingrules (branchcode, categorycode, itemtype, maxissueqty, renewalsallowed, reservesallowed, issuelength, lengthunit, hardduedate, hardduedatecompare, fine, finedays, firstremind, chargeperiod,rentaldiscount, overduefinescap) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
104
    my $sth_insert = $dbh->prepare('INSERT INTO issuingrules (branchcode, categorycode, itemtype, maxissueqty, renewalsallowed, renewalperiod, reservesallowed, issuelength, lengthunit, hardduedate, hardduedatecompare, fine, finedays, firstremind, chargeperiod,rentaldiscount, overduefinescap) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)');
105
    my $sth_update=$dbh->prepare("UPDATE issuingrules SET fine=?, finedays=?, firstremind=?, chargeperiod=?, maxissueqty=?, renewalsallowed=?, reservesallowed=?, issuelength=?, lengthunit = ?, hardduedate=?, hardduedatecompare=?, rentaldiscount=?, overduefinescap=?  WHERE branchcode=? AND categorycode=? AND itemtype=?");
105
    my $sth_update=$dbh->prepare("UPDATE issuingrules SET fine=?, finedays=?, firstremind=?, chargeperiod=?, maxissueqty=?, renewalsallowed=?, renewalperiod=?, reservesallowed=?, issuelength=?, lengthunit = ?, hardduedate=?, hardduedatecompare=?, rentaldiscount=?, overduefinescap=?  WHERE branchcode=? AND categorycode=? AND itemtype=?");
106
    
106
    
107
    my $br = $branch; # branch
107
    my $br = $branch; # branch
108
    my $bor  = $input->param('categorycode'); # borrower category
108
    my $bor  = $input->param('categorycode'); # borrower category
Lines 113-118 elsif ($op eq 'add') { Link Here
113
    my $chargeperiod = $input->param('chargeperiod');
113
    my $chargeperiod = $input->param('chargeperiod');
114
    my $maxissueqty  = $input->param('maxissueqty');
114
    my $maxissueqty  = $input->param('maxissueqty');
115
    my $renewalsallowed  = $input->param('renewalsallowed');
115
    my $renewalsallowed  = $input->param('renewalsallowed');
116
    my $renewalperiod    = $input->param('renewalperiod');
116
    my $reservesallowed  = $input->param('reservesallowed');
117
    my $reservesallowed  = $input->param('reservesallowed');
117
    $maxissueqty =~ s/\s//g;
118
    $maxissueqty =~ s/\s//g;
118
    $maxissueqty = undef if $maxissueqty !~ /^\d+/;
119
    $maxissueqty = undef if $maxissueqty !~ /^\d+/;
Lines 128-136 elsif ($op eq 'add') { Link Here
128
    $sth_search->execute($br,$bor,$cat);
129
    $sth_search->execute($br,$bor,$cat);
129
    my $res = $sth_search->fetchrow_hashref();
130
    my $res = $sth_search->fetchrow_hashref();
130
    if ($res->{total}) {
131
    if ($res->{total}) {
131
        $sth_update->execute($fine, $finedays,$firstremind, $chargeperiod, $maxissueqty, $renewalsallowed,$reservesallowed, $issuelength,$lengthunit, $hardduedate,$hardduedatecompare,$rentaldiscount,$overduefinescap, $br,$bor,$cat);
132
        $sth_update->execute($fine, $finedays,$firstremind, $chargeperiod, $maxissueqty, $renewalsallowed, $renewalperiod, $reservesallowed, $issuelength,$lengthunit, $hardduedate,$hardduedatecompare,$rentaldiscount,$overduefinescap, $br,$bor,$cat);
132
    } else {
133
    } else {
133
        $sth_insert->execute($br,$bor,$cat,$maxissueqty,$renewalsallowed,$reservesallowed,$issuelength,$lengthunit,$hardduedate,$hardduedatecompare,$fine,$finedays,$firstremind,$chargeperiod,$rentaldiscount,$overduefinescap);
134
        $sth_insert->execute($br,$bor,$cat,$maxissueqty,$renewalsallowed, $renewalperiod, $reservesallowed,$issuelength,$lengthunit,$hardduedate,$hardduedatecompare,$fine,$finedays,$firstremind,$chargeperiod,$rentaldiscount,$overduefinescap);
134
    }
135
    }
135
} 
136
} 
136
elsif ($op eq "set-branch-defaults") {
137
elsif ($op eq "set-branch-defaults") {
(-)a/installer/data/mysql/kohastructure.sql (+1 lines)
Lines 1017-1022 CREATE TABLE `issuingrules` ( -- circulation and fine rules Link Here
1017
  `hardduedate` date default NULL, -- hard due date
1017
  `hardduedate` date default NULL, -- hard due date
1018
  `hardduedatecompare` tinyint NOT NULL default "0", -- type of hard due date (1 = after, 0 = on, -1 = before)
1018
  `hardduedatecompare` tinyint NOT NULL default "0", -- type of hard due date (1 = after, 0 = on, -1 = before)
1019
  `renewalsallowed` smallint(6) NOT NULL default "0", -- how many renewals are allowed
1019
  `renewalsallowed` smallint(6) NOT NULL default "0", -- how many renewals are allowed
1020
  `renewalperiod` int(4) default NULL -- renewal period in the unit set in issuingrules.lengthunit
1020
  `reservesallowed` smallint(6) NOT NULL default "0", -- how many holds are allowed
1021
  `reservesallowed` smallint(6) NOT NULL default "0", -- how many holds are allowed
1021
  `branchcode` varchar(10) NOT NULL default '', -- the branch this rule is for (branches.branchcode)
1022
  `branchcode` varchar(10) NOT NULL default '', -- the branch this rule is for (branches.branchcode)
1022
  overduefinescap decimal default NULL, -- the maximum amount of an overdue fine
1023
  overduefinescap decimal default NULL, -- the maximum amount of an overdue fine
(-)a/installer/data/mysql/updatedatabase.pl (+12 lines)
Lines 6529-6534 if ( CheckVersion($DBversion) ) { Link Here
6529
$DBversion = '3.11.00.100';
6529
$DBversion = '3.11.00.100';
6530
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6530
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6531
    print "Upgrade to $DBversion done (3.12-alpha release)\n";
6531
    print "Upgrade to $DBversion done (3.12-alpha release)\n";
6532
    SetVersion($DBversion);
6533
}
6534
6535
$DBversion = '3.11.00.XXX';
6536
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
6537
    $dbh->do(qq{
6538
        ALTER TABLE issuingrules ADD COLUMN renewalperiod int(4) DEFAULT NULL AFTER renewalsallowed
6539
    });
6540
    $dbh->do(qq{
6541
        UPDATE issuingrules SET renewalperiod = issuelength
6542
    });
6543
    print "Upgrade to $DBversion done (Add colum issuingrules.renewalperiod)\n";
6532
    SetVersion ($DBversion);
6544
    SetVersion ($DBversion);
6533
}
6545
}
6534
6546
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/smart-rules.tt (+3 lines)
Lines 75-80 for="tobranch"><strong>Clone these rules to:</strong></label> <input type="hidde Link Here
75
                <th>Overdue Fines Cap ($)</th>
75
                <th>Overdue Fines Cap ($)</th>
76
                <th>Suspension in days (day)</th>
76
                <th>Suspension in days (day)</th>
77
                <th>Renewals allowed (count)</th>
77
                <th>Renewals allowed (count)</th>
78
                <th>Renewals period</th>
78
                <th>Holds allowed (count)</th>
79
                <th>Holds allowed (count)</th>
79
		<th>Rental discount (%)</th>
80
		<th>Rental discount (%)</th>
80
				<th>&nbsp;</th>
81
				<th>&nbsp;</th>
Lines 120-125 for="tobranch"><strong>Clone these rules to:</strong></label> <input type="hidde Link Here
120
                            <td>[% rule.overduefinescap FILTER format("%.2f") %]</td>
121
                            <td>[% rule.overduefinescap FILTER format("%.2f") %]</td>
121
							<td>[% rule.finedays %]</td>
122
							<td>[% rule.finedays %]</td>
122
							<td>[% rule.renewalsallowed %]</td>
123
							<td>[% rule.renewalsallowed %]</td>
124
                            <td>[% rule.renewalperiod %]</td>
123
							<td>[% rule.reservesallowed %]</td>
125
							<td>[% rule.reservesallowed %]</td>
124
							<td>[% rule.rentaldiscount %]</td>
126
							<td>[% rule.rentaldiscount %]</td>
125
							<td>
127
							<td>
Lines 166-171 for="tobranch"><strong>Clone these rules to:</strong></label> <input type="hidde Link Here
166
                    <td><input name="overduefinescap" size="6" /> </td>
168
                    <td><input name="overduefinescap" size="6" /> </td>
167
                    <td><input name="finedays" size="3" /> </td>
169
                    <td><input name="finedays" size="3" /> </td>
168
                    <td><input name="renewalsallowed" size="2" /></td>
170
                    <td><input name="renewalsallowed" size="2" /></td>
171
                    <td><input name="renewalperiod" size="3" /></td>
169
                    <td><input name="reservesallowed" size="2" /></td>
172
                    <td><input name="reservesallowed" size="2" /></td>
170
		    <td><input name="rentaldiscount" size="2" /></td>
173
		    <td><input name="rentaldiscount" size="2" /></td>
171
                    <td><input type="hidden" name="branch" value="[% current_branch %]"/><input type="submit" value="Add" class="submit" /></td>
174
                    <td><input type="hidden" name="branch" value="[% current_branch %]"/><input type="submit" value="Add" class="submit" /></td>
(-)a/t/db_dependent/lib/KohaTest/Overdues.pm (-2 lines)
Lines 23-29 sub methods : Test( 1 ) { Link Here
23
                       BorType 
23
                       BorType 
24
                       ReplacementCost 
24
                       ReplacementCost 
25
                       GetFine 
25
                       GetFine 
26
                       GetIssuingRules 
27
                       ReplacementCost2 
26
                       ReplacementCost2 
28
                       GetNextIdNotify 
27
                       GetNextIdNotify 
29
                       NumberNotifyId
28
                       NumberNotifyId
30
- 

Return to bug 8365