Re: [Arsperl-users] Printing Array fields

[Tarakad R. V. (K. 21) <vis...@cr...>]

Great thanks.  This worked.  

-----Original Message-----
From: ars...@ar...
[mailto:ars...@ar...] On Behalf Of Carey Matthew
Black
Sent: Tuesday, August 12, 2008 1:44 PM
To: ARSperl User Discussion
Subject: Re: [Arsperl-users] Printing Array fields

Please look at this for details of Diary fields:

http://arsperl.sourceforge.net/manual/ds_diaryentry_hash.html

This might also be of some help, but it is how to construct a Diary
entry and not how to read it.
http://arsperl.sourceforge.net/manual/ars_EncodeDiary.html


Here is a snip of some code I wrote a long time ago... (5+ years) so
it might help, but might need a bit of updating too.
##
# Get the field map for the selected diary form
##
(%diary_field_form_fields = ars_GetFieldTable($pri,
$diary_field_form)) || die "Error in GetFieldTable for
$diary_field_form\n";
foreach $field_name (@diary_form_fields_names){
        if ($diary_field_form_fields{$field_name}){
                push (@diary_form_fields_ids,
$diary_field_form_fields{$field_name});
        }else{
                die "You said $field_name was in form
$diary_field_form, but I did not find it!\nUpdate your settings for
\@diary_form_fields_names";
        }
}
my %vals = ars_GetEntry(...)
##
# Process each diary entry
##
# I am taking the hash entry from vals(by fieldname via the
diary_field_form_fields array constructed above)
#  and turning it into an anonymous array so that the foreach can loop
over them.
foreach $diary_entry (@{$vals{$diary_field_form_fields{"Work Log"}}}){
        # then I get values from each of the Diary entries like this....
        $diary_entry->{value};
        $diary_entry->{timestamp};
        $diary_entry->{user};
}

Hope that helps.

-- 
Carey Matthew Black
Remedy Skilled Professional (RSP)
ARS = Action Request System(Remedy)

Love, then teach
Solution = People + Process + Tools
Fast, Accurate, Cheap.... Pick two.



On Tue, Aug 12, 2008 at 6:12 AM, Tarakad Raghavan Viswanathan (KIRK
21) <vis...@cr...> wrote:
>
> Hello,
>
> Im trying to print "Work Log" and Im getting ARRAY(0xa68d70) instead
of the
> value.
>
> Can someone advice please.  The displayorder contains the fields I
want to
> print.  All fields print ok except the Work Log
>
>    foreach $ticket ( sort keys %tickets ) {
>                 (%v_tick = ars_GetEntry($$ctrl, $schema, $ticket)) ||
die
> "$ars_errstr - can't get $ticket from schema $schema";
>
>                 my $curline;
>                 foreach $id ( @displayorder ) {
>                         $curval=$v_tick{$f_tick{$id}};
>                         if ( $t{$id} eq "enum" ) {
> $tmp=getEnumValue($id,$curval); $curval=$tmp;}
>                         if ( $t{$id} eq "time" && $curval > 0 ) {
$tmp=`perl
> -le 'print scalar localtime $curval'`; $curval=UnixDate($tmp,"%m/%d/%Y
> %T");}
>
>                         $curval=~ s/\n/ /g;  # Replace New line with
space
>                         $curval=~ s/^M/ /g;  # Replace Control M with
space
>                         $curval=~ s/,/ /g;  # Replace Comma with space
>                         $curline.="$curval,";
>                         #print "$curval,";
>                 }
>                 printoutput "$curline";
>           }
>
> Regards,
> Vishi

------------------------------------------------------------------------
-
This SF.Net email is sponsored by the Moblin Your Move Developer's
challenge
Build the coolest Linux based applications with Moblin SDK & win great
prizes
Grand prize is a trip for two to an Open Source event anywhere in the
world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Arsperl-users mailing list
Ars...@ar...
https://lists.sourceforge.net/lists/listinfo/arsperl-users