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