[ Thread Index |
Date Index
| More vhffs.org/vhffs-dev Archives
]
Revision: 1232
Author: beuss
Date: 2008-06-26 11:47:17 +0200 (Thu, 26 Jun 2008)
Log Message:
-----------
Ooops
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 2008-06-26 09:36:41 UTC (rev 1231)
+++ trunk/vhffs-api/src/Vhffs/Services/MailingList.pm 2008-06-26 09:47:17 UTC (rev 1232)
@@ -199,9 +199,6 @@
my $sql = 'UPDATE vhffs_ml SET prefix = ?, open_archive = ?, reply_to = ?, sub_ctrl = ?, post_ctrl = ?, signature = ? WHERE ml_id = ?';
my $dbh = $self->get_main->get_db_object();
$dbh->do($sql, undef, $self->{prefix}, $self->{open_archive}, $self->{reply_to}, $self->{sub_ctrl}, $self->{post_ctrl}, $self->{signature}, $self->{ml_id});
- open PROUT, '>', '/tmp/prout';
- print PROUT "$sql | ".$self->{prefix}.', '.$self->{open_archive}.', '.$self->{reply_to}.', '.$self->{sub_ctrl}.', '.$self->{post_ctrl}.', '.$self->{signature}.', '.$self->{ml_id};
- close PROUT;
return -3 if( $self->SUPER::commit < 0 );