fix stupidity - any non-tags image field change would crash

diff --git a/site/cgi-bin/modules/BSE/Edit/Article.pm b/site/cgi-bin/modules/BSE/Edit/Article.pm
index 63d60fd46569e73daeb7898381fdc308dce7c73d..7a7581120059088a9329045bcdf154cabd867d35 100644 (file)
--- a/site/cgi-bin/modules/BSE/Edit/Article.pm
+++ b/site/cgi-bin/modules/BSE/Edit/Article.pm
@@ -16,7 +16,7 @@ use List::Util qw(first);
 use constant MAX_FILE_DISPLAYNAME_LENGTH => 255;
 use constant ARTICLE_CUSTOM_FIELDS_CFG => "article custom fields";
 
-our $VERSION = "1.057";
+our $VERSION = "1.058";
 
 =head1 NAME
 
@@ -3279,12 +3279,12 @@ sub save_image_changes {
       my $changes = $changes{$id};
       ++$changes_found;
 
+      my $tags = delete $changes->{tags};
+      if ($tags) {
+       my $error;
+       $image->set_tags($tags, \$error);
+      }
       for my $field (keys %$changes) {
-       my $tags = delete $changes->{$field};
-       if ($tags) {
-         my $error;
-         $image->set_tags($tags, \$error);
-       }
        $image->{$field} = $changes->{$field};
       }
       $image->save;