GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

FactoidCommands: factundo/factlog can now express deleted metadata keys

This commit is contained in:
Pragmatic Software 2019-06-02 16:21:42 -07:00
parent 77a9d1b02c
commit 47c05cfdac
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
PBot/FactoidCommands.pm
View File

@ -260,7 +260,6 @@ sub hash_differences_as_string {
my ($self, $old, $new) = @_;
my @exclude = qw/created_on last_referenced_in last_referenced_on ref_count ref_user edited_by edited_on/;
my %diff;
foreach my $key (keys %$new) {
@ -271,6 +270,13 @@ sub hash_differences_as_string {
}
}
foreach my $key (keys %$old) {
next if grep { $key eq $_ } @exclude;
if (not exists $new->{$key}) {
$diff{"deleted $key"} = undef;
}
}
if (not keys %diff) {
return "No change.";
@ -280,7 +286,11 @@ sub hash_differences_as_string {
my $comma = "";
foreach my $key (sort keys %diff) {
$changes .= "$comma$key => $diff{$key}";
if (defined $diff{$key}) {
$changes .= "$comma$key => $diff{$key}";
} else {
$changes .= "$comma$key";
}
$comma = ", ";
}