| line |
true |
false |
branch |
|
45
|
0 |
0 |
if $invalid |
|
66
|
0 |
0 |
if ($self->{'cfg'}->get('fields_autoNum')) |
|
76
|
0 |
0 |
if (not $remote_name and $self->{'req'}) |
|
78
|
0 |
0 |
if $upload |
|
80
|
0 |
0 |
if ($remote_name) { } |
|
96
|
0 |
0 |
if ($self->{'modperl'}) { } |
|
100
|
0 |
0 |
unless my $upld = $req->upload($field) |
|
111
|
0 |
0 |
unless @upld_fh < 2 |
|
114
|
0 |
0 |
unless open $src_fh, "<$upld_fh[0]" |
|
125
|
0 |
0 |
unless not -e $path or $path eq $old_path |
|
129
|
0 |
0 |
if exists $self->{'results'}{'uploaded'}{$path} |
|
138
|
0 |
0 |
unless -d $dir |
|
140
|
0 |
0 |
unless open my $dest_fh, ">$path.new" |
|
162
|
0 |
0 |
if $old_path |
|
165
|
0 |
0 |
unless rename "$path.new", "$path" |
|
167
|
0 |
0 |
if ($old_path) |
|
168
|
0 |
0 |
if ($old_path eq $path) { } |
|
173
|
0 |
0 |
$unlink_ok ? : |
|
207
|
0 |
0 |
unless my $path = $self->upload_fullpath($record, $field) |
|
212
|
0 |
0 |
$unlink_ok ? : |
|
234
|
0 |
0 |
unless $record->{$field} |
|
240
|
0 |
0 |
&looks_like_number($key) ? : |
|
252
|
0 |
0 |
$path ? : |