diff options
| author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2007-04-26 23:29:19 +0000 |
|---|---|---|
| committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2007-04-26 23:29:19 +0000 |
| commit | 01f41560e37c0a1182c70c2da23828a1ce06fd61 (patch) | |
| tree | bc62781a5f5589df98c43d2aa98b8fb8273afac2 /IkiWiki/UserInfo.pm | |
| parent | 1fff84233c757d0143ebe25cd1dc606c40b74af9 (diff) | |
| download | ikiwiki-01f41560e37c0a1182c70c2da23828a1ce06fd61.tar ikiwiki-01f41560e37c0a1182c70c2da23828a1ce06fd61.tar.gz | |
* Fix sending of commit mails when new pages are added via the web.
Diffstat (limited to 'IkiWiki/UserInfo.pm')
| -rw-r--r-- | IkiWiki/UserInfo.pm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/IkiWiki/UserInfo.pm b/IkiWiki/UserInfo.pm index ba6f3d3a9..d32f5c1bf 100644 --- a/IkiWiki/UserInfo.pm +++ b/IkiWiki/UserInfo.pm @@ -94,12 +94,8 @@ sub set_banned_users (@) { #{{{ sub commit_notify_list ($@) { #{{{ my $committer=shift; - - my @pages; - foreach my $file (@_) { - push @pages, grep { $pagesources{$_} eq $file } keys %pagesources; - } - + my @pages = map pagename($_), @_; + my @ret; my $userinfo=userinfo_retrieve(); foreach my $user (keys %{$userinfo}) { @@ -108,7 +104,8 @@ sub commit_notify_list ($@) { #{{{ length $userinfo->{$user}->{subscriptions} && exists $userinfo->{$user}->{email} && length $userinfo->{$user}->{email} && - grep { pagespec_match($_, $userinfo->{$user}->{subscriptions}, "") } @pages) { + grep { pagespec_match($_, $userinfo->{$user}->{subscriptions}, "") } + map pagename($_), @_) { push @ret, $userinfo->{$user}->{email}; } } |