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

(-)a/t/db_dependent/ILSDI_Services.t (-3 / +20 lines)
Lines 34-39 use C4::Reserves qw (AddReserve ModReserve ModReserveAffect ModReserveStatus) Link Here
34
use Koha::AuthUtils;
34
use Koha::AuthUtils;
35
use Koha::DateUtils qw( dt_from_string );
35
use Koha::DateUtils qw( dt_from_string );
36
36
37
use Koha::MarcSubfieldStructures;
38
37
BEGIN {
39
BEGIN {
38
    use_ok(
40
    use_ok(
39
        'C4::ILSDI::Services',
41
        'C4::ILSDI::Services',
Lines 800-806 subtest 'Holds test with start_date and end_date' => sub { Link Here
800
802
801
subtest 'GetRecords' => sub {
803
subtest 'GetRecords' => sub {
802
804
803
    plan tests => 10;
805
    plan tests => 11;
804
806
805
    $schema->storage->txn_begin;
807
    $schema->storage->txn_begin;
806
808
Lines 817-828 subtest 'GetRecords' => sub { Link Here
817
        }
819
        }
818
    );
820
    );
819
821
822
    my $biblio = $builder->build_sample_biblio(
823
        {
824
            title => 'This is an awesome title',
825
        }
826
    );
827
820
    my $item = $builder->build_sample_item(
828
    my $item = $builder->build_sample_item(
821
        {
829
        {
822
            library => $branch1->{branchcode},
830
            biblionumber => $biblio->biblionumber,
831
            library      => $branch1->{branchcode},
823
        }
832
        }
824
    );
833
    );
825
834
835
    my $framework_f245a = Koha::MarcSubfieldStructures->find(
836
        { frameworkcode => $biblio->frameworkcode, tagfield => "245", tagsubfield => "a" } );
837
    $framework_f245a->hidden('8');
838
    $framework_f245a->store();
839
826
    my $patron = $builder->build(
840
    my $patron = $builder->build(
827
        {
841
        {
828
            source => 'Borrower',
842
            source => 'Borrower',
Lines 855-860 subtest 'GetRecords' => sub { Link Here
855
869
856
    my $reply = C4::ILSDI::Services::GetRecords($cgi);
870
    my $reply = C4::ILSDI::Services::GetRecords($cgi);
857
871
872
    my $opac_marcxml  = $reply->{record}->[0]->{marcxml};
873
    my @title_matches = ( $opac_marcxml =~ m/This is an awesome title/g );
874
    is( scalar @title_matches, 0, 'Title hidden in output as expected' );
875
858
    my $transfer = $item->get_transfer;
876
    my $transfer = $item->get_transfer;
859
    my $expected = {
877
    my $expected = {
860
        datesent   => $transfer->datesent,
878
        datesent   => $transfer->datesent,
861
- 

Return to bug 40622