| line |
true |
false |
branch |
|
52
|
0 |
0 |
unless my $dsn = delete $db_connection->{'dsn'} |
|
60
|
0 |
0 |
unless $self->{'dbh'} = 'DBI'->connect($dsn, $login, $password, $params{'additional_connection_params'}) |
|
73
|
0 |
0 |
unless opendir my $dh, $directory |
|
78
|
0 |
0 |
if $file =~ /\.[Dd][Bb][Ff]$/ |
|
102
|
0 |
0 |
if $dbf_file_name =~ /^D/ or $sql_table_name eq 'NORDOC' or $sql_table_name eq 'STEAD' or $sql_table_name eq 'NDOCTYPE' |
|
108
|
0 |
0 |
unless my $table = 'XBase'->new("$directory/$dbf_file_name") |
|
122
|
0 |
0 |
if ($update_flag) |
|
140
|
0 |
0 |
unless _check_record_actuality($record) |
|
145
|
0 |
0 |
if (scalar @sqldata and not scalar @sqldata % 5000 or $all_records == $index_of_last_record) |
|
147
|
0 |
0 |
unless $dbh->do("REPLACE INTO $sql_table $fields_for_insert VALUES " . join(',', @sqldata)) |
|
157
|
0 |
0 |
if ($update_flag) |
|
160
|
0 |
0 |
unless $dbh->do("DROP TABLE $table") |
|
161
|
0 |
0 |
unless $dbh->do("ALTER TABLE $tmp_table RENAME $table") |
|
178
|
0 |
0 |
if $params{'aolevel'} and not $$LEVELS{$params{'aolevel'}} |
|
183
|
0 |
0 |
if $params{'aolevel'} |
|
188
|
0 |
0 |
if $aolevel or $parentguid |
|
192
|
0 |
0 |
if ($aolevel) |
|
197
|
0 |
0 |
if ($parentguid) |
|
199
|
0 |
0 |
if (ref $parentguid eq 'ARRAY') { } |
|
213
|
0 |
0 |
ref $parentguid eq 'ARRAY' ? : |
|
227
|
0 |
0 |
unless $parentguid |
|
242
|
0 |
0 |
unless $aoguid |
|
253
|
0 |
0 |
unless $aoguid |
|
267
|
0 |
0 |
unless $self->{'dbh'}->do("INSERT INTO $table VALUES($values_string)") |
|
277
|
0 |
0 |
if $aoguid |
|
281
|
0 |
0 |
if ($aoguid) |
|
282
|
0 |
0 |
if (ref $aoguid eq 'ARRAY') { } |
|
295
|
0 |
0 |
ref $aoguid eq 'ARRAY' ? : |
|
303
|
0 |
0 |
unless $houseguid |
|
321
|
0 |
0 |
unless $houseguid |
|
327
|
0 |
0 |
if (ref $houseguid eq 'ARRAY') { } |
|
339
|
0 |
0 |
ref $houseguid eq 'ARRAY' ? : |
|
346
|
0 |
0 |
unless $roomguid |
|
367
|
0 |
0 |
unless $aoguid |
|
374
|
0 |
0 |
unless $ao_data |
|
390
|
0 |
0 |
unless $houseguid |
|
396
|
0 |
0 |
unless $house_data |
|
408
|
0 |
0 |
unless $roomguid |
|
414
|
0 |
0 |
unless $room_data |
|
427
|
0 |
0 |
unless $dbh->do(q[CREATE TABLE IF NOT EXISTS version ( database_version INT (8), restriction ENUM('') PRIMARY KEY )]) |
|
429
|
0 |
0 |
unless $dbh->do("REPLACE INTO version (database_version) VALUES ( $version )") |
|
484
|
0 |
0 |
if exists $record->{'ACTSTATUS'} and not $record->{'ACTSTATUS'} or exists $record->{'LIVESTATUS'} and not $record->{'LIVESTATUS'} or $record->{'NEXTID'} or exists $record->{'ENDDATE'} and $record->{'ENDDATE'} ne '20790606' |
|
513
|
0 |
0 |
if $table_config->{$sql_table_name} |
|
539
|
0 |
0 |
if ($type eq 'C') { } |
|
|
0 |
0 |
elsif ($type eq 'D') { } |
|
|
0 |
0 |
elsif ($type eq 'N') { } |
|
559
|
0 |
0 |
if ($sql_table_name =~ /^house\_?$/) { } |
|
|
0 |
0 |
elsif ($sql_table_name =~ /^room\_?$/) { } |
|
|
0 |
0 |
elsif ($sql_table_name =~ /^addrob\_?$/) { } |
|
586
|
0 |
0 |
if ($type eq 'C') { } |
|
|
0 |
0 |
elsif ($type eq 'D') { } |
|
|
0 |
0 |
elsif ($type eq 'N') { } |
|
593
|
0 |
0 |
$record->{$name} ? : |
|
610
|
0 |
0 |
if length $date < 8 |