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