|
Lines 78-85
sub delete {
Link Here
|
| 78 |
return $retval if $params->{keep_file}; |
78 |
return $retval if $params->{keep_file}; |
| 79 |
|
79 |
|
| 80 |
if( ! -e $file ) { |
80 |
if( ! -e $file ) { |
| 81 |
warn "Removing record for $name within category ". |
81 |
if ( $self->permanent ) { |
| 82 |
$self->uploadcategorycode. ", but file was missing."; |
82 |
warn "Removing record for $name within category ". |
|
|
83 |
$self->uploadcategorycode. ", but file was missing."; |
| 84 |
} |
| 83 |
} elsif( ! unlink($file) ) { |
85 |
} elsif( ! unlink($file) ) { |
| 84 |
warn "Problem while deleting: $file"; |
86 |
warn "Problem while deleting: $file"; |
| 85 |
} |
87 |
} |
| 86 |
- |
|
|