view release on metacpan or  search on metacpan

Mercury.pm  view on Meta::CPAN

    # this is the only filter, add filter checks as filters are created
    if ($self->{user_manager}->mail_trans_filter eq $old_box) {
	# set transaction filter back to 'inbox'
	unless ($self->{user_manager}->mail_trans_filter('inbox')) {
	    $self->warn("->remove_filters_for($old_box) FAILED!");
	}
    }
}

sub update_auto_forward {
    my ($self) = @_;
    my $q = $self->{q};

    $self->{user_manager}->auto_forward('low', $q->param('forward_low'));
    $self->{user_manager}->auto_forward('medium', $q->param('forward_medium'));
    $self->{user_manager}->auto_forward('high', $q->param('forward_high'));
}


sub count_unread {

Mercury/Message/Attachment.pm  view on Meta::CPAN

	$sth2->finish;
	$dbh->disconnect;
    };
    if ($@) {
	$self->log_error($@);
	return undef;
    }
    return $self;
}

sub update_messages_containing {
    my ($self) = @_;

    unless (defined $self->{'AttachmentID'} and
	    ref $self->{'MessageIDs'} eq "HASH") {
	$self->log_error("->update_messages_containing: an AttachmentID or Filename is required for retrieval");
	return undef;
    }

    eval {
	my $dbh = DBI->connect(Apache::App::Mercury::Config::DBI_CONNECT_STR(),