]> wagnertech.de Git - kivitendo-erp.git/blobdiff - SL/Controller/File.pm
classification_filter ist nicht mehr für Partpicker notwendig
[kivitendo-erp.git] / SL / Controller / File.pm
index 875478fb2f3f9a535910a322afd5dbcec5442589..add213b04b270af20df40a4f4bd7aded4a5b57c9 100644 (file)
@@ -173,21 +173,25 @@ sub action_ajax_rename {
 
   } else {
     # normal rename
 
   } else {
     # normal rename
+    my $res;
+
     eval {
     eval {
-      my $res = $file->rename($::form->{to});
+      $res = $file->rename($::form->{to});
       $main::lxdebug->message(LXDebug->DEBUG2(), "rename result=".$res);
       $main::lxdebug->message(LXDebug->DEBUG2(), "rename result=".$res);
-      if ($res > SL::File::RENAME_OK) {
-        $self->js->flash('error',
-                         $res == SL::File::RENAME_EXISTS      ? $::locale->text('File still exists !')
-                       : $res == SL::File::RENAME_SAME        ? $::locale->text('Same Filename !')
-                       :                                        $::locale->text('File not exists !'))->render;
-        return 1;
-      }
       1;
     } or do {
       $self->js->flash(       'error', t8('internal error (see details)'))
                ->flash_detail('error', $@)->render;
       return;
       1;
     } or do {
       $self->js->flash(       'error', t8('internal error (see details)'))
                ->flash_detail('error', $@)->render;
       return;
+    };
+
+    if ($res != SL::File::RENAME_OK) {
+      $self->js->flash('error',
+                         $res == SL::File::RENAME_EXISTS ? $::locale->text('File still exists !')
+                       : $res == SL::File::RENAME_SAME   ? $::locale->text('Same Filename !')
+                       :                                   $::locale->text('File not exists !'))
+        ->render;
+      return;
     }
   }
   $self->is_global($::form->{is_global});
     }
   }
   $self->is_global($::form->{is_global});
@@ -309,8 +313,8 @@ sub action_download {
 sub check_object_params {
   my ($self) = @_;
 
 sub check_object_params {
   my ($self) = @_;
 
-  my $id = $::form->{object_id} +0;
-  my $draftid = $::form->{draft_id} +0;
+  my $id = ($::form->{object_id} // 0) * 1;
+  my $draftid = ($::form->{draft_id} // 0) * 1;
   my $gldoc = 0;
   my $type = undef;
 
   my $gldoc = 0;
   my $type = undef;