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

(-)a/C4/Reserves.pm (-2 / +2 lines)
Lines 830-838 sub CheckReserves { Link Here
830
                if ($res->{'found'} eq 'W') {
830
                if ($res->{'found'} eq 'W') {
831
                    return ( "Waiting", $res, \@reserves ); # Found it, it is waiting
831
                    return ( "Waiting", $res, \@reserves ); # Found it, it is waiting
832
                } elsif ($res->{'found'} eq 'P') {
832
                } elsif ($res->{'found'} eq 'P') {
833
                    return ( "Processing", $res, \@reserves ); # Found determinated hold, e. g. the tranferred one
833
                    return ( "Processing", $res, \@reserves ); # Found determinated hold, e. g. the transferred one
834
                 } else {
834
                 } else {
835
                    return ( "Reserved", $res, \@reserves ); # Found determinated hold, e. g. the tranferred one
835
                    return ( "Reserved", $res, \@reserves ); # Found determinated hold, e. g. the transferred one
836
                }
836
                }
837
            } else {
837
            } else {
838
                my $patron;
838
                my $patron;
(-)a/C4/RotatingCollections.pm (-6 / +9 lines)
Lines 67-73 BEGIN { Link Here
67
67
68
=head2  CreateCollection
68
=head2  CreateCollection
69
 ( $success, $errorcode, $errormessage ) = CreateCollection( $title, $description );
69
 ( $success, $errorcode, $errormessage ) = CreateCollection( $title, $description );
70
 Creates a new collection
70
71
Creates a new collection
71
72
72
 Input:
73
 Input:
73
   $title: short description of the club or service
74
   $title: short description of the club or service
Lines 166-172 sub UpdateCollection { Link Here
166
=head2 DeleteCollection
167
=head2 DeleteCollection
167
168
168
 ( $success, $errorcode, $errormessage ) = DeleteCollection( $colId );
169
 ( $success, $errorcode, $errormessage ) = DeleteCollection( $colId );
169
 Deletes a collection of the given id
170
171
Deletes a collection of the given id
170
172
171
 Input:
173
 Input:
172
   $colId : id of the Archetype to be deleted
174
   $colId : id of the Archetype to be deleted
Lines 199-205 sub DeleteCollection { Link Here
199
=head2 GetCollections
201
=head2 GetCollections
200
202
201
 $collections = GetCollections();
203
 $collections = GetCollections();
202
 Returns data about all collections
204
205
Returns data about all collections
203
206
204
 Output:
207
 Output:
205
  On Success:
208
  On Success:
Lines 229-236 sub GetCollections { Link Here
229
232
230
 ( $results, $success, $errorcode, $errormessage ) = GetItemsInCollection( $colId );
233
 ( $results, $success, $errorcode, $errormessage ) = GetItemsInCollection( $colId );
231
234
232
 Returns information about the items in the given collection
235
Returns information about the items in the given collection
233
 
236
234
 Input:
237
 Input:
235
   $colId: The id of the collection
238
   $colId: The id of the collection
236
239
Lines 510-516 sub isItemInThisCollection { Link Here
510
513
511
=head2 isItemInAnyCollection
514
=head2 isItemInAnyCollection
512
515
513
$inCollection = isItemInAnyCollection( $itemnumber );
516
  my $inCollection = isItemInAnyCollection( $itemnumber );
514
517
515
=cut
518
=cut
516
519
(-)a/C4/SIP/ILS/Item.pm (-3 / +3 lines)
Lines 316-322 sub pending_queue { Link Here
316
}
316
}
317
sub hold_attached {
317
sub hold_attached {
318
    my $self = shift;
318
    my $self = shift;
319
	(defined $self->{hold_attached}) or return [];
319
    (defined $self->{hold_attached}) or return [];
320
    return $self->{hold_attached};
320
    return $self->{hold_attached};
321
}
321
}
322
322
Lines 371-378 sub hold_pickup_date { Link Here
371
sub available {
371
sub available {
372
	my ($self, $for_patron) = @_;
372
	my ($self, $for_patron) = @_;
373
	my $count  = (defined $self->{pending_queue}) ? scalar @{$self->{pending_queue}} : 0;
373
	my $count  = (defined $self->{pending_queue}) ? scalar @{$self->{pending_queue}} : 0;
374
	my $count2 = (defined $self->{hold_attached}   ) ? scalar @{$self->{hold_attached}   } : 0;
374
    my $count2 = (defined $self->{hold_attached}   ) ? scalar @{$self->{hold_attached}   } : 0;
375
	$debug and print STDERR "availability check: pending_queue size $count, hold_attached size $count2\n";
375
    $debug and print STDERR "availability check: pending_queue size $count, hold_attached size $count2\n";
376
    if (defined($self->{borrowernumber})) {
376
    if (defined($self->{borrowernumber})) {
377
        ($self->{borrowernumber} eq $for_patron) or return 0;
377
        ($self->{borrowernumber} eq $for_patron) or return 0;
378
		return ($count ? 0 : 1);
378
		return ($count ? 0 : 1);
(-)a/C4/SIP/ILS/Transaction/Checkout.pm (-2 / +1 lines)
Lines 48-54 sub new { Link Here
48
sub do_checkout {
48
sub do_checkout {
49
	my $self = shift;
49
	my $self = shift;
50
	siplog('LOG_DEBUG', "ILS::Transaction::Checkout performing checkout...");
50
	siplog('LOG_DEBUG', "ILS::Transaction::Checkout performing checkout...");
51
	my $shelf          = $self->{item}->hold_attached;
51
    my $shelf          = $self->{item}->hold_attached;
52
	my $barcode        = $self->{item}->id;
52
	my $barcode        = $self->{item}->id;
53
    my $patron         = Koha::Patrons->find($self->{patron}->{borrowernumber});
53
    my $patron         = Koha::Patrons->find($self->{patron}->{borrowernumber});
54
    my $overridden_duedate; # usually passed as undef to AddIssue
54
    my $overridden_duedate; # usually passed as undef to AddIssue
55
- 

Return to bug 12556