Re: [Arsperl-users] ars_SetContainer

2008-09-18 Thread LJ Longwing 
ARS 7.1 Patch 2
ARSPerl 1.90
ActivePerl-5.8.8.819
Windows 2003

Ok...what I decided to do in this case was basically what the example
showed...just take my existing PL and in all essence do a save as...so I got
the create working the way I want...I even successfully took the contents of
one PL and added it to another PL...but I'm having trouble manually adding
one packing list (not the contents...just the PL) to another...here is my
code

my $c_dailyPL = ars_GetContainer($c,$dailyPL);

push @{$c_dailyPL-{referenceList}}, {
dataType = 0,
name = $pl_name,
type = 6,
description = ,
label = 
  };

ars_SetContainer( $c, $dailyPL, $c_dailyPL ) || die $ars_errstr;

This generates no errorsbut when I look in the admin tool...the PL isn't
in the PLso I played around a bit with the Data dumper.  Here is the
output of the container when I add the PL through the admin tool

$packingList = {
 'owner' = 'longwing.lj',
 'ownerObjList' = [],
 'numReferences' = 6,
 'name' = '20080918-DailyMaster',
 'lastChanged' = 'longwing.lj',
 'objPropList' = [
{
  'prop' = 60020,
  'value' = '',
  'valueType' = 'char'
}
  ],
 'timestamp' = 1221755866,
 'adminList' = [],
 'type' = 'pack',
 'groupList' = {},
 'referenceList' = [
  {
'permittedGroups' = [],
'value_dataType' = 'null',
'value' = undef,
'dataType' = 1,
'type' = 32783,
'label' = '',
'description' = ''
  },
  {
'permittedGroups' = [],
'value_dataType' = 'null',
'value' = undef,
'dataType' = 1,
'type' = 32793,
'label' = '',
'description' = ''
  },
  {
'permittedGroups' = [],
'value_dataType' = 'null',
'value' = undef,
'dataType' = 1,
'type' = 32784,
'label' = '',
'description' = ''
  },
  {
'permittedGroups' = [],
'value_dataType' = 'null',
'value' = undef,
'dataType' = 1,
'type' = 32785,
'label' = '',
'description' = ''
  },
  {
'dataType' = 0,
'name' =
'20080527-CherylConversionFormChanges',
'type' = 6,
'label' = '',
'description' = ''
  },
  {
'permittedGroups' = [],
'value_dataType' = 'null',
'value' = undef,
'dataType' = 1,
'type' = 32801,
'label' = '',
'description' = ''
  }
]
   };

here is the output when I add the PL through my script

$packingList = {
 'owner' = 'longwing.lj',
 'ownerObjList' = [],
 'numReferences' = 6,
 'name' = '20080918-DailyMaster',
 'lastChanged' = 'Webservice',
 'objPropList' = [

Re: [Arsperl-users] ars_SetContainer

2008-09-18 Thread Thilo Stapff 
The order might indeed be important. This is just a guess, but it 
somehow looks like a method to tell the Admin Tool, which kind of 
container is meant by the references.

Note that the reference to 20080527-CherylConversionFormChanges has 
type = 6, which means only container, so the Admin Tool doesn't know 
  that it should display the entry as a packing list.

Here's the constants from ar.h for the dataType = 1 references:

32783 = ARREF_PACKINGLIST_GUIDE
32784 = ARREF_PACKINGLIST_APP
32785 = ARREF_PACKINGLIST_PACK
32792 = ARREF_PACKINGLIST_DSOPOOL
32793 = ARREF_PACKINGLIST_FILTER_GUIDE
32801 = ARREF_PACKINGLIST_WEBSERVICE

To me it looks like packing lists have to be put directly after the 
type = 32785 entry, filter guides after the type = 32793 entry etc.
This would mean that the Admin Tool mistakes the reference in the 
script-generated packing list for a web service.

As I said, just guessing ...


Regards,
Thilo



LJ Longwing wrote:
 ARS 7.1 Patch 2
 ARSPerl 1.90
 ActivePerl-5.8.8.819
 Windows 2003
 
 Ok...what I decided to do in this case was basically what the example
 showed...just take my existing PL and in all essence do a save as...so I got
 the create working the way I want...I even successfully took the contents of
 one PL and added it to another PL...but I'm having trouble manually adding
 one packing list (not the contents...just the PL) to another...here is my
 code
 
   my $c_dailyPL = ars_GetContainer($c,$dailyPL);
 
   push @{$c_dailyPL-{referenceList}}, {
   dataType = 0,
   name = $pl_name,
   type = 6,
   description = ,
   label = 
 };
 
   ars_SetContainer( $c, $dailyPL, $c_dailyPL ) || die $ars_errstr;
 
 This generates no errorsbut when I look in the admin tool...the PL isn't
 in the PLso I played around a bit with the Data dumper.  Here is the
 output of the container when I add the PL through the admin tool
 
 $packingList = {
  'owner' = 'longwing.lj',
  'ownerObjList' = [],
  'numReferences' = 6,
  'name' = '20080918-DailyMaster',
  'lastChanged' = 'longwing.lj',
  'objPropList' = [
 {
   'prop' = 60020,
   'value' = '',
   'valueType' = 'char'
 }
   ],
  'timestamp' = 1221755866,
  'adminList' = [],
  'type' = 'pack',
  'groupList' = {},
  'referenceList' = [
   {
 'permittedGroups' = [],
 'value_dataType' = 'null',
 'value' = undef,
 'dataType' = 1,
 'type' = 32783,
 'label' = '',
 'description' = ''
   },
   {
 'permittedGroups' = [],
 'value_dataType' = 'null',
 'value' = undef,
 'dataType' = 1,
 'type' = 32793,
 'label' = '',
 'description' = ''
   },
   {
 'permittedGroups' = [],
 'value_dataType' = 'null',
 'value' = undef,
 'dataType' = 1,
 'type' = 32784,
 'label' = '',
 'description' = ''
   },
   {
 'permittedGroups' = [],
 'value_dataType' = 'null',
 'value' = undef,
 'dataType' = 1,
 'type' = 32785,
 'label' = '',
 'description' = ''
   },
   {
 'dataType' = 0,
 'name' =
 '20080527-CherylConversionFormChanges',
 'type' = 6,

Re: [Arsperl-users] ars_SetContainer

2008-09-18 Thread LJ Longwing 
Just my luckfinding a bug on my first real use of an API tool.  So does
anyone know the procedure to submit a bug, or get confirmation of a bug and
then a fix? 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Thilo Stapff
Sent: Thursday, September 18, 2008 12:03 PM
To: ARSperl User Discussion
Subject: Re: [Arsperl-users] ars_SetContainer

The order might indeed be important. This is just a guess, but it somehow
looks like a method to tell the Admin Tool, which kind of container is meant
by the references.

Note that the reference to 20080527-CherylConversionFormChanges has type
= 6, which means only container, so the Admin Tool doesn't know
  that it should display the entry as a packing list.

Here's the constants from ar.h for the dataType = 1 references:

32783 = ARREF_PACKINGLIST_GUIDE
32784 = ARREF_PACKINGLIST_APP
32785 = ARREF_PACKINGLIST_PACK
32792 = ARREF_PACKINGLIST_DSOPOOL
32793 = ARREF_PACKINGLIST_FILTER_GUIDE
32801 = ARREF_PACKINGLIST_WEBSERVICE

To me it looks like packing lists have to be put directly after the type =
32785 entry, filter guides after the type = 32793 entry etc.
This would mean that the Admin Tool mistakes the reference in the
script-generated packing list for a web service.

As I said, just guessing ...


Regards,
Thilo



LJ Longwing wrote:
 ARS 7.1 Patch 2
 ARSPerl 1.90
 ActivePerl-5.8.8.819
 Windows 2003
 
 Ok...what I decided to do in this case was basically what the example 
 showed...just take my existing PL and in all essence do a save as...so 
 I got the create working the way I want...I even successfully took the 
 contents of one PL and added it to another PL...but I'm having trouble 
 manually adding one packing list (not the contents...just the PL) to 
 another...here is my code
 
   my $c_dailyPL = ars_GetContainer($c,$dailyPL);
 
   push @{$c_dailyPL-{referenceList}}, {
   dataType = 0,
   name = $pl_name,
   type = 6,
   description = ,
   label = 
 };
 
   ars_SetContainer( $c, $dailyPL, $c_dailyPL ) || die $ars_errstr;
 
 This generates no errorsbut when I look in the admin tool...the PL 
 isn't in the PLso I played around a bit with the Data dumper.  
 Here is the output of the container when I add the PL through the 
 admin tool
 
 $packingList = {
  'owner' = 'longwing.lj',
  'ownerObjList' = [],
  'numReferences' = 6,
  'name' = '20080918-DailyMaster',
  'lastChanged' = 'longwing.lj',
  'objPropList' = [
 {
   'prop' = 60020,
   'value' = '',
   'valueType' = 'char'
 }
   ],
  'timestamp' = 1221755866,
  'adminList' = [],
  'type' = 'pack',
  'groupList' = {},
  'referenceList' = [
   {
 'permittedGroups' = [],
 'value_dataType' = 'null',
 'value' = undef,
 'dataType' = 1,
 'type' = 32783,
 'label' = '',
 'description' = ''
   },
   {
 'permittedGroups' = [],
 'value_dataType' = 'null',
 'value' = undef,
 'dataType' = 1,
 'type' = 32793,
 'label' = '',
 'description' = ''
   },
   {
 'permittedGroups' = [],
 'value_dataType' = 'null',
 'value' = undef,
 'dataType' = 1,
 'type' = 32784,
 'label' = '',
 'description' = ''
   },
   {
 'permittedGroups' = [],
 'value_dataType' = 'null',
 'value' = undef,
 'dataType' = 1,
 'type' = 32785

Re: [Arsperl-users] ars_SetContainer

2008-09-18 Thread LJ Longwing 
Well...I have a workaround nowI change just the push of the PL, to add
the Container type as well

push @{$c_dailyPL-{referenceList}}, {
permittedGroups = [],
value_dataType = 'null',
value = undef,
dataType = 1,
type = 32785,
label = '',
description = ''
  };

push @{$c_dailyPL-{referenceList}}, {
dataType = 0,
name = $pl_name,
type = 6,
description = ,
label = ,
  };

this makes it so that the pl I'm adding is preceeded by the proper external
reference type...so it shows up in the admin tool properly, it really screws
up the references section of the container...but it works. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Thilo Stapff
Sent: Thursday, September 18, 2008 12:13 PM
To: ARSperl User Discussion
Subject: Re: [Arsperl-users] ars_SetContainer

I didn't meant to say that we have a bug here. To me it just looks like the
order of the references does indeed matter.


LJ Longwing wrote:
 Just my luckfinding a bug on my first real use of an API tool.  So
does
 anyone know the procedure to submit a bug, or get confirmation of a bug
and
 then a fix? 
 
 -Original Message-
 From: [EMAIL PROTECTED]
 [mailto:[EMAIL PROTECTED] On Behalf Of Thilo Stapff
 Sent: Thursday, September 18, 2008 12:03 PM
 To: ARSperl User Discussion
 Subject: Re: [Arsperl-users] ars_SetContainer
 
 The order might indeed be important. This is just a guess, but it somehow
 looks like a method to tell the Admin Tool, which kind of container is
meant
 by the references.
 
 Note that the reference to 20080527-CherylConversionFormChanges has type
 = 6, which means only container, so the Admin Tool doesn't know
   that it should display the entry as a packing list.
 
 Here's the constants from ar.h for the dataType = 1 references:
 
 32783 = ARREF_PACKINGLIST_GUIDE
 32784 = ARREF_PACKINGLIST_APP
 32785 = ARREF_PACKINGLIST_PACK
 32792 = ARREF_PACKINGLIST_DSOPOOL
 32793 = ARREF_PACKINGLIST_FILTER_GUIDE
 32801 = ARREF_PACKINGLIST_WEBSERVICE
 
 To me it looks like packing lists have to be put directly after the type
=
 32785 entry, filter guides after the type = 32793 entry etc.
 This would mean that the Admin Tool mistakes the reference in the
 script-generated packing list for a web service.
 
 As I said, just guessing ...
 
 
 Regards,
 Thilo
 
 
 
 LJ Longwing wrote:
 ARS 7.1 Patch 2
 ARSPerl 1.90
 ActivePerl-5.8.8.819
 Windows 2003

 Ok...what I decided to do in this case was basically what the example 
 showed...just take my existing PL and in all essence do a save as...so 
 I got the create working the way I want...I even successfully took the 
 contents of one PL and added it to another PL...but I'm having trouble 
 manually adding one packing list (not the contents...just the PL) to 
 another...here is my code

  my $c_dailyPL = ars_GetContainer($c,$dailyPL);

  push @{$c_dailyPL-{referenceList}}, {
  dataType = 0,
  name = $pl_name,
  type = 6,
  description = ,
  label = 
};

  ars_SetContainer( $c, $dailyPL, $c_dailyPL ) || die $ars_errstr;

 This generates no errorsbut when I look in the admin tool...the PL 
 isn't in the PLso I played around a bit with the Data dumper.  
 Here is the output of the container when I add the PL through the 
 admin tool

 $packingList = {
  'owner' = 'longwing.lj',
  'ownerObjList' = [],
  'numReferences' = 6,
  'name' = '20080918-DailyMaster',
  'lastChanged' = 'longwing.lj',
  'objPropList' = [
 {
   'prop' = 60020,
   'value' = '',
   'valueType' = 'char'
 }
   ],
  'timestamp' = 1221755866,
  'adminList' = [],
  'type' = 'pack',
  'groupList' = {},
  'referenceList' = [
   {
 'permittedGroups' = [],
 'value_dataType' = 'null',
 'value' = undef,
 'dataType' = 1,
 'type' = 32783,
 'label' = '',
 'description' = ''
   },
   {
 'permittedGroups' = [],
 'value_dataType' = 'null