dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix notification SOAP webservice (coudot)

Browse Source
This commit is contained in:
Sandro Cazzaniga 2012-08-31 10:43:01 +00:00
parent ebde8b126e
commit 8418a0a293
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lemonldap-ng-common/lib/Lemonldap/NG/Common/Notification.pm
View File

@ -394,7 +394,7 @@ sub newNotification {
## @return number of deleted notifications
sub deleteNotification {
my ( $self, $uid, $myref ) = splice @_;
my ( @files, @data );
my @data;
# Check input parameters
unless ( $uid and $myref ) {
@ -403,21 +403,23 @@ sub deleteNotification {
'error' );
return 0;
}
$self->lmLog(
"SOAP service deleteNotification called for uid $uid and reference $myref",
'debug'
);
# Get notifications
my $user = $self->_get($uid);
my $n = $user;
# Return 0 if no files were found
return 0 unless ($n);
@files = map { $n->{$_} } sort keys %$user;
return 0 unless ($user);
# Counting
my $count = 0;
foreach my $file (@files) {
my $xml = $parser->parse_string($file);
foreach my $ref ( keys %$user ) {
my $xml = $parser->parse_string($user->{$ref});
# Browse notification in file
foreach my $notif (