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

(-)a/C4/Circulation.pm (-5 / +45 lines)
Lines 75-80 BEGIN { Link Here
75
	push @EXPORT, qw(
75
	push @EXPORT, qw(
76
		&CanBookBeIssued
76
		&CanBookBeIssued
77
		&CanBookBeRenewed
77
		&CanBookBeRenewed
78
        &HasWhateverRenewalToBeBlocked
78
		&AddIssue
79
		&AddIssue
79
		&AddRenewal
80
		&AddRenewal
80
		&GetRenewCount
81
		&GetRenewCount
Lines 2441-2447 already renewed the loan. $error will contain the reason the renewal can not pro Link Here
2441
sub CanBookBeRenewed {
2442
sub CanBookBeRenewed {
2442
2443
2443
    # check renewal status
2444
    # check renewal status
2444
    my ( $borrowernumber, $itemnumber, $override_limit ) = @_;
2445
    my ( $borrowernumber, $itemnumber, $override_limit, $overduesblockrenew ) = @_;
2445
    my $dbh       = C4::Context->dbh;
2446
    my $dbh       = C4::Context->dbh;
2446
    my $renews    = 1;
2447
    my $renews    = 1;
2447
    my $renewokay = 0;
2448
    my $renewokay = 0;
Lines 2450-2462 sub CanBookBeRenewed { Link Here
2450
    my $borrower    = C4::Members::GetMemberDetails( $borrowernumber, 0 )   or return;
2451
    my $borrower    = C4::Members::GetMemberDetails( $borrowernumber, 0 )   or return;
2451
    my $item        = GetItem($itemnumber)                                  or return;
2452
    my $item        = GetItem($itemnumber)                                  or return;
2452
    my $itemissue   = GetItemIssue($itemnumber)                             or return;
2453
    my $itemissue   = GetItemIssue($itemnumber)                             or return;
2453
2454
    my $overdue = $itemissue->{'overdue'};
2455
    
2454
    my $branchcode  = _GetCircControlBranch($item, $borrower);
2456
    my $branchcode  = _GetCircControlBranch($item, $borrower);
2455
2457
    
2456
    my $issuingrule = GetIssuingRule($borrower->{categorycode}, $item->{itype}, $branchcode);
2458
    my $issuingrule = GetIssuingRule($borrower->{categorycode}, $item->{itype}, $branchcode);
2457
2459
2458
    if ( ( $issuingrule->{renewalsallowed} > $itemissue->{renewals} ) || $override_limit ) {
2460
    if ( ( $issuingrule->{renewalsallowed} > $itemissue->{renewals} ) || $override_limit ) {
2459
        $renewokay = 1;
2461
            $renewokay =  ( $overduesblockrenew eq 'blockitem' and $overdue and !$override_limit ) ? 0 : 1;
2462
            $error = 'overdue' unless $renewokay;
2460
    } else {
2463
    } else {
2461
        $error = "too_many";
2464
        $error = "too_many";
2462
    }
2465
    }
Lines 2466-2475 sub CanBookBeRenewed { Link Here
2466
        $renewokay = 0;
2469
        $renewokay = 0;
2467
        $error = "on_reserve";
2470
        $error = "on_reserve";
2468
    }
2471
    }
2469
2470
    return ( $renewokay, $error );
2472
    return ( $renewokay, $error );
2471
}
2473
}
2472
2474
2475
=head2 HasWhateverRenewalToBeBlocked
2476
2477
  ($blockallitems, $reasonwhy, $overduesblockrenew) = &HasWhateverRenewalToBeBlocked($borrowernumber, $override_limit);
2478
2479
Check whether whatever renewal must be blocked in the case patron is restricted or any of his documents are late.
2480
2481
C<$blockallitems> if true, causes the renewal to be blocked for every items.
2482
2483
C<$reasonwhy> if $blockallitems is true, will be an information displayed in checkouts table on patron page.
2484
2485
C<$overduesblockrenew> is the value of the syspref OverduesBlockRenew.
2486
2487
=cut
2488
2489
sub HasWhateverRenewalToBeBlocked {
2490
    my $borrowernumber = shift;
2491
    my $override_limit = shift;
2492
    # get the option selected for the syspref OverduesBlockRenew
2493
    my $overduesblockrenew = C4::Context->preference('OverduesBlockRenew');
2494
    my $blockallitems;
2495
    my $reasonwhy;
2496
    unless ( $override_limit ) {
2497
        # check if patron is restricted or if any of his documents are late
2498
        my ($memberblocked) = C4::Members::IsMemberBlocked($borrowernumber);
2499
        if ($memberblocked == 1) {
2500
            $reasonwhy = 'restriction';
2501
            $blockallitems = 1;
2502
        } elsif ($memberblocked == -1)  {
2503
            # check if renewal must be blocked for all the patron's documents on loan
2504
            if ( $overduesblockrenew eq 'blockall' ) {
2505
                $blockallitems = 1;
2506
                $reasonwhy = 'overdue';
2507
            }
2508
        }
2509
    }
2510
    return($blockallitems,$reasonwhy,$overduesblockrenew);
2511
}
2512
2473
=head2 AddRenewal
2513
=head2 AddRenewal
2474
2514
2475
  &AddRenewal($borrowernumber, $itemnumber, $branch, [$datedue], [$lastreneweddate]);
2515
  &AddRenewal($borrowernumber, $itemnumber, $branch, [$datedue], [$lastreneweddate]);
(-)a/C4/ILSDI/Services.pm (-3 / +2 lines)
Lines 561-571 sub RenewLoan { Link Here
561
    return { code => 'RecordNotFound' } unless $$item{itemnumber};
561
    return { code => 'RecordNotFound' } unless $$item{itemnumber};
562
562
563
    # Add renewal if possible
563
    # Add renewal if possible
564
    my @renewal = CanBookBeRenewed( $borrowernumber, $itemnumber );
564
    my ($blockallitems,$reasonwhy,$overduesblockrenew) = HasAnyRenewalToBeBlocked($borrowernumber,undef);
565
    my @renewal = $blockallitems ? (0, $reasonwhy) : CanBookBeRenewed( $borrowernumber, $itemnumber, undef, $overduesblockrenew );
565
    if ( $renewal[0] ) { AddRenewal( $borrowernumber, $itemnumber ); }
566
    if ( $renewal[0] ) { AddRenewal( $borrowernumber, $itemnumber ); }
566
567
567
    my $issue = GetItemIssue($itemnumber);
568
569
    # Hashref building
568
    # Hashref building
570
    my $out;
569
    my $out;
571
    $out->{'renewals'} = $issue->{'renewals'};
570
    $out->{'renewals'} = $issue->{'renewals'};
(-)a/circ/circulation.pl (-3 / +5 lines)
Lines 435-440 my $displayrelissues; Link Here
435
435
436
our $totalprice = 0;
436
our $totalprice = 0;
437
437
438
my ($blockallitems, $reasonwhy, $overduesblockrenew) = HasWhateverRenewalToBeBlocked($borrowernumber, undef);
439
438
sub build_issue_data {
440
sub build_issue_data {
439
    my $issueslist = shift;
441
    my $issueslist = shift;
440
    my $relatives = shift;
442
    my $relatives = shift;
Lines 450-459 sub build_issue_data { Link Here
450
            $it->{'itemnumber'}, $it->{'borrowernumber'}
452
            $it->{'itemnumber'}, $it->{'borrowernumber'}
451
        );
453
        );
452
        $it->{'charge'} = sprintf("%.2f", $it->{'charge'});
454
        $it->{'charge'} = sprintf("%.2f", $it->{'charge'});
453
        my ($can_renew, $can_renew_error) = CanBookBeRenewed( 
455
        my ($can_renew, $can_renew_error) = $blockallitems ? (0, $reasonwhy) : CanBookBeRenewed(
454
            $it->{'borrowernumber'},$it->{'itemnumber'}
456
        $it->{'borrowernumber'},$it->{'itemnumber'}, undef, $overduesblockrenew);
455
        );
456
        $it->{"renew_error_${can_renew_error}"} = 1 if defined $can_renew_error;
457
        $it->{"renew_error_${can_renew_error}"} = 1 if defined $can_renew_error;
458
        $it->{'blockrenewal'} = ($can_renew_error=~/overdue|restriction/) ? 1 : 0;
457
        my $restype = C4::Reserves::GetReserveStatus( $it->{'itemnumber'} );
459
        my $restype = C4::Reserves::GetReserveStatus( $it->{'itemnumber'} );
458
        $it->{'can_renew'} = $can_renew;
460
        $it->{'can_renew'} = $can_renew;
459
        $it->{'can_confirm'} = !$can_renew && !$restype;
461
        $it->{'can_confirm'} = !$can_renew && !$restype;
(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
Lines 424-426 INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES(' Link Here
424
INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPAC','0','','If on, and a patron is logged into the OPAC, items from his or her home library will be emphasized and shown first in search results and item details.','YesNo');
424
INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPAC','0','','If on, and a patron is logged into the OPAC, items from his or her home library will be emphasized and shown first in search results and item details.','YesNo');
425
INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPACWhich','PatronBranch','PatronBranch|OpacURLBranch','Decides which branch''s items to emphasize. If PatronBranch, emphasize the logged in user''s library''s items. If OpacURLBranch, highlight the items of the Apache var BRANCHCODE defined in Koha''s Apache configuration file.','Choice');
425
INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('HighlightOwnItemsOnOPACWhich','PatronBranch','PatronBranch|OpacURLBranch','Decides which branch''s items to emphasize. If PatronBranch, emphasize the logged in user''s library''s items. If OpacURLBranch, highlight the items of the Apache var BRANCHCODE defined in Koha''s Apache configuration file.','Choice');
426
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UniqueItemFields', 'barcode', 'Space-separated list of fields that should be unique (used in acquisition module for item creation). Fields must be valid SQL column names of items table', '', 'Free');
426
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('UniqueItemFields', 'barcode', 'Space-separated list of fields that should be unique (used in acquisition module for item creation). Fields must be valid SQL column names of items table', '', 'Free');
427
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OverduesBlockRenew','allow','If any of patron checked out documents is late, should renewal be allowed, blocked only on overdue items or blocked on whatever checked out document','allow|blockitem|blockall','Choice');
(-)a/installer/data/mysql/updatedatabase.pl (+7 lines)
Lines 6784-6789 if ( CheckVersion($DBversion) ) { Link Here
6784
    SetVersion ($DBversion);
6784
    SetVersion ($DBversion);
6785
}
6785
}
6786
6786
6787
$DBversion = "3.11.00.XXX";
6788
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
6789
    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ('OverduesBlockRenew','allow','If any of a patron checked out documents is late, should renewal be allowed, blocked only on overdue items or blocked on whatever checked out document','allow|blockitem|blockall','Choice')";
6790
    print "Upgrade to $DBversion done (Add system preference BlockRenewal ))\n";
6791
    SetVersion($DBversion);
6792
}
6793
6787
6794
6788
=head1 FUNCTIONS
6795
=head1 FUNCTIONS
6789
6796
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref (+8 lines)
Lines 298-303 Circulation: Link Here
298
                  confirmation: Ask for confirmation
298
                  confirmation: Ask for confirmation
299
            - when checking out to a borrower that has overdues outstanding	    
299
            - when checking out to a borrower that has overdues outstanding	    
300
        -
300
        -
301
            - If any of a patron's checked out items are late,
302
            - pref: OverduesBlockRenew
303
              type: choice
304
              choices:
305
                  allow: allow renewing of items.
306
                  blockall: block renewing for all items.
307
                  blockitem: block renewing only for overdue items.
308
        -
301
            - On checkin route the returned item to
309
            - On checkin route the returned item to
302
            - pref: HomeOrHoldingBranchReturn
310
            - pref: HomeOrHoldingBranchReturn
303
              type: choice
311
              type: choice
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tt (-13 / +34 lines)
Lines 20-25 Link Here
20
<script type="text/javascript" src="[% themelang %]/lib/jquery/plugins/jquery-ui-timepicker-addon.js"></script>
20
<script type="text/javascript" src="[% themelang %]/lib/jquery/plugins/jquery-ui-timepicker-addon.js"></script>
21
<script type="text/javascript">
21
<script type="text/javascript">
22
//<![CDATA[
22
//<![CDATA[
23
23
[% IF ( UseTablesortForCirc && dateformat == 'metric' ) %]dt_add_type_uk_date();[% END %]
24
[% IF ( UseTablesortForCirc && dateformat == 'metric' ) %]dt_add_type_uk_date();[% END %]
24
[% IF ( borrowernumber ) %]if($.cookie("holdfor") != [% borrowernumber %]){ $.cookie("holdfor",null, { path: "/", expires: 0 }); }[% ELSE %]$.cookie("holdfor",null, { path: "/", expires: 0 });[% END %]
25
[% IF ( borrowernumber ) %]if($.cookie("holdfor") != [% borrowernumber %]){ $.cookie("holdfor",null, { path: "/", expires: 0 }); }[% ELSE %]$.cookie("holdfor",null, { path: "/", expires: 0 });[% END %]
25
[% UNLESS ( borrowernumber ) %][% UNLESS ( CGIselectborrower ) %]window.onload=function(){ $('#findborrower').focus(); };[% END %][% END %]
26
[% UNLESS ( borrowernumber ) %][% UNLESS ( CGIselectborrower ) %]window.onload=function(){ $('#findborrower').focus(); };[% END %][% END %]
Lines 235-240 function validate1(date) { Link Here
235
        return false;
236
        return false;
236
     }
237
     }
237
};
238
};
239
240
$(function() {
241
    $("input[name='renew_checked']").click(function(){
242
        valid = false;
243
        $("input[name^=items],input[name^=barcodes]").each(function(){
244
            if($(this).is(':checked')){
245
                valid = true;
246
            }
247
        });
248
        if(!valid){
249
            alert(_("Nothing has been selected. Check the box for each item you want to renew"));
250
        }
251
        return valid;
252
    });
253
});
254
238
//]]>
255
//]]>
239
</script>
256
</script>
240
</head>
257
</head>
Lines 841-855 No patron matched <span class="ex">[% message %]</span> Link Here
841
        <td><span style="padding: 0 1em;">[% IF ( todayissue.renewals ) %][% todayissue.renewals %][% ELSE %]0[% END %]</span>
858
        <td><span style="padding: 0 1em;">[% IF ( todayissue.renewals ) %][% todayissue.renewals %][% ELSE %]0[% END %]</span>
842
        [% IF ( todayissue.can_renew ) %]
859
        [% IF ( todayissue.can_renew ) %]
843
        <input type="checkbox" name="all_items[]" value="[% todayissue.itemnumber %]" checked="checked" style="display: none;" />
860
        <input type="checkbox" name="all_items[]" value="[% todayissue.itemnumber %]" checked="checked" style="display: none;" />
844
        [% IF ( todayissue.od ) %]
861
        [% IF ( todayissue.od) %]
845
            <input type="checkbox" class="radio" name="items[]" value="[% todayissue.itemnumber %]" checked="checked" />
862
            <input type="checkbox" class="radio" name="items[]" value="[% todayissue.itemnumber %]" checked="checked" />
846
        [% ELSE %]
847
            <input type="checkbox" class="radio" name="items[]" value="[% todayissue.itemnumber %]" />
848
        [% END %]
863
        [% END %]
849
        [% ELSE %]
864
        [% ELSE %]
850
            [% IF ( todayissue.can_confirm ) %]<span class="renewals-allowed" style="display: none">
865
            [% IF ( todayissue.can_confirm ) %]<span class="renewals-allowed" style="display: none">
851
                <input type="checkbox" name="all_items[]" value="[% todayissue.itemnumber %]" checked="checked" style="display: none;" />
866
                <input type="checkbox" name="all_items[]" value="[% todayissue.itemnumber %]" checked="checked" style="display: none;" />
852
                [% IF ( todayissue.od ) %]
867
                [% IF ( todayissue.od and !todayissue.blockrenewal ) %]
853
                    <input type="checkbox" class="radio" name="items[]" value="[% todayissue.itemnumber %]" checked="checked" />
868
                    <input type="checkbox" class="radio" name="items[]" value="[% todayissue.itemnumber %]" checked="checked" />
854
                [% ELSE %]
869
                [% ELSE %]
855
                    <input type="checkbox" class="radio" name="items[]" value="[% todayissue.itemnumber %]" />
870
                    <input type="checkbox" class="radio" name="items[]" value="[% todayissue.itemnumber %]" />
Lines 860-868 No patron matched <span class="ex">[% message %]</span> Link Here
860
		[% IF ( todayissue.renew_error_on_reserve ) %]
875
		[% IF ( todayissue.renew_error_on_reserve ) %]
861
            <a href="/cgi-bin/koha/reserve/request.pl?biblionumber=[% todayissue.biblionumber %]">On hold</a>
876
            <a href="/cgi-bin/koha/reserve/request.pl?biblionumber=[% todayissue.biblionumber %]">On hold</a>
862
		[% END %]
877
		[% END %]
863
                [% IF ( todayissue.renew_error_too_many ) %]
878
            [% IF ( todayissue.renew_error_restriction ) %]
864
            Not renewable
879
                Renewal not allowed (restriction)
865
                [% END %]
880
            [% ELSIF ( todayissue.renew_error_overdue ) %]
881
                Renewal not allowed (overdue)
882
            [% ELSIF ( todayissue.renew_error_too_many ) %]
883
                Not renewable
884
            [% END %]
866
            [% IF ( todayissue.can_confirm ) %]
885
            [% IF ( todayissue.can_confirm ) %]
867
                </span>
886
                </span>
868
            [% END %]
887
            [% END %]
Lines 932-944 No patron matched <span class="ex">[% message %]</span> Link Here
932
        <input type="checkbox" name="all_items[]" value="[% previssue.itemnumber %]" checked="checked" style="display: none;" />
951
        <input type="checkbox" name="all_items[]" value="[% previssue.itemnumber %]" checked="checked" style="display: none;" />
933
        [% IF ( previssue.od ) %]
952
        [% IF ( previssue.od ) %]
934
            <input type="checkbox" class="radio" name="items[]" value="[% previssue.itemnumber %]" checked="checked" />
953
            <input type="checkbox" class="radio" name="items[]" value="[% previssue.itemnumber %]" checked="checked" />
935
        [% ELSE %]
936
            <input type="checkbox" class="radio" name="items[]" value="[% previssue.itemnumber %]" />
937
        [% END %]
954
        [% END %]
938
        [% ELSE %]
955
        [% ELSE %]
939
            [% IF ( previssue.can_confirm ) %]<span class="renewals-allowed" style="display: none">
956
            [% IF ( previssue.can_confirm ) %]<span class="renewals-allowed" style="display: none">
940
                <input type="checkbox" name="all_items[]" value="[% previssue.itemnumber %]" checked="checked" style="display: none;" />
957
                <input type="checkbox" name="all_items[]" value="[% previssue.itemnumber %]" checked="checked" style="display: none;" />
941
                [% IF ( previssue.od ) %]
958
                [% IF ( previssue.od and !previssue.blockrenewal ) %]
942
                    <input type="checkbox" class="radio" name="items[]" value="[% previssue.itemnumber %]" checked="checked" />
959
                    <input type="checkbox" class="radio" name="items[]" value="[% previssue.itemnumber %]" checked="checked" />
943
                [% ELSE %]
960
                [% ELSE %]
944
                    <input type="checkbox" class="radio" name="items[]" value="[% previssue.itemnumber %]" />
961
                    <input type="checkbox" class="radio" name="items[]" value="[% previssue.itemnumber %]" />
Lines 949-957 No patron matched <span class="ex">[% message %]</span> Link Here
949
		[% IF ( previssue.renew_error_on_reserve ) %]
966
		[% IF ( previssue.renew_error_on_reserve ) %]
950
            <a href="/cgi-bin/koha/reserve/request.pl?biblionumber=[% previssue.biblionumber %]">On hold</a>
967
            <a href="/cgi-bin/koha/reserve/request.pl?biblionumber=[% previssue.biblionumber %]">On hold</a>
951
		[% END %]
968
		[% END %]
952
                [% IF ( previssue.renew_error_too_many ) %]
969
            [% IF ( previssue.renew_error_restriction ) %]
953
            Not renewable
970
                Renewal not allowed (restriction)
954
                [% END %]
971
            [% ELSIF ( previssue.renew_error_overdue ) %]
972
                Renewal not allowed (overdue)
973
            [% ELSIF ( previssue.renew_error_too_many ) %]
974
                Not renewable
975
            [% END %]
955
            [% IF ( previssue.can_confirm ) %]
976
            [% IF ( previssue.can_confirm ) %]
956
                </span>
977
                </span>
957
            [% END %]
978
            [% END %]
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/members/moremember.tt (-3 / +23 lines)
Lines 141-146 function validate1(date) { Link Here
141
        return false;
141
        return false;
142
     }
142
     }
143
};
143
};
144
145
$(function() {
146
    $("input[name='renew_checked']").click(function(){
147
        valid = false;
148
        $("input[name^=items],input[name^=barcodes]").each(function(){
149
            if($(this).is(':checked')){
150
                valid = true;
151
            }
152
        });
153
        if(!valid){
154
            alert(_("Nothing has been selected. Check the box for each item you want to renew"));
155
        }
156
        return valid;
157
    });
158
});
159
144
//]]>
160
//]]>
145
</script>
161
</script>
146
162
Lines 496-502 function validate1(date) { Link Here
496
            [% IF ( issueloo.norenew ) %]
512
            [% IF ( issueloo.norenew ) %]
497
                [% IF ( issueloo.can_confirm ) %]<span class="renewals-allowed" style="display: none">
513
                [% IF ( issueloo.can_confirm ) %]<span class="renewals-allowed" style="display: none">
498
                    <input type="checkbox" name="all_items[]" value="[% issueloo.itemnumber %]" checked="checked" style="display: none;" />
514
                    <input type="checkbox" name="all_items[]" value="[% issueloo.itemnumber %]" checked="checked" style="display: none;" />
499
                    [% IF ( issueloo.od ) %]
515
                    [% IF ( issueloo.od  and !issueloo.blockrenewal ) %]
500
                        <input type="checkbox" name="items[]" value="[% issueloo.itemnumber %]" checked="checked" />
516
                        <input type="checkbox" name="items[]" value="[% issueloo.itemnumber %]" checked="checked" />
501
                    [% ELSE %]
517
                    [% ELSE %]
502
                        <input type="checkbox" name="items[]" value="[% issueloo.itemnumber %]" />
518
                        <input type="checkbox" name="items[]" value="[% issueloo.itemnumber %]" />
Lines 507-515 function validate1(date) { Link Here
507
                [% IF ( issueloo.norenew_reason_on_reserve ) %]
523
                [% IF ( issueloo.norenew_reason_on_reserve ) %]
508
                <a href="/cgi-bin/koha/reserve/request.pl?biblionumber=[% issueloo.biblionumber %]">On Hold</a>
524
                <a href="/cgi-bin/koha/reserve/request.pl?biblionumber=[% issueloo.biblionumber %]">On Hold</a>
509
                [% END %]
525
                [% END %]
510
                    [% IF ( issueloo.norenew_reason_too_many ) %]
526
                [% IF ( issueloo.norenew_reason_restriction ) %]
527
                    Renewal not allowed (restriction)
528
                [% ELSIF ( issueloo.norenew_reason_overdue ) %]
529
                    Renewal not allowed (overdue)
530
                [% ELSIF ( issueloo.norenew_reason_too_many ) %]
511
                        Not renewable
531
                        Not renewable
512
                    [% END %]
532
                [% END %]
513
                [% IF ( issueloo.can_confirm ) %]
533
                [% IF ( issueloo.can_confirm ) %]
514
                    </span>
534
                    </span>
515
                [% END %]
535
                [% END %]
(-)a/koha-tmpl/opac-tmpl/prog/en/modules/opac-user.tt (-1 / +5 lines)
Lines 195-202 $.tablesorter.addParser({ Link Here
195
                [% IF ( OpacRenewalAllowed ) %]
195
                [% IF ( OpacRenewalAllowed ) %]
196
                    <td class="renew">[% IF ( ISSUE.status ) %][% IF ( canrenew ) %]<input type="checkbox" name="item" value="[% ISSUE.itemnumber %]"/> <a href="/cgi-bin/koha/opac-renew.pl?from=opac_user&amp;item=[% ISSUE.itemnumber %]&amp;borrowernumber=[% ISSUE.borrowernumber %]">Renew</a>[% END %] <span class="renewals">([% ISSUE.renewsleft %] of [% ISSUE.renewsallowed %] renewals remaining)</span>
196
                    <td class="renew">[% IF ( ISSUE.status ) %][% IF ( canrenew ) %]<input type="checkbox" name="item" value="[% ISSUE.itemnumber %]"/> <a href="/cgi-bin/koha/opac-renew.pl?from=opac_user&amp;item=[% ISSUE.itemnumber %]&amp;borrowernumber=[% ISSUE.borrowernumber %]">Renew</a>[% END %] <span class="renewals">([% ISSUE.renewsleft %] of [% ISSUE.renewsallowed %] renewals remaining)</span>
197
                        [% ELSE %]
197
                        [% ELSE %]
198
                        [% IF ( ISSUE.norenew_overdue ) %]
199
                           Renewal not allowed <span class="renewals">(overdue on a document)</span>
200
                        [% ELSE %]
198
                        Not renewable[% IF ( ISSUE.too_many ) %] <span class="renewals">([% ISSUE.renewsleft %] of [% ISSUE.renewsallowed %] renewals remaining)</span>[% ELSE %][% IF ( ISSUE.on_reserve ) %] <span class="renewals">(On hold)</span>[% END %][% END %] 
201
                        Not renewable[% IF ( ISSUE.too_many ) %] <span class="renewals">([% ISSUE.renewsleft %] of [% ISSUE.renewsallowed %] renewals remaining)</span>[% ELSE %][% IF ( ISSUE.on_reserve ) %] <span class="renewals">(On hold)</span>[% END %][% END %] 
199
                        [% END %]</td>
202
                        [% END %][% END %]</td>
200
                [% END %]
203
                [% END %]
201
[% IF ( OPACFinesTab ) %]
204
[% IF ( OPACFinesTab ) %]
202
                <td class="fines">[% IF ( ISSUE.charges ) %]Yes[% ELSE %]No[% END %]</td>
205
                <td class="fines">[% IF ( ISSUE.charges ) %]Yes[% ELSE %]No[% END %]</td>
Lines 339-344 $.tablesorter.addParser({ Link Here
339
[% ELSIF ( OVERDUE.status ) %]
342
[% ELSIF ( OVERDUE.status ) %]
340
[% IF ( canrenew ) %]<a href="/cgi-bin/koha/opac-renew.pl?from=opac_user&amp;item=[% OVERDUE.itemnumber %]&amp;bornum=[% OVERDUE.borrowernumber %]">Renew</a>[% END %] <span class="renewals">([% OVERDUE.renewsleft %] of [% OVERDUE.renewsallowed %] renewals remaining)</span>
343
[% IF ( canrenew ) %]<a href="/cgi-bin/koha/opac-renew.pl?from=opac_user&amp;item=[% OVERDUE.itemnumber %]&amp;bornum=[% OVERDUE.borrowernumber %]">Renew</a>[% END %] <span class="renewals">([% OVERDUE.renewsleft %] of [% OVERDUE.renewsallowed %] renewals remaining)</span>
341
[% ELSIF ( OVERDUE.onreserve ) %]On hold
344
[% ELSIF ( OVERDUE.onreserve ) %]On hold
345
[% ELSIF ( OVERDUE.norenew_overdue ) %]Renewal not allowed<span class="renewals">(overdue on a document)</span>
342
[% ELSE %]No renewals left
346
[% ELSE %]No renewals left
343
[% END %]
347
[% END %]
344
</td>[% END %]
348
</td>[% END %]
(-)a/members/moremember.pl (-3 / +4 lines)
Lines 251-256 my @borrowers_with_issues; Link Here
251
my $overdues_exist = 0;
251
my $overdues_exist = 0;
252
my $totalprice = 0;
252
my $totalprice = 0;
253
253
254
my ($blockallitems, $reasonwhy, $overduesblockrenew) = HasWhateverRenewalToBeBlocked($borrowernumber, $override_limit);
255
254
my @issuedata = build_issue_data($issue);
256
my @issuedata = build_issue_data($issue);
255
my @relissuedata = build_issue_data($relissue);
257
my @relissuedata = build_issue_data($relissue);
256
258
Lines 502-513 sub build_issue_data { Link Here
502
504
503
        $row{'charge'} = sprintf( "%.2f", $charge );
505
        $row{'charge'} = sprintf( "%.2f", $charge );
504
506
505
        my ( $renewokay, $renewerror ) =
507
        my ( $renewokay, $renewerror ) = $blockallitems ? (0, $reasonwhy) : CanBookBeRenewed( $borrowernumber, $issue->{itemnumber}, $override_limit, $overduesblockrenew );
506
          CanBookBeRenewed( $borrowernumber, $issue->{itemnumber},
507
            $override_limit );
508
        $row{'norenew'} = !$renewokay;
508
        $row{'norenew'} = !$renewokay;
509
        $row{'can_confirm'} = ( !$renewokay && $renewerror ne 'on_reserve' );
509
        $row{'can_confirm'} = ( !$renewokay && $renewerror ne 'on_reserve' );
510
        $row{"norenew_reason_$renewerror"} = 1 if $renewerror;
510
        $row{"norenew_reason_$renewerror"} = 1 if $renewerror;
511
        $row{'blockrenewal'} = ($renewerror=~ /overdue|restriction/) ? 1 : 0;
511
        $row{renew_failed}  = $renew_failed{ $issue->{itemnumber} };
512
        $row{renew_failed}  = $renew_failed{ $issue->{itemnumber} };
512
        $row{return_failed} = $return_failed{ $issue->{barcode} };
513
        $row{return_failed} = $return_failed{ $issue->{barcode} };
513
        push( @{$localissue}, \%row );
514
        push( @{$localissue}, \%row );
(-)a/opac/opac-renew.pl (-1 / +5 lines)
Lines 46-53 my @items = $query->param('item'); Link Here
46
my $opacrenew = C4::Context->preference("OpacRenewalAllowed");
46
my $opacrenew = C4::Context->preference("OpacRenewalAllowed");
47
47
48
my $errorstring='';
48
my $errorstring='';
49
50
my ($blockallitems, $reasonwhy, $overduesblockrenew) = HasWhateverRenewalToBeBlocked($borrowernumber, $override_limit);
51
49
for my $itemnumber ( @items ) {
52
for my $itemnumber ( @items ) {
50
    my ($status,$error) = CanBookBeRenewed( $borrowernumber, $itemnumber );
53
54
    my ($status,$error) = $blockallitems ? (0, $reasonwhy) : CanBookBeRenewed( $borrowernumber, $itemnumber, undef, $overduesblockrenew );
51
    if ( $status == 1 && $opacrenew == 1 ) {
55
    if ( $status == 1 && $opacrenew == 1 ) {
52
	my $renewalbranch = C4::Context->preference('OpacRenewalBranch');
56
	my $renewalbranch = C4::Context->preference('OpacRenewalBranch');
53
	my $branchcode;
57
	my $branchcode;
(-)a/opac/opac-user.pl (-1 / +10 lines)
Lines 155-160 my @overdues; Link Here
155
my @issuedat;
155
my @issuedat;
156
my $itemtypes = GetItemTypes();
156
my $itemtypes = GetItemTypes();
157
my $issues = GetPendingIssues($borrowernumber);
157
my $issues = GetPendingIssues($borrowernumber);
158
159
160
my ($blockallitems, $reasonwhy, $overduesblockrenew) = HasWhateverRenewalToBeBlocked($borrowernumber, undef);
161
158
if ($issues){
162
if ($issues){
159
    foreach my $issue ( sort { $b->{date_due}->datetime() cmp $a->{date_due}->datetime() } @{$issues} ) {
163
    foreach my $issue ( sort { $b->{date_due}->datetime() cmp $a->{date_due}->datetime() } @{$issues} ) {
160
        # check for reserves
164
        # check for reserves
Lines 178-188 if ($issues){ Link Here
178
        $issue->{'charges'} = $charges;
182
        $issue->{'charges'} = $charges;
179
183
180
        # check if item is renewable
184
        # check if item is renewable
181
        my ($status,$renewerror) = CanBookBeRenewed( $borrowernumber, $issue->{'itemnumber'} );
185
        my ($status,$renewerror) = $blockallitems ? (0, $reasonwhy) : CanBookBeRenewed( $borrowernumber, $issue->{'itemnumber'}, undef, $overduesblockrenew);
182
        ($issue->{'renewcount'},$issue->{'renewsallowed'},$issue->{'renewsleft'}) = GetRenewCount($borrowernumber, $issue->{'itemnumber'});
186
        ($issue->{'renewcount'},$issue->{'renewsallowed'},$issue->{'renewsleft'}) = GetRenewCount($borrowernumber, $issue->{'itemnumber'});
183
        if($status && C4::Context->preference("OpacRenewalAllowed")){
187
        if($status && C4::Context->preference("OpacRenewalAllowed")){
184
            $issue->{'status'} = $status;
188
            $issue->{'status'} = $status;
185
        }
189
        }
190
        $issue->{'norenew_overdue'} = 1 if $renewerror and $renewerror eq 'overdue';
186
        $issue->{'too_many'} = 1 if $renewerror and $renewerror eq 'too_many';
191
        $issue->{'too_many'} = 1 if $renewerror and $renewerror eq 'too_many';
187
        $issue->{'on_reserve'} = 1 if $renewerror and $renewerror eq 'on_reserve';
192
        $issue->{'on_reserve'} = 1 if $renewerror and $renewerror eq 'on_reserve';
188
193
Lines 218-229 if ($issues){ Link Here
218
                }
223
                }
219
    }
224
    }
220
}
225
}
226
227
$canrenew =  0 if ($overduesblockrenew ne 'allow' and $overdues_count == $count);
228
221
$template->param( ISSUES       => \@issuedat );
229
$template->param( ISSUES       => \@issuedat );
222
$template->param( issues_count => $count );
230
$template->param( issues_count => $count );
223
$template->param( canrenew     => $canrenew );
231
$template->param( canrenew     => $canrenew );
224
$template->param( OVERDUES       => \@overdues );
232
$template->param( OVERDUES       => \@overdues );
225
$template->param( overdues_count => $overdues_count );
233
$template->param( overdues_count => $overdues_count );
226
234
235
227
my $show_barcode = C4::Members::AttributeTypes::AttributeTypeExists( ATTRIBUTE_SHOW_BARCODE );
236
my $show_barcode = C4::Members::AttributeTypes::AttributeTypeExists( ATTRIBUTE_SHOW_BARCODE );
228
if ($show_barcode) {
237
if ($show_barcode) {
229
    my $patron_show_barcode = GetBorrowerAttributeValue($borrowernumber, ATTRIBUTE_SHOW_BARCODE);
238
    my $patron_show_barcode = GetBorrowerAttributeValue($borrowernumber, ATTRIBUTE_SHOW_BARCODE);
(-)a/reserve/renewscript.pl (-3 / +3 lines)
Lines 81-91 my $borrowernumber = $input->param("borrowernumber"); Link Here
81
my $exemptfine     = $input->param("exemptfine") || 0;
81
my $exemptfine     = $input->param("exemptfine") || 0;
82
my $override_limit = $input->param("override_limit") || 0;
82
my $override_limit = $input->param("override_limit") || 0;
83
my $failedrenews   = q{};
83
my $failedrenews   = q{};
84
my ($blockallitems, $reasonwhy, $overduesblockrenew) = HasWhateverRenewalToBeBlocked($borrowernumber, $override_limit);
85
84
foreach my $itemno (@data) {
86
foreach my $itemno (@data) {
85
87
86
    # check status before renewing issue
88
    # check status before renewing issue
87
    my ( $renewokay, $error ) =
89
    my ( $renewokay, $error ) = $blockallitems ? (0, $reasonwhy) : CanBookBeRenewed( $borrowernumber, $itemno, $override_limit, $overduesblockrenew );
88
      CanBookBeRenewed( $borrowernumber, $itemno, $override_limit );
89
    if ($renewokay) {
90
    if ($renewokay) {
90
        AddRenewal( $borrowernumber, $itemno, $branch, $datedue );
91
        AddRenewal( $borrowernumber, $itemno, $branch, $datedue );
91
    }
92
    }
92
- 

Return to bug 8236