|
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 |
|