On 3/23/06, Irfan J Sayed <[EMAIL PROTECTED]> wrote:
>
>
> Hi Chas,
>
> This is the only program i am using.
>
> Plz tell me what i am doing wrong.
>
snip
>
> > Following is the script
> >
> > $sessionobj = $entity->GetSession();
> > $username = $session->GetUserLoginName();
> > $entity->SetFieldValue("submitter_id", $username);
snip
If this is in fact the only code in your scriptname.pl file then you
have a host of problems.
All Perl scripts should start with "#!/path/to/perl" usually
"#!/usr/bin/perl". The next few lines are used to import modules
(chunks of code, like libraries in C). This is done with the use
statement. It is good practice to import the "strict" module as it
forces you to write better code. So, at the very least you should
have code that looks like
#!/usr/bin/perl
use strict;
use SomeModuleThatCreatesEntity;
my $entity = SomeModuleThatCreatesEntity->new;
my $sessionobj = $entity->GetSession();
my $username = $session->GetUserLoginName();
$entity->SetFieldValue("submitter_id", $username);
print "user is $username\n"; #debug code;
I have no idea what SomeModuleThatCreatesEntity will be for you as you
have not provided any information on it.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
