|
Lines 84-90
if ($version || ($input_marc_file eq '')) {
Link Here
|
| 84 |
pod2usage( -verbose => 2 ); |
84 |
pod2usage( -verbose => 2 ); |
| 85 |
exit; |
85 |
exit; |
| 86 |
} |
86 |
} |
| 87 |
|
87 |
my $dbh = C4::Context->dbh; |
| 88 |
my $heading_fields=get_heading_fields(); |
88 |
my $heading_fields=get_heading_fields(); |
| 89 |
|
89 |
|
| 90 |
if (defined $idmapfl) { |
90 |
if (defined $idmapfl) { |
|
Lines 96-103
if ((not defined $sourcesubfield) && (not defined $sourcetag)){
Link Here
|
| 96 |
$sourcesubfield="a"; |
96 |
$sourcesubfield="a"; |
| 97 |
} |
97 |
} |
| 98 |
|
98 |
|
| 99 |
my $dbh = C4::Context->dbh; |
|
|
| 100 |
|
| 101 |
# save the CataloguingLog property : we don't want to log a bulkmarcimport. It will slow the import & |
99 |
# save the CataloguingLog property : we don't want to log a bulkmarcimport. It will slow the import & |
| 102 |
# will create problems in the action_logs table, that can't handle more than 1 entry per second per user. |
100 |
# will create problems in the action_logs table, that can't handle more than 1 entry per second per user. |
| 103 |
my $CataloguingLog = C4::Context->preference('CataloguingLog'); |
101 |
my $CataloguingLog = C4::Context->preference('CataloguingLog'); |
| 104 |
- |
|
|