Attachment #42745 for bug #13918

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

Lines 21-26 use Modern::Perl; Link Here

(-)a/Koha/Biblio.pm (+13 lines)
21		21
22	use Carp;	22	use Carp;
23		23
		24	use C4::Biblio qw( GetRecordValue GetMarcBiblio GetFrameworkCode );
		25
24	use Koha::Database;	26	use Koha::Database;
25		27
26	use base qw(Koha::Object);	28	use base qw(Koha::Object);
Lines 35-40 Koha::Biblio - Koha Biblio Object class Link Here
35		37
36	=cut	38	=cut
37		39
		40	=head3 subtitle
		41
		42	=cut
		43
		44	sub subtitle {
		45	my ( $self ) = @_;
		46
		47	return GetRecordValue( 'subtitle', GetMarcBiblio( $self->id() ), GetFrameworkCode( $self->id() ) );
		48	}
		49
		50
38	=head3 type	51	=head3 type
39		52
40	=cut	53	=cut




    return $self->found() eq 'T';
}

=head3 is_cancelable

Returns true if hold is a cancelable hold

=cut

sub is_cancelable {
    my ($self) = @_;

    return ( $self->is_waiting() && !$self->is_found() )
      || ( !$self->is_waiting() && !$self->is_in_transit() );
}

=head3 is_in_transit

Returns true if hold is a in_transit hold

=cut

sub is_in_transit {
    my ($self) = @_;

    return 0 unless $self->found();
    return $self->found() eq 'T';
}

=head3 is_at_destination

Returns true if hold is a in_transit hold

=cut

sub is_at_destination {
    my ($self) = @_;

    return $self->is_waiting() && ( $self->branchcode() eq $self->item()->holdingbranch() );
}

=head3 biblio

Returns the related Koha::Biblio object for this hold




                                    </thead>
                                    <tbody>
                                    [% FOREACH RESERVE IN RESERVES %]
                                        [% IF ( RESERVE.is_waiting ) %]
                                            [% IF ( RESERVE.is_at_destination ) %]
                                                [% IF ( RESERVE.is_found ) %]
                                                    <tr class="reserved">
                                                [% ELSE %]
                                                    <tr>

                                        [% END %]
                                            <td class="title">
                                                <a class="title" href="/cgi-bin/koha/opac-detail.pl?biblionumber=[% RESERVE.biblionumber %]">
                                                    [% RESERVE.biblio.title %]
                                                    [% FOREACH subtitl IN RESERVE.biblio.subtitle %]
                                                        [% subtitl.subfield %]
                                                    [% END %]
                                                    [% RESERVE.item.enumchron %]
                                                </a>
                                                [% RESERVE.biblio.author %]
                                            </td>
                                            <td class="reservedate">
                                                <span title="[% RESERVE.reservedate %]">

                                                </span>
                                            </td>
                                            <td class="expirationdate">
                                                [% IF ! RESERVE.found %]
                                                    [% IF ( RESERVE.expirationdate ) %]
                                                        <span>
                                                            <span class="tdlabel">Expiration:</span>
                                                                [% RESERVE.expirationdate | $KohaDates %]
                                                        </span>
                                                    [% ELSE %]
                                                        <span class="tdlabel">Expiration:</span>
                                                        Never expires
                                                    [% END %]
                                                [% ELSE %]
                                                    -
                                                    Never expires
                                                [% END %]
                                            </td>
                                            <td class="branch">
                                                <span class="tdlabel">Pick up location:</span>
                                                [% RESERVE.branch.branchname %]
                                            </td>
                                            [% IF ( showpriority ) %]
                                                 <td class="priority">

                                            [% END %]
                                            <td class="status">
                                                <span class="tdlabel">Status:</span>
                                                [% IF ( RESERVE.is_waiting ) %]
                                                    [% IF ( RESERVE.is_at_destination ) %]
                                                        [% IF ( RESERVE.found ) %]
                                                            Item waiting at <b> [% RESERVE.branch.branchname %]</b>
                                                            [% IF ( RESERVE.waitingdate ) %]
                                                                since [% RESERVE.waitingdate | $KohaDates %]
                                                                [% IF RESERVE.waiting_expires_on %]
                                                                    until [% RESERVE.waiting_expires_on | $KohaDates %]
                                                                [% END %]
                                                            [% END %]
                                                            <input type="hidden" name="pickup" value="[% RESERVE.branchcode %]" />
                                                        [% ELSE %]
                                                            Item waiting to be pulled from <b> [% RESERVE.wbrname %]</b>
                                                        [% END %]

                                                        Item in transit to <b> [% RESERVE.wbrname %]</b> <input type="hidden" name="pickup" value="[% RESERVE.wbrcd %]" />
                                                    [% END %]
                                                [% ELSE %]
                                                    [% IF ( RESERVE.is_in_transit ) %]
                                                        Item in transit from <b> [% RESERVE.frombranch %]</b> since
                                                        [% RESERVE.datesent | $KohaDates %]
                                                    [% ELSIF ( RESERVE.suspend ) %]

                                            </td>
                                            [% IF SuspendHoldsOpac %]
                                                <td>
                                                    [% IF ( RESERVE.is_cancelable ) %]
                                                        [% IF RESERVE.suspend %]
                                                            <form class="form-inline" action="/cgi-bin/koha/opac-modrequest-suspend.pl" method="post">
                                                                <input type="hidden" name="reserve_id" value="[% RESERVE.reserve_id %]" />

                                                                </form>
                                                            [% END # / IF AutoResumeSuspendedHolds %]
                                                        [% END # / IF RESERVE.suspend %]
                                                    [% END # / IF ( RESERVE.is_cancelable )%]
                                                </td>
                                            [% END # / IF SuspendHoldsOpac %]
                                            <td class="modify">
                                                [% IF ( RESERVE.is_cancelable ) %]
                                                    <form action="/cgi-bin/koha/opac-modrequest.pl" method="post">
                                                    <input type="hidden" name="biblionumber" value="[% RESERVE.biblionumber %]" />
                                                    <input type="hidden" name="reserve_id" value="[% RESERVE.reserve_id %]" />




use C4::Branch; # GetBranches
use Koha::DateUtils;
use Koha::Borrower::Debarments qw(IsDebarred);
use Koha::Holds;

use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE';


$template->param( branchloop => \@branch_loop );

# now the reserved items....
my $reserves = Koha::Holds->search( { borrowernumber => $borrowernumber } );
foreach my $res (@reserves) {

$template->param(
    RESERVES       => $reserves,
    reserves_count => $reserves->count(),
    showpriority   => $show_priority,
    WAITING        => $reserves->waiting()
);
    my $biblioData = GetBiblioData($res->{'biblionumber'});
    $res->{'reserves_title'} = $biblioData->{'title'};
    $res->{'author'} = $biblioData->{'author'};

    if ($show_priority) {
        $res->{'priority'} ||= '';
    }
    if ( $res->{'suspend_until'} ) {
        $res->{'suspend_until'} = output_pref({ dt => dt_from_string( $res->{'suspend_until'} , 'iso' ), dateonly => 1 });
    }
}

# use Data::Dumper;
# warn Dumper(@reserves);

$template->param( RESERVES       => \@reserves );
$template->param( reserves_count => $#reserves+1 );
$template->param( showpriority=>$show_priority );

my @waiting;
my $wcount = 0;
foreach my $res (@reserves) {
    if ( $res->{'itemnumber'} ) {
        my $item = GetItem( $res->{'itemnumber'});
        $res->{'holdingbranch'} =
          $branches->{ $item->{'holdingbranch'} }->{'branchname'};
        $res->{'branch'} = $branches->{ $res->{'branchcode'} }->{'branchname'};
        $res->{'enumchron'} = $item->{'enumchron'} if $item->{'enumchron'};
        # get document reserve status
        my $biblioData = GetBiblioData($res->{'biblionumber'});
        $res->{'waiting_title'} = $biblioData->{'title'};
        if ( ( $res->{'found'} eq 'W' ) ) {
            my $item = $res->{'itemnumber'};
            $item = GetBiblioFromItemNumber($item,undef);
            $res->{'wait'}= 1;
            $res->{'holdingbranch'}=$item->{'holdingbranch'};
            $res->{'biblionumber'}=$item->{'biblionumber'};
            $res->{'barcode'} = $item->{'barcode'};
            $res->{'wbrcode'} = $res->{'branchcode'};
            $res->{'itemnumber'}    = $res->{'itemnumber'};
            $res->{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'};
            if($res->{'holdingbranch'} eq $res->{'wbrcode'}){
                $res->{'atdestination'} = 1;
            }
            # set found to 1 if reserve is waiting for patron pickup
            $res->{'found'} = 1 if $res->{'found'} eq 'W';
        } else {
            my ($transfertwhen, $transfertfrom, $transfertto) = GetTransfers( $res->{'itemnumber'} );
            if ($transfertwhen) {
                $res->{intransit} = 1;
                $res->{datesent}   = $transfertwhen;
                $res->{frombranch} = GetBranchName($transfertfrom);
            }
        }
        push @waiting, $res;
        $wcount++;
    }
    # can be cancelled
    #$res->{'cancelable'} = 1 if ($res->{'wait'} && $res->{'atdestination'} && $res->{'found'} ne "1");
    $res->{'cancelable'} = 1 if    ($res->{wait} and not $res->{found}) or (not $res->{wait} and not $res->{intransit});

}

$template->param( WAITING => \@waiting );

# current alert subscriptions
my $alerts = getalert($borrowernumber);


$template->param(
    bor_messages_loop    => GetMessages( $borrowernumber, 'B', 'NONE' ),
    waiting_count      => $wcount,
    patronupdate => $patronupdate,
    OpacRenewalAllowed => C4::Context->preference("OpacRenewalAllowed"),
    userview => 1,
- 

Return to bug 13918

Lines 105-110 sub is_in_transit { Link Here

(-)a/Koha/Hold.pm (+38 lines)
105	return $self->found() eq 'T';	105	return $self->found() eq 'T';
106	}	106	}
107		107
		108	=head3 is_cancelable
		109
		110	Returns true if hold is a cancelable hold
		111
		112	=cut
		113
		114	sub is_cancelable {
		115	my ($self) = @_;
		116
		117	return ( $self->is_waiting() && !$self->is_found() )
		118	\|\| ( !$self->is_waiting() && !$self->is_in_transit() );
		119	}
		120
		121	=head3 is_in_transit
		122
		123	Returns true if hold is a in_transit hold
		124
		125	=cut
		126
		127	sub is_in_transit {
		128	my ($self) = @_;
		129
		130	return 0 unless $self->found();
		131	return $self->found() eq 'T';
		132	}
		133
		134	=head3 is_at_destination
		135
		136	Returns true if hold is a in_transit hold
		137
		138	=cut
		139
		140	sub is_at_destination {
		141	my ($self) = @_;
		142
		143	return $self->is_waiting() && ( $self->branchcode() eq $self->item()->holdingbranch() );
		144	}
		145
108	=head3 biblio	146	=head3 biblio
109		147
110	Returns the related Koha::Biblio object for this hold	148	Returns the related Koha::Biblio object for this hold

Lines 511-519 Link Here

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-user.tt (-22 / +32 lines)
511	</thead>	511	</thead>
512	<tbody>	512	<tbody>
513	[% FOREACH RESERVE IN RESERVES %]	513	[% FOREACH RESERVE IN RESERVES %]
514	[% IF ( RESERVE.wait ) %]	514	[% IF ( RESERVE.is_waiting ) %]
515	[% IF ( RESERVE.atdestination ) %]	515	[% IF ( RESERVE.is_at_destination ) %]
516	[% IF ( RESERVE.found ) %]	516	[% IF ( RESERVE.is_found ) %]
517	<tr class="reserved">	517	<tr class="reserved">
518	[% ELSE %]	518	[% ELSE %]
519	<tr>	519	<tr>
Lines 526-538 Link Here
526	[% END %]	526	[% END %]
527	<td class="title">	527	<td class="title">
528	<a class="title" href="/cgi-bin/koha/opac-detail.pl?biblionumber=[% RESERVE.biblionumber %]">	528	<a class="title" href="/cgi-bin/koha/opac-detail.pl?biblionumber=[% RESERVE.biblionumber %]">
529	[% RESERVE.reserves_title %]	529	[% RESERVE.biblio.title %]
530	[% FOREACH subtitl IN RESERVE.subtitle %]	530	[% FOREACH subtitl IN RESERVE.biblio.subtitle %]
531	[% subtitl.subfield %]	531	[% subtitl.subfield %]
532	[% END %]	532	[% END %]
533	[% RESERVE.enumchron %]	533	[% RESERVE.item.enumchron %]
534	</a>	534	</a>
535	[% RESERVE.author %]	535	[% RESERVE.biblio.author %]
536	</td>	536	</td>
537	<td class="reservedate">	537	<td class="reservedate">
538	<span title="[% RESERVE.reservedate %]">	538	<span title="[% RESERVE.reservedate %]">
Lines 541-559 Link Here
541	</span>	541	</span>
542	</td>	542	</td>
543	<td class="expirationdate">	543	<td class="expirationdate">
544	[% IF ( RESERVE.expirationdate ) %]	544	[% IF ! RESERVE.found %]
545	<span>	545	[% IF ( RESERVE.expirationdate ) %]
		546	<span>
		547	<span class="tdlabel">Expiration:</span>
		548	[% RESERVE.expirationdate \| $KohaDates %]
		549	</span>
		550	[% ELSE %]
546	<span class="tdlabel">Expiration:</span>	551	<span class="tdlabel">Expiration:</span>
547	[% RESERVE.expirationdate \| $KohaDates %]	552	Never expires
548	</span>	553	[% END %]
549	[% ELSE %]	554	[% ELSE %]
550	<span class="tdlabel">Expiration:</span>	555	-
551	Never expires
552	[% END %]	556	[% END %]
553	</td>	557	</td>
554	<td class="branch">	558	<td class="branch">
555	<span class="tdlabel">Pick up location:</span>	559	<span class="tdlabel">Pick up location:</span>
556	[% RESERVE.branch %]	560	[% RESERVE.branch.branchname %]
557	</td>	561	</td>
558	[% IF ( showpriority ) %]	562	[% IF ( showpriority ) %]
559	<td class="priority">	563	<td class="priority">
Lines 563-573 Link Here
563	[% END %]	567	[% END %]
564	<td class="status">	568	<td class="status">
565	<span class="tdlabel">Status:</span>	569	<span class="tdlabel">Status:</span>
566	[% IF ( RESERVE.wait ) %]	570	[% IF ( RESERVE.is_waiting ) %]
567	[% IF ( RESERVE.atdestination ) %]	571	[% IF ( RESERVE.is_at_destination ) %]
568	[% IF ( RESERVE.found ) %]	572	[% IF ( RESERVE.found ) %]
569	Item waiting at <b> [% RESERVE.wbrname %]</b>[% IF ( RESERVE.waitingdate ) %] since [% RESERVE.waitingdate \| $KohaDates %][% END %]	573	Item waiting at <b> [% RESERVE.branch.branchname %]</b>
570	<input type="hidden" name="pickup" value="[% RESERVE.wbrcd %]" />	574	[% IF ( RESERVE.waitingdate ) %]
		575	since [% RESERVE.waitingdate \| $KohaDates %]
		576	[% IF RESERVE.waiting_expires_on %]
		577	until [% RESERVE.waiting_expires_on \| $KohaDates %]
		578	[% END %]
		579	[% END %]
		580	<input type="hidden" name="pickup" value="[% RESERVE.branchcode %]" />
571	[% ELSE %]	581	[% ELSE %]
572	Item waiting to be pulled from <b> [% RESERVE.wbrname %]</b>	582	Item waiting to be pulled from <b> [% RESERVE.wbrname %]</b>
573	[% END %]	583	[% END %]
Lines 575-581 Link Here
575	Item in transit to <b> [% RESERVE.wbrname %]</b> <input type="hidden" name="pickup" value="[% RESERVE.wbrcd %]" />	585	Item in transit to <b> [% RESERVE.wbrname %]</b> <input type="hidden" name="pickup" value="[% RESERVE.wbrcd %]" />
576	[% END %]	586	[% END %]
577	[% ELSE %]	587	[% ELSE %]
578	[% IF ( RESERVE.intransit ) %]	588	[% IF ( RESERVE.is_in_transit ) %]
579	Item in transit from <b> [% RESERVE.frombranch %]</b> since	589	Item in transit from <b> [% RESERVE.frombranch %]</b> since
580	[% RESERVE.datesent \| $KohaDates %]	590	[% RESERVE.datesent \| $KohaDates %]
581	[% ELSIF ( RESERVE.suspend ) %]	591	[% ELSIF ( RESERVE.suspend ) %]
Lines 587-593 Link Here
587	</td>	597	</td>
588	[% IF SuspendHoldsOpac %]	598	[% IF SuspendHoldsOpac %]
589	<td>	599	<td>
590	[% IF ( RESERVE.cancelable ) %]	600	[% IF ( RESERVE.is_cancelable ) %]
591	[% IF RESERVE.suspend %]	601	[% IF RESERVE.suspend %]
592	<form class="form-inline" action="/cgi-bin/koha/opac-modrequest-suspend.pl" method="post">	602	<form class="form-inline" action="/cgi-bin/koha/opac-modrequest-suspend.pl" method="post">
593	<input type="hidden" name="reserve_id" value="[% RESERVE.reserve_id %]" />	603	<input type="hidden" name="reserve_id" value="[% RESERVE.reserve_id %]" />
Lines 628-638 Link Here
628	</form>	638	</form>
629	[% END # / IF AutoResumeSuspendedHolds %]	639	[% END # / IF AutoResumeSuspendedHolds %]
630	[% END # / IF RESERVE.suspend %]	640	[% END # / IF RESERVE.suspend %]
631	[% END # / IF ( RESERVE.cancelable )%]	641	[% END # / IF ( RESERVE.is_cancelable )%]
632	</td>	642	</td>
633	[% END # / IF SuspendHoldsOpac %]	643	[% END # / IF SuspendHoldsOpac %]
634	<td class="modify">	644	<td class="modify">
635	[% IF ( RESERVE.cancelable ) %]	645	[% IF ( RESERVE.is_cancelable ) %]
636	<form action="/cgi-bin/koha/opac-modrequest.pl" method="post">	646	<form action="/cgi-bin/koha/opac-modrequest.pl" method="post">
637	<input type="hidden" name="biblionumber" value="[% RESERVE.biblionumber %]" />	647	<input type="hidden" name="biblionumber" value="[% RESERVE.biblionumber %]" />
638	<input type="hidden" name="reserve_id" value="[% RESERVE.reserve_id %]" />	648	<input type="hidden" name="reserve_id" value="[% RESERVE.reserve_id %]" />

Lines 36-41 use C4::Letters; Link Here

(-)a/opac/opac-user.pl (-74 / +8 lines)
36	use C4::Branch; # GetBranches	36	use C4::Branch; # GetBranches
37	use Koha::DateUtils;	37	use Koha::DateUtils;
38	use Koha::Borrower::Debarments qw(IsDebarred);	38	use Koha::Borrower::Debarments qw(IsDebarred);
		39	use Koha::Holds;
39		40
40	use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE';	41	use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE';
41		42
Lines 276-354 for my $branch_hash ( sort keys %{$branches} ) { Link Here
276	$template->param( branchloop => \@branch_loop );	277	$template->param( branchloop => \@branch_loop );
277		278
278	# now the reserved items....	279	# now the reserved items....
279	my @reserves = GetReservesFromBorrowernumber( $borrowernumber );	280	my $reserves = Koha::Holds->search( { borrowernumber => $borrowernumber } );
280	foreach my $res (@reserves) {
281		281
282	if ( $res->{'expirationdate'} eq '0000-00-00' ) {	282	$template->param(
283	$res->{'expirationdate'} = '';	283	RESERVES => $reserves,
284	}	284	reserves_count => $reserves->count(),
285	$res->{'subtitle'} = GetRecordValue('subtitle', GetMarcBiblio($res->{'biblionumber'}), GetFrameworkCode($res->{'biblionumber'}));	285	showpriority => $show_priority,
286	$res->{'waiting'} = 1 if $res->{'found'} eq 'W';	286	WAITING => $reserves->waiting()
287	$res->{'branch'} = $branches->{ $res->{'branchcode'} }->{'branchname'};	287	);
288	my $biblioData = GetBiblioData($res->{'biblionumber'});
289	$res->{'reserves_title'} = $biblioData->{'title'};
290	$res->{'author'} = $biblioData->{'author'};
291
292	if ($show_priority) {
293	$res->{'priority'} \|\|= '';
294	}
295	if ( $res->{'suspend_until'} ) {
296	$res->{'suspend_until'} = output_pref({ dt => dt_from_string( $res->{'suspend_until'} , 'iso' ), dateonly => 1 });
297	}
298	}
299
300	# use Data::Dumper;
301	# warn Dumper(@reserves);
302
303	$template->param( RESERVES => \@reserves );
304	$template->param( reserves_count => $#reserves+1 );
305	$template->param( showpriority=>$show_priority );
306
307	my @waiting;
308	my $wcount = 0;
309	foreach my $res (@reserves) {
310	if ( $res->{'itemnumber'} ) {
311	my $item = GetItem( $res->{'itemnumber'});
312	$res->{'holdingbranch'} =
313	$branches->{ $item->{'holdingbranch'} }->{'branchname'};
314	$res->{'branch'} = $branches->{ $res->{'branchcode'} }->{'branchname'};
315	$res->{'enumchron'} = $item->{'enumchron'} if $item->{'enumchron'};
316	# get document reserve status
317	my $biblioData = GetBiblioData($res->{'biblionumber'});
318	$res->{'waiting_title'} = $biblioData->{'title'};
319	if ( ( $res->{'found'} eq 'W' ) ) {
320	my $item = $res->{'itemnumber'};
321	$item = GetBiblioFromItemNumber($item,undef);
322	$res->{'wait'}= 1;
323	$res->{'holdingbranch'}=$item->{'holdingbranch'};
324	$res->{'biblionumber'}=$item->{'biblionumber'};
325	$res->{'barcode'} = $item->{'barcode'};
326	$res->{'wbrcode'} = $res->{'branchcode'};
327	$res->{'itemnumber'} = $res->{'itemnumber'};
328	$res->{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'};
329	if($res->{'holdingbranch'} eq $res->{'wbrcode'}){
330	$res->{'atdestination'} = 1;
331	}
332	# set found to 1 if reserve is waiting for patron pickup
333	$res->{'found'} = 1 if $res->{'found'} eq 'W';
334	} else {
335	my ($transfertwhen, $transfertfrom, $transfertto) = GetTransfers( $res->{'itemnumber'} );
336	if ($transfertwhen) {
337	$res->{intransit} = 1;
338	$res->{datesent} = $transfertwhen;
339	$res->{frombranch} = GetBranchName($transfertfrom);
340	}
341	}
342	push @waiting, $res;
343	$wcount++;
344	}
345	# can be cancelled
346	#$res->{'cancelable'} = 1 if ($res->{'wait'} && $res->{'atdestination'} && $res->{'found'} ne "1");
347	$res->{'cancelable'} = 1 if ($res->{wait} and not $res->{found}) or (not $res->{wait} and not $res->{intransit});
348
349	}
350
351	$template->param( WAITING => \@waiting );
352		288
353	# current alert subscriptions	289	# current alert subscriptions
354	my $alerts = getalert($borrowernumber);	290	my $alerts = getalert($borrowernumber);
Lines 386-392 if ( $borr->{'opacnote'} ) { Link Here
386		322
387	$template->param(	323	$template->param(
388	bor_messages_loop => GetMessages( $borrowernumber, 'B', 'NONE' ),	324	bor_messages_loop => GetMessages( $borrowernumber, 'B', 'NONE' ),
389	waiting_count => $wcount,
390	patronupdate => $patronupdate,	325	patronupdate => $patronupdate,
391	OpacRenewalAllowed => C4::Context->preference("OpacRenewalAllowed"),	326	OpacRenewalAllowed => C4::Context->preference("OpacRenewalAllowed"),
392	userview => 1,	327	userview => 1,
393	-