| line |
true |
false |
branch |
|
88
|
0 |
0 |
if ($$dbh{'Driver'}{'Name'} eq 'SQLite') |
|
98
|
0 |
0 |
if ($@) |
|
291
|
0 |
0 |
if $pdbh->err |
|
292
|
0 |
0 |
unless (defined $doc) |
|
299
|
0 |
0 |
if $pdbh->err |
|
300
|
0 |
0 |
unless (defined $p1) |
|
306
|
0 |
0 |
if $pdbh->err |
|
307
|
0 |
0 |
unless (defined $ps) |
|
315
|
0 |
0 |
unless my $sth = $pdbh->prepare('SELECT * FROM EDTK_SUPPORTS WHERE ED_REFIMP = ?') |
|
322
|
0 |
0 |
unless my $enc = $pdbh->selectrow_hashref($sth, undef, $encref) |
|
324
|
0 |
0 |
if (defined $$enc{'ED_DEBVALID'} and length $$enc{'ED_DEBVALID'} > 0 and $$enc{'ED_DEBVALID'} ne '99999999') |
|
325
|
0 |
0 |
if $now < $$enc{'ED_DEBVALID'} |
|
327
|
0 |
0 |
if (defined $$enc{'ED_FINVALID'} and length $$enc{'ED_FINVALID'} > 0) |
|
328
|
0 |
0 |
if $now > $$enc{'ED_FINVALID'} |
|
345
|
0 |
0 |
unless open my $fh, '<', $in |
|
364
|
0 |
0 |
if (length $data[4] > 10) |
|
370
|
0 |
0 |
if (length $data[5] > 30) |
|
375
|
0 |
0 |
if (length $data[7] > 38) |
|
381
|
0 |
0 |
unless defined $idldoc |
|
385
|
0 |
0 |
if ($first) { } |
|
393
|
0 |
0 |
$first ? : |
|
|
0 |
0 |
$first ? : |
|
445
|
0 |
0 |
if (length $$entry{'ED_REFIMP'} == 0) |
|
446
|
0 |
0 |
$first ? : |
|
459
|
0 |
0 |
if ($@) |
|
512
|
0 |
0 |
if ($$lot{'ED_REFIDDOC'} =~ /\%/) { } |
|
519
|
0 |
0 |
if (defined $$lot{'ED_CPDEST'}) |
|
523
|
0 |
0 |
if (defined $$lot{'ED_FILTER'} and $$lot{'ED_FILTER'} =~ /\=/) |
|
529
|
0 |
0 |
if ($num > 0) |
|
537
|
0 |
0 |
if ($num > 0) |
|
547
|
0 |
0 |
unless my($ed_priorite, $ed_idmanufact, $ed_typed, $ed_modedi, $ed_idgplot, $ed_nbbacprn) = $pdbh->selectrow_array('select ED_PRIORITE, ED_IDMANUFACT, ED_TYPED, ED_MODEDI, ED_IDGPLOT, ED_NBBACPRN from EDTK_FILIERES where ED_IDFILIERE =? ', undef, $filiere) |
|
566
|
0 |
0 |
unless my $doc = $pdbh->selectrow_hashref('SELECT * FROM EDTK_REFIDDOC WHERE ED_REFIDDOC = ?', undef, $app) |
|
583
|
0 |
0 |
unless my $p1 = $pdbh->selectrow_hashref('SELECT * FROM EDTK_SUPPORTS WHERE ED_REFIMP = ?', undef, $$doc{'ED_REFIMP_P1'}) |
|
585
|
0 |
0 |
unless my $ps = $pdbh->selectrow_hashref('SELECT * FROM EDTK_SUPPORTS WHERE ED_REFIMP = ?', undef, $$doc{'ED_REFIMP_PS'}) |
|
595
|
0 |
0 |
unless my $lot = $pdbh->selectrow_hashref('SELECT * FROM EDTK_LOTS WHERE ED_IDLOT = ?', undef, $lotid) |
|
602
|
0 |
0 |
unless my $sth = $pdbh->prepare($sql) |
|
610
|
0 |
0 |
if (defined $$fil{'ED_IDGPLOT'} and length $$fil{'ED_IDGPLOT'} > 0) |
|
611
|
0 |
0 |
if ($$lot{'ED_IDGPLOT'} ne $$fil{'ED_IDGPLOT'} and $$fil{'ED_IDGPLOT'} ne '%') |
|
616
|
0 |
0 |
if (defined $$fil{'ED_NBENCMAX'} and length $$fil{'ED_NBENCMAX'} > 0) |
|
617
|
0 |
0 |
if $numencs > $$fil{'ED_NBENCMAX'} |
|
621
|
0 |
0 |
$$fil{'ED_MODEDI'} eq 'V' ? : |
|
634
|
0 |
0 |
if (defined $$fil{'ED_POIDS_PLI'} and length $$fil{'ED_POIDS_PLI'} > 0) |
|
638
|
0 |
0 |
if (defined $$fil{'ED_FEUILPLI'} and length $$fil{'ED_FEUILPLI'} > 0) |
|
643
|
0 |
0 |
if ($num > 0) |
|
672
|
0 |
0 |
if (length $user_where > 0) |
|
686
|
0 |
0 |
if (length $user_where > 0) |
|
705
|
0 |
0 |
if (defined $$lot{'ED_GROUPBY'} and length $$lot{'ED_GROUPBY'} > 0) |
|
716
|
0 |
0 |
if (keys %$gvals > 0) |
|
720
|
0 |
0 |
if (defined $$gvals{$key}) { } |
|
734
|
0 |
0 |
if @$res == 0 |
|
746
|
0 |
0 |
if (defined $$fil{'ED_MAXPLIS'} and $availplis > $$fil{'ED_MAXPLIS'}) |
|
751
|
0 |
0 |
if (defined $$fil{'ED_MAXFEUIL_L'}) |
|
753
|
0 |
0 |
if ($$fil{'ED_MODEDI'} eq 'V') |
|
756
|
0 |
0 |
if ($availpgs > $maxpgs) |
|
769
|
0 |
0 |
if $availplis == 0 or $availpgs == 0 |
|
773
|
0 |
0 |
if $availpgs < $nbpgpli |
|
776
|
0 |
0 |
if ($nbplis > $availplis) |
|
779
|
0 |
0 |
if ($nbplis > $numplis) |
|
794
|
0 |
0 |
if ($selpgs < $min_feuilles) |
|
812
|
0 |
0 |
if ($selplis < $minplis) |
|
835
|
0 |
0 |
if (defined $$fil{'ED_SORT'} and length $$fil{'ED_SORT'} > 0) { } |
|
837
|
0 |
0 |
if (defined $$fil{'ED_DIRECTION'} and length $$fil{'ED_DIRECTION'} > 0) |
|
867
|
0 |
0 |
if ($count != $pages) |
|
899
|
0 |
0 |
if ($$fil{'ED_MODEDI'} ne 'R') |
|
904
|
0 |
0 |
unless mkdir "$lotdir" |
|
912
|
0 |
0 |
unless open my $fh, ">$lotdir/$file" |
|
922
|
0 |
0 |
unless defined $doclib |
|
964
|
0 |
0 |
unless open $fh, ">$lotdir/$file" |
|
975
|
0 |
0 |
if $more |
|
980
|
0 |
0 |
if ($@) |
|
993
|
0 |
0 |
unless $dt_depot =~ /^\d{8}$/ |
|
996
|
0 |
0 |
unless $dbh->do($sql, undef, $dt_depot, $seqlot) |
|
1006
|
0 |
0 |
if ($value =~ /^\d{6,7}$/) { } |
|
|
0 |
0 |
elsif ($value =~ /^\d{16}$/) { } |
|
1010
|
0 |
0 |
unless $dbh->do($sql, undef, $value) |
|
1017
|
0 |
0 |
unless $dbh->do($sql, undef, $value) |
|
1021
|
0 |
0 |
unless $dbh->do($sql, undef, $value) |
|
1045
|
0 |
0 |
if ($value =~ /^\d{6,7}$/) { } |
|
|
0 |
0 |
elsif ($value =~ /^\d{16}$/) { } |
|
1054
|
0 |
0 |
if (defined $idseqpg and $idseqpg > 0) |
|
1064
|
0 |
0 |
if (defined $idseqpg and $idseqpg > 0) { } |
|
1071
|
0 |
0 |
if ($#$rows < 0) |
|
1116
|
0 |
0 |
if ($period =~ /^day$/i) { } |
|
|
0 |
0 |
elsif ($period =~ /^week$/i) { } |
|
|
0 |
0 |
elsif ($period =~ /^all$/i) { } |
|
|
0 |
0 |
elsif ($period =~ /^\d+$/) { } |
|
1129
|
0 |
0 |
if (not $typeRqt =~ /idlot/i) { } |
|
1142
|
0 |
0 |
if (not $typeRqt =~ /idlot/i) { } |
|
1156
|
0 |
0 |
if (not $typeRqt =~ /idlot/i) { } |
|
1220
|
0 |
0 |
if (-e "$dir/$key") { } |
|
1239
|
0 |
0 |
if (not defined $$cfg{'EDTK_DCLIB_PURGE_WEEKS_KEPT'} && $$cfg{'EDTK_DCLIB_PURGE_WEEKS_KEPT'} > 0) { } |
|
1259
|
0 |
0 |
if ($file =~ /^DCLIB_/) { } |
|
1260
|
0 |
0 |
unless ($needed{$file}) |
|
1281
|
0 |
0 |
if ($$dbh{'Driver'}{'Name'} eq 'Oracle') { } |
|
1321
|
0 |
0 |
if defined $$rTab[$i][$j] |