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

(-)a/C4/Acquisition.pm (-1 / +1 lines)
Lines 2437-2443 sub GetHistory { Link Here
2437
2437
2438
  $results = GetRecentAcqui($days);
2438
  $results = GetRecentAcqui($days);
2439
2439
2440
C<$results> is a ref to a table which containts hashref
2440
C<$results> is a ref to a table which contains hashref
2441
2441
2442
=cut
2442
=cut
2443
2443
(-)a/C4/Biblio.pm (-2 / +2 lines)
Lines 1053-1059 in tab 0-9. (used field) Link Here
1053
1053
1054
  my $results = GetUsedMarcStructure($frameworkcode);
1054
  my $results = GetUsedMarcStructure($frameworkcode);
1055
1055
1056
C<$results> is a ref to an array which each case containts a ref
1056
C<$results> is a ref to an array which each case contains a ref
1057
to a hash which each keys is the columns from marc_subfield_structure
1057
to a hash which each keys is the columns from marc_subfield_structure
1058
1058
1059
C<$frameworkcode> is the framework code. 
1059
C<$frameworkcode> is the framework code. 
Lines 2423-2429 sub _default_ind_to_space { Link Here
2423
=head2 TransformHtmlToMarc
2423
=head2 TransformHtmlToMarc
2424
2424
2425
    L<$record> = TransformHtmlToMarc(L<$cgi>)
2425
    L<$record> = TransformHtmlToMarc(L<$cgi>)
2426
    L<$cgi> is the CGI object which containts the values for subfields
2426
    L<$cgi> is the CGI object which contains the values for subfields
2427
    {
2427
    {
2428
        'tag_010_indicator1_531951' ,
2428
        'tag_010_indicator1_531951' ,
2429
        'tag_010_indicator2_531951' ,
2429
        'tag_010_indicator2_531951' ,
(-)a/C4/Circulation.pm (-1 / +1 lines)
Lines 2496-2502 sub GetOpenIssue { Link Here
2496
this function get all issues from a biblionumber.
2496
this function get all issues from a biblionumber.
2497
2497
2498
Return:
2498
Return:
2499
C<$issues> is a reference to array which each value is ref-to-hash. This ref-to-hash containts all column from
2499
C<$issues> is a reference to array which each value is ref-to-hash. This ref-to-hash contains all column from
2500
tables issues and the firstname,surname & cardnumber from borrowers.
2500
tables issues and the firstname,surname & cardnumber from borrowers.
2501
2501
2502
=cut
2502
=cut
(-)a/C4/Log.pm (-1 / +1 lines)
Lines 230-236 sub displaylog { Link Here
230
$logs = GetLogs($datefrom,$dateto,$user,\@modules,$action,$object,$info);
230
$logs = GetLogs($datefrom,$dateto,$user,\@modules,$action,$object,$info);
231
231
232
Return:
232
Return:
233
C<$logs> is a ref to a hash which containts all columns from action_logs
233
C<$logs> is a ref to a hash which contains all columns from action_logs
234
234
235
=cut
235
=cut
236
236
(-)a/C4/NewsChannels.pm (-1 / +1 lines)
Lines 182-188 sub get_opac_news { Link Here
182
=head2 GetNewsToDisplay
182
=head2 GetNewsToDisplay
183
183
184
    $news = &GetNewsToDisplay($lang,$branch);
184
    $news = &GetNewsToDisplay($lang,$branch);
185
    C<$news> is a ref to an array which containts
185
    C<$news> is a ref to an array which contains
186
    all news with expirationdate > today or expirationdate is null
186
    all news with expirationdate > today or expirationdate is null
187
    that is applicable for a given branch.
187
    that is applicable for a given branch.
188
188
(-)a/C4/Serials.pm (-1 / +1 lines)
Lines 265-271 sub AddItem2Serial { Link Here
265
$subs = GetSubscription($subscriptionid)
265
$subs = GetSubscription($subscriptionid)
266
this function returns the subscription which has $subscriptionid as id.
266
this function returns the subscription which has $subscriptionid as id.
267
return :
267
return :
268
a hashref. This hash containts
268
a hashref. This hash contains
269
subscription, subscriptionhistory, aqbooksellers.name, biblio.title
269
subscription, subscriptionhistory, aqbooksellers.name, biblio.title
270
270
271
=cut
271
=cut
(-)a/Koha/List/Patron.pm (-1 / +1 lines)
Lines 19-25 package Koha::List::Patron; Link Here
19
19
20
=head1 NAME
20
=head1 NAME
21
21
22
Koha::List::Patron - Managment of lists of patrons
22
Koha::List::Patron - Management of lists of patrons
23
23
24
=head1 FUNCTIONS
24
=head1 FUNCTIONS
25
25
(-)a/authorities/authorities.pl (-1 / +1 lines)
Lines 320-326 sub CreateKey { Link Here
320
320
321
=item GetMandatoryFieldZ3950
321
=item GetMandatoryFieldZ3950
322
322
323
    This function return an hashref which containts all mandatory field
323
    This function return an hashref which contains all mandatory field
324
    to search with z3950 server.
324
    to search with z3950 server.
325
325
326
=cut
326
=cut
(-)a/cataloguing/addbiblio.pl (-1 / +1 lines)
Lines 253-259 sub CreateKey { Link Here
253
253
254
=head2 GetMandatoryFieldZ3950
254
=head2 GetMandatoryFieldZ3950
255
255
256
    This function return an hashref which containts all mandatory field
256
    This function return an hashref which contains all mandatory field
257
    to search with z3950 server.
257
    to search with z3950 server.
258
258
259
=cut
259
=cut
(-)a/t/db_dependent/ArticleRequests.t (-3 / +3 lines)
Lines 93-101 is( $article_request->status, Koha::ArticleRequest::Status::Canceled, '$ar->comp Link Here
93
$article_request->status(Koha::ArticleRequest::Status::Pending);
93
$article_request->status(Koha::ArticleRequest::Status::Pending);
94
$article_request->store();
94
$article_request->store();
95
95
96
is( $article_request->biblio->id,   $biblio->id, '$ar->biblio() gets corrosponding Koha::Biblio object' );
96
is( $article_request->biblio->id,   $biblio->id, '$ar->biblio() gets corresponding Koha::Biblio object' );
97
is( $article_request->item->id,     $item->id,   '$ar->item() gets corrosponding Koha::Item object' );
97
is( $article_request->item->id,     $item->id,   '$ar->item() gets corresponding Koha::Item object' );
98
is( $article_request->borrower->id, $patron->id, '$ar->borrower() gets corrosponding Koha::Patron object' );
98
is( $article_request->borrower->id, $patron->id, '$ar->borrower() gets corresponding Koha::Patron object' );
99
99
100
my $ar = $patron->article_requests();
100
my $ar = $patron->article_requests();
101
is( ref($ar),      'Koha::ArticleRequests', '$patron->article_requests returns Koha::ArticleRequests object' );
101
is( ref($ar),      'Koha::ArticleRequests', '$patron->article_requests returns Koha::ArticleRequests object' );
(-)a/t/db_dependent/Holds.t (-3 / +3 lines)
Lines 362-379 $dbh->do(q{ Link Here
362
($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem(
362
($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem(
363
    { homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CANNOT' } , $bibnum);
363
    { homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CANNOT' } , $bibnum);
364
is(CanItemBeReserved($borrowernumbers[0], $itemnumber), 'notReservable',
364
is(CanItemBeReserved($borrowernumbers[0], $itemnumber), 'notReservable',
365
    "CanItemBeReserved should returns 'notReservable'");
365
    "CanItemBeReserved should return 'notReservable'");
366
366
367
($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem(
367
($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem(
368
    { homebranch => $branch_2, holdingbranch => $branch_1, itype => 'CAN' } , $bibnum);
368
    { homebranch => $branch_2, holdingbranch => $branch_1, itype => 'CAN' } , $bibnum);
369
is(CanItemBeReserved($borrowernumbers[0], $itemnumber),
369
is(CanItemBeReserved($borrowernumbers[0], $itemnumber),
370
    'cannotReserveFromOtherBranches',
370
    'cannotReserveFromOtherBranches',
371
    "CanItemBeReserved should returns 'cannotReserveFromOtherBranches'");
371
    "CanItemBeReserved should return 'cannotReserveFromOtherBranches'");
372
372
373
($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem(
373
($item_bibnum, $item_bibitemnum, $itemnumber) = AddItem(
374
    { homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CAN' } , $bibnum);
374
    { homebranch => $branch_1, holdingbranch => $branch_1, itype => 'CAN' } , $bibnum);
375
is(CanItemBeReserved($borrowernumbers[0], $itemnumber), 'OK',
375
is(CanItemBeReserved($borrowernumbers[0], $itemnumber), 'OK',
376
    "CanItemBeReserved should returns 'OK'");
376
    "CanItemBeReserved should return 'OK'");
377
377
378
# Bug 12632
378
# Bug 12632
379
t::lib::Mocks::mock_preference( 'item-level_itypes',     1 );
379
t::lib::Mocks::mock_preference( 'item-level_itypes',     1 );
(-)a/t/db_dependent/Items.t (-3 / +2 lines)
Lines 95-104 subtest 'General Add, Get and Del tests' => sub { Link Here
95
95
96
    t::lib::Mocks::mock_preference('item-level_itypes', '1');
96
    t::lib::Mocks::mock_preference('item-level_itypes', '1');
97
    $getitem = GetItem($itemnumber);
97
    $getitem = GetItem($itemnumber);
98
    is( $getitem->{itype}, $itemtype->{itemtype}, "Itemtype set correctly when using item_level-itypes" );
98
    is( $getitem->{itype}, $itemtype->{itemtype}, "Itemtype set correctly when using item-level_itypes" );
99
    t::lib::Mocks::mock_preference('item-level_itypes', '0');
99
    t::lib::Mocks::mock_preference('item-level_itypes', '0');
100
    $getitem = GetItem($itemnumber);
100
    $getitem = GetItem($itemnumber);
101
    is( $getitem->{itype}, undef, "Itemtype set correctly when not using item_level-itypes" );
101
    is( $getitem->{itype}, undef, "Itemtype set correctly when not using item-level_itypes" );
102
102
103
    $schema->storage->txn_rollback;
103
    $schema->storage->txn_rollback;
104
};
104
};
105
- 

Return to bug 19528