TagCloud (Keywords.pm)

docs/changelog/7.x.x.txt

@@ -2,6 +2,8 @@
  - Data Forms set reply to to the same as the from field
  - Config file bugs fixed, see gotcha.txt for details.
  - Added export to context menu in asset manager
+ - fix: Empty user-created version tags
+ - fix: TagCloud (Keywords.pm)
  - fix: XHTML 1.0 strict, FileUploadControl.js, resizable textarea
  - fix: undefined activity
  - Polls now use JSON instead of Storable to serialize graph config

lib/WebGUI/Asset.pm

@@ -1859,9 +1859,7 @@ sub processPropertiesFromFormPost {
 				);
 		}
 	}
-    if ($form->process("keywords")) {
-        $data{keywords} = $form->process("keywords");
-    }
+    $data{keywords} = $form->process("keywords");
     if ($self->session->setting->get("metaDataEnabled")) {
         my $meta = $self->getMetaDataFields;
 	    foreach my $field (keys %{$meta}) {

lib/WebGUI/Keyword.pm

@@ -37,8 +37,6 @@ These methods are available from this class:
 
 =cut
 
-# begin inside out object
-{
 
 #-------------------------------------------------------------------
 
@@ -269,18 +267,19 @@ sub setKeywordsForAsset {
     }
     $self->deleteKeywordsForAsset($options->{asset});
     my $assetId = $options->{asset}->getId;
-    my $sth = $self->session->db->prepare("insert into assetKeyword (assetId, keyword) values (?,?)");
-    foreach my $keyword (@{$keywords}) {
-        next if ($keyword eq "");
-        $sth->execute([$assetId, lc($keyword)]);
+    if (scalar(@{$keywords})) {
+        my $sth = $self->session->db->prepare("insert into assetKeyword (assetId, keyword) values (?,?)");
+        foreach my $keyword (@{$keywords}) {
+            next if ($keyword eq "");
+            $sth->execute([$assetId, lc($keyword)]);
+        }
     }
+    else {
+        $self->deleteKeywordsForAsset($options->{asset});
+    }   
 }
 
 
 
-
-# end inside out object
-}
-
 1;