summaryrefslogtreecommitdiff
path: root/IkiWiki
diff options
context:
space:
mode:
authorjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2007-04-26 23:29:19 +0000
committerjoey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>2007-04-26 23:29:19 +0000
commit01f41560e37c0a1182c70c2da23828a1ce06fd61 (patch)
treebc62781a5f5589df98c43d2aa98b8fb8273afac2 /IkiWiki
parent1fff84233c757d0143ebe25cd1dc606c40b74af9 (diff)
* Fix sending of commit mails when new pages are added via the web.
Diffstat (limited to 'IkiWiki')
-rw-r--r--IkiWiki/UserInfo.pm11
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};
}
}