[Arsperl-devel] Problems with ActiveLink Action struct set fields action

[Michiel B. <mi...@be...>]

Thilo,

I compiled your new changes on my PC with the 7.5 api.

When I was testing out the example files I ran into an issue with
Show_ALink.pl when I ran it against an active link with a set fields action,
and I guess it is because the data structure returned by ars_GetActiveLink
is not OK:

C:\ARSperl\example>perl Show_ALink.pl <server> <user> <pass> "GR-Insert NOT"
Active Link Attributes:
Name: GR-Insert NOT
Execution Order: 0
schemaList : "Group"
Group Perms: 0;
Execute On:  Button
Field:
Display List:
    Qual Text: [none defined]
Actions:
        Action 1:
                Set Fields:
Not an ARRAY reference at Show_ALink.pl line 364.

** so I decided to use Data::Dumper to dump out the datastructure in line
362:
     if(defined($action->{assign_fields})) {
  printl 2, "Set Fields:\n";
  use Data::Dumper; print Dumper({assign_fields});
  print Dumper(%{$action});
  #foreach $setFields (@{$action->{assign_fields}}) {
  #    printl 3, "fieldId: $setFields->{fieldId}\n";
  #    ProcessSetFields($setFields->{assignment});
  #}
     }
** that resulted in the following:

$VAR1 = 'assign_fields';
$VAR2 = {
          'sampleSchema' => '',
          'sampleServer' => '',
          'fieldList' => [
                           {
                             'assignment' => {
                                               'arith' => {
                                                            'left' => {

'field'
=> {
     'qualifier' => bless( do{\(my $o = 25379692)}, 'ARQualifierStructPtr'
),
     'noMatchOption' => 'error',
     'fieldId' => 121,
     'multiMatchOption' => 'picklist',
     'tag' => 1,
     'server' => '*',
     'schema' => '*'
   }
                                                                      },
                                                            'right' => {

'value'
 => ' NOT ',

'valueT
ype' => 'char'
                                                                       },
                                                            'oper' => '+'
                                                          }
                                             },
                             'fieldId' => 121
                           }
                         ]
        };
Help Text:
Owner: Demo
Last changed by: Demo
Last Modified: Tue Mar 17 22:05:13 2009
Change Diary:
I guess you see the datastructure is not as it should be. Can you advise?

Kind regards,
--
Michiel Beijen
Software Consultant
+31 6 - 457 42 418
Bee Free IT + http://beefreeit.nl