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

(-)a/misc/export_records.pl (-2 / +19 lines)
Lines 32-38 use Koha::CsvProfiles; Link Here
32
use Koha::Exporter::Record;
32
use Koha::Exporter::Record;
33
use Koha::DateUtils qw( dt_from_string output_pref );
33
use Koha::DateUtils qw( dt_from_string output_pref );
34
34
35
my ( $output_format, $timestamp, $dont_export_items, $csv_profile_id, $deleted_barcodes, $clean, $filename, $record_type, $id_list_file, $starting_authid, $ending_authid, $authtype, $starting_biblionumber, $ending_biblionumber, $itemtype, $starting_callnumber, $ending_callnumber, $start_accession, $end_accession, $help );
35
my ( $output_format, $timestamp, $dont_export_items, $csv_profile_id, $deleted_barcodes, $clean, $filename, $record_type, $id_list_file, $starting_authid, $ending_authid, $authtype, $starting_biblionumber, $ending_biblionumber, $itemtype, $starting_callnumber, $ending_callnumber, $start_accession, $end_accession, $homebranch, $holdingbranch, $help );
36
GetOptions(
36
GetOptions(
37
    'format=s'                => \$output_format,
37
    'format=s'                => \$output_format,
38
    'date=s'                  => \$timestamp,
38
    'date=s'                  => \$timestamp,
Lines 53-58 GetOptions( Link Here
53
    'ending_callnumber=s'     => \$ending_callnumber,
53
    'ending_callnumber=s'     => \$ending_callnumber,
54
    'start_accession=s'       => \$start_accession,
54
    'start_accession=s'       => \$start_accession,
55
    'end_accession=s'         => \$end_accession,
55
    'end_accession=s'         => \$end_accession,
56
    'homebranch=s'            => \$homebranch,
57
    'holdingbranch=s'         => \$holdingbranch,
56
    'h|help|?'                => \$help
58
    'h|help|?'                => \$help
57
) || pod2usage(1);
59
) || pod2usage(1);
58
60
Lines 150-155 if ( $record_type eq 'bibs' ) { Link Here
150
                    : ( 'me.itemtype' => $itemtype )
152
                    : ( 'me.itemtype' => $itemtype )
151
                : ()
153
                : ()
152
            ),
154
            ),
155
            ( $homebranch
156
                ? ( "items.homebranch" => $homebranch )
157
                : ()
158
            ),
159
            ( $holdingbranch
160
                ? ( "items.holdingbranch" => $holdingbranch )
161
                : ()
162
            ),
153
163
154
        };
164
        };
155
        my $biblioitems = Koha::Biblioitems->search( $conditions, { join => 'items' } );
165
        my $biblioitems = Koha::Biblioitems->search( $conditions, { join => 'items' } );
Lines 310-315 Print a brief help message. Link Here
310
320
311
 --end_accession=DATE           Export biblio with an item accessionned after DATE
321
 --end_accession=DATE           Export biblio with an item accessionned after DATE
312
322
323
=item B<--homebranch>
324
325
 --homebranch=BRANCHCODE      Export biblio owned by a specific library given by BRANCHCODE
326
327
=item B<--holdingbranch>
328
329
 --holdingbranch=BRANCHCODE    Export biblio hold by a specific library given by BRANCHCODE
330
313
=back
331
=back
314
332
315
=head1 AUTHOR
333
=head1 AUTHOR
316
- 

Return to bug 20465