[vhffs-dev] [2004] Minor fix, featuring either 6 parentheses or 1000 elephants, I can' t remember.

[subversion@xxxxxxxxxxxxx]

Revision: 2004
Author:   xavier
Date:     2012-02-11 19:11:40 +0100 (Sat, 11 Feb 2012)
Log Message:
-----------
Minor fix, featuring either 6 parentheses or 1000 elephants, I can't remember.

Modified Paths:
--------------
    trunk/vhffs-api/src/Vhffs/Services/MailingList.pm

Modified: trunk/vhffs-api/src/Vhffs/Services/MailingList.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/MailingList.pm	2012-02-11 17:25:16 UTC (rev 2003)
+++ trunk/vhffs-api/src/Vhffs/Services/MailingList.pm	2012-02-11 18:11:40 UTC (rev 2004)
@@ -259,7 +259,7 @@
     return undef if( $subscriber =~ /.*>.*/ );
     return undef if( $subscriber =~ /.*\s.*/ );
 
-    my $pass = Vhffs::Functions::generate_random_password;
+    my $pass = Vhffs::Functions::generate_random_password();
 
     my $sql = 'INSERT INTO vhffs_ml_subscribers(member, perm, hash, ml_id, language) VALUES(?, ?, ?, ?, NULL)';
     my $dbh = $self->get_main->get_db_object();
@@ -304,7 +304,7 @@
 {
     my $self = shift;
     my $subscriber = shift;
-    my $pass = Vhffs::Functions::generate_random_password;
+    my $pass = Vhffs::Functions::generate_random_password();
 
     my $sql = 'UPDATE vhffs_ml_subscribers SET hash = ? WHERE ml_id = ? AND member = ?';
     return undef unless($self->get_main->get_db_object->do($sql, undef, $pass, $self->{ml_id}, $subscriber) > 0);
@@ -353,7 +353,7 @@
     my $subscriber = shift;
 
     
-    my $hash = Digest::MD5::md5_hex( Vhffs::Functions::generate_random_password );
+    my $hash = Digest::MD5::md5_hex( Vhffs::Functions::generate_random_password() );
 
     my $sql = 'UPDATE vhffs_ml_subscribers SET perm = ?, hash = ? WHERE ml_id = ? AND member = ? AND perm IN (?, ?)';
     # FIXME we should return a boolean