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

(-)a/t/lib/TestBuilder.pm (-1 / +16 lines)
Lines 125-130 sub build { Link Here
125
    });
125
    });
126
}
126
}
127
127
128
sub gimme_a_biblio {
129
    my ( $self, $args ) = @_;
130
131
    my $itemtype = $args->{itemtype} || $self->build_object({ class => 'Koha::ItemTypes' })->itemtype;
132
    my $title    = $args->{title}    || 'Some boring read';
133
134
    my $record = MARC::Record->new();
135
    $record->append_fields(
136
        MARC::Field->new( '245', ' ', ' ', a => $title ),
137
        MARC::Field->new( '942', ' ', ' ', c => $itemtype )
138
    );
139
140
    my ($biblio_id) = AddBiblio( $record, '' );
141
    return Koha::Biblios->find($biblio_id);
142
}
143
128
# ------------------------------------------------------------------------------
144
# ------------------------------------------------------------------------------
129
# Internal helper routines
145
# Internal helper routines
130
146
131
- 

Return to bug 21798