diff options
| author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-04-25 00:22:41 +0000 |
|---|---|---|
| committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2006-04-25 00:22:41 +0000 |
| commit | b7f64d884cd8bd8e1d9e8fb75735530d4c8a135d (patch) | |
| tree | e224f6a9e74329e3d5b894a3e885c9a99c3bca5f /IkiWiki/UserInfo.pm | |
| parent | a804c92abd4b0c2955c7d397b7dddc1620249218 (diff) | |
| download | ikiwiki-b7f64d884cd8bd8e1d9e8fb75735530d4c8a135d.tar ikiwiki-b7f64d884cd8bd8e1d9e8fb75735530d4c8a135d.tar.gz | |
subscription nearly done
Diffstat (limited to 'IkiWiki/UserInfo.pm')
| -rw-r--r-- | IkiWiki/UserInfo.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/IkiWiki/UserInfo.pm b/IkiWiki/UserInfo.pm index f4e261563..8c27714b8 100644 --- a/IkiWiki/UserInfo.pm +++ b/IkiWiki/UserInfo.pm @@ -70,12 +70,12 @@ sub page_subscribers (@) { #{{{ my @ret; my $userinfo=userinfo_retrieve(); foreach my $user (keys %{$userinfo}) { - if (exists $user->{subscriptions} && - length $user->{subscriptions} && - exists $user->{email} && - length $user->{email} && - grep { globmatch($_, $user->{subscriptions}) } @_) { - push @ret, $user->{email}; + if (exists $userinfo->{$user}->{subscriptions} && + length $userinfo->{$user}->{subscriptions} && + exists $userinfo->{$user}->{email} && + length $userinfo->{$user}->{email} && + grep { glob_match($_, $userinfo->{$user}->{subscriptions}) } @_) { + push @ret, $userinfo->{$user}->{email}; } } return @ret; |