% $act = 'purged' if($attachnum and $purge);
% $act = 'undeleted' if($attachnum and $undelete);
% $act = 'deleted' if($attachnum and $delete);
% $act = 'purged' if($attachnum and $purge);
% $act = 'undeleted' if($attachnum and $undelete);
% $act = 'deleted' if($attachnum and $delete);
('_date', 'otaker', 'body', 'disabled');
$new->filename($filename || $old->filename);
$new->mime_type($cgi->param('mime_type') || $old->mime_type);
('_date', 'otaker', 'body', 'disabled');
$new->filename($filename || $old->filename);
$new->mime_type($cgi->param('mime_type') || $old->mime_type);
if($filename) {
$new->filename($filename);
# use the original filename here, not the stripped form
if($filename) {
$new->filename($filename);
# use the original filename here, not the stripped form
- $new->mime_type($cgi->uploadInfo($cgi->param('file'))->{'Content-Type'});
- $new->title($cgi->param('title'));
+ $new->mime_type(
+ $cgi->uploadInfo( scalar($cgi->param('file')) )->{'Content-Type'}
+ );
+ $new->title( scalar($cgi->param('title')) );