oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

TagCloud (Keywords.pm)

Browse source
This commit is contained in:
JT Smith 2007-08-14 19:42:11 +00:00
parent 155ca81291
commit 2879033a8d
3 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
docs/changelog/7.x.x.txt
View file

@ -2,6 +2,8 @@
- Data Forms set reply to to the same as the from field - Data Forms set reply to to the same as the from field
- Config file bugs fixed, see gotcha.txt for details. - Config file bugs fixed, see gotcha.txt for details.
- Added export to context menu in asset manager - 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: XHTML 1.0 strict, FileUploadControl.js, resizable textarea
- fix: undefined activity - fix: undefined activity
- Polls now use JSON instead of Storable to serialize graph config - Polls now use JSON instead of Storable to serialize graph config

4
lib/WebGUI/Asset.pm
View file

@ -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")) { if ($self->session->setting->get("metaDataEnabled")) {
my $meta = $self->getMetaDataFields; my $meta = $self->getMetaDataFields;
foreach my $field (keys %{$meta}) { foreach my $field (keys %{$meta}) {

19
lib/WebGUI/Keyword.pm
View file

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