Lines 83-89
sub process_batch {
Link Here
|
83 |
|
83 |
|
84 |
print "... importing MARC records -- please wait\n"; |
84 |
print "... importing MARC records -- please wait\n"; |
85 |
my ($num_added, $num_updated, $num_items_added, $num_items_replaced, $num_items_errored, $num_ignored) = |
85 |
my ($num_added, $num_updated, $num_items_added, $num_items_replaced, $num_items_errored, $num_ignored) = |
86 |
BatchCommitRecords($import_batch_id, $framework, 100, \&print_progress_and_commit); |
86 |
BatchCommitRecords($import_batch_id, $framework, 100, \&print_progress); |
87 |
print "... finished importing MARC records\n"; |
87 |
print "... finished importing MARC records\n"; |
88 |
|
88 |
|
89 |
print <<_SUMMARY_; |
89 |
print <<_SUMMARY_; |
Lines 120-133
Number of records deleted: $num_deleted
Link Here
|
120 |
Number of errors: $num_errors |
120 |
Number of errors: $num_errors |
121 |
Number of records reverted: $num_reverted |
121 |
Number of records reverted: $num_reverted |
122 |
Number of records ignored: $num_ignored |
122 |
Number of records ignored: $num_ignored |
123 |
Number of items added: $num_items_deleted |
123 |
Number of items deleted: $num_items_deleted |
124 |
|
124 |
|
125 |
_SUMMARY_ |
125 |
_SUMMARY_ |
126 |
} |
126 |
} |
127 |
|
127 |
|
128 |
|
128 |
|
129 |
sub print_progress_and_commit { |
129 |
sub print_progress { |
130 |
my ( $recs, $schema ) = @_; |
130 |
my ( $recs ) = @_; |
131 |
print "... processed $recs records\n"; |
131 |
print "... processed $recs records\n"; |
132 |
} |
132 |
} |
133 |
|
133 |
|