Mailing-List: contact modperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (asf.osuosl.org: domain of tagireddy@gmail.com designates
 64.233.184.198 as permitted sender)
DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws;
        s=beta; d=gmail.com;
        h=received:message-id:date:from:to:subject:in-reply-to:mime-version:content-type:content-transfer-encoding:content-disposition:references;
        b=MrLEd843qrI8GsHNqiXgLvCS3zFf9H30RcG5iKrYV503Bdq91m7mJsDXVGw5o38XGH661fzp9m2NNkRLeanxDCzxvxBoaqmiSdvyZrGLSliYWiJq3H08OmpWiygw/wJCSj4VDDL3UEgTCEYucpsAitwytgZqCyyqpNbiJKVwkHU=
Message-ID: <bbf77680510130943g5a88bb63he243db2dd02becac@mail.gmail.com>
Date: Thu, 13 Oct 2005 12:43:23 -0400
From: raja agireddy <tagireddy@gmail.com>
To: modperl@perl.apache.org, modperl-digest-help@perl.apache.org
Subject: Fwd: Htgroup adding blank lin when it is within a loop
In-Reply-To: <bbf77680510120741w2467ea91if4c0159f0daee9a2@mail.gmail.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline
References: <bbf77680510120741w2467ea91if4c0159f0daee9a2@mail.gmail.com>

Please, If anyone can help me. I know this is not a modperl issue but
just wanted to know if anyone handled it before.

Regards,
Raja

---------- Forwarded message ----------
From: raja agireddy <tagireddy@gmail.com>
Date: Oct 12, 2005 10:41 AM
Subject: Htgroup adding blank lin when it is within a loop
To: rbowen@rcbowen.com


Rich,

I am using Htgroup version 1.22 and perl 5.8. The adduser function
works fine when I use it individually, but when i use it within a loop
it adds an extra line like this
***********
:
***********
Following is my code:
                foreach $aprofile (@aprofiles) {
                        if
(!$htinprofile->ismember(lc($query->param('new_user'))),$aprofile) {
                                $aprofile =3D~ s/ //;
                                $aprofile =3D~ s/\n//;
                                print "prof $aprofile prof\n";

$htinprofile->adduser(lc($query->param('new_user')),$aprofile);
                        $htinprofile->save;
                        $self->reload;
                }
                }