[Arsperl-devel] ARSperl/example ars_GetListEntry.pl,1.2,1.3

[Michiel B. <mb...@us...>]

Update of /cvsroot/arsperl/ARSperl/example
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv17083

Modified Files:
	ars_GetListEntry.pl 
Log Message:
Updated to work with v5 and higher API

Index: ars_GetListEntry.pl
===================================================================
RCS file: /cvsroot/arsperl/ARSperl/example/ars_GetListEntry.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ars_GetListEntry.pl	1 Jun 2000 13:45:20 -0000	1.2
--- ars_GetListEntry.pl	14 Apr 2009 12:28:07 -0000	1.3
***************
*** 14,17 ****
--- 14,20 ----
  #
  # $Log$
+ # Revision 1.3  2009/04/14 12:28:07  mbeijen
+ # Updated to work with v5 and higher API
+ #
  # Revision 1.2  2000/06/01 13:45:20  jcmurphy
  # *** empty log message ***
***************
*** 22,49 ****
  #
  #
- 
  use ARS;
  
! ($server, $username, $password) = (shift, shift, shift);
! 
! if($password eq "") {
!     print "Usage: $0 [server] [username] [password]\n";
!     exit 0;
! }
  
! $schema = "User";
! $login_name = "Login name";
! $lic_type = "License Type";
  
! ($ctrl = ars_Login($server, $username, $password)) ||
!     die "ars_Login failed: $ars_errstr";
  
! (%fids = ars_GetFieldTable($ctrl, $schema)) ||
!     die "ars_GetFieldTable: $ars_errstr";
  
! $login_name = "Login Name" if(!defined($fids{$login_name}));
  
! ($qual = ars_LoadQualifier($ctrl, $schema, "(1 = 1)")) ||
!     die "ars_LoadQualifier: $ars_errstr";
  
  # basic format: allow the server to provide sorting order
--- 25,51 ----
  #
  #
  use ARS;
+ use strict;
  
! die "usage: $0 server username password \n"
!   unless ( $#ARGV >= 2 );
  
! my ( $server, $user, $password ) = ( shift, shift, shift );
  
! #Logging in to the server
! ( my $ctrl = ars_Login( $server, $user, $password ) )
!   || die "ars_Login: $ars_errstr";
  
! # Define form and fields - these may have different names on your server
! my $schema     = "User";
! my $login_name = "Login Name";
! my $lic_type   = "License Type";
! my $full_name  = "Full Name";
  
! ( my %fids = ars_GetFieldTable( $ctrl, $schema ) )
!   || die "ars_GetFieldTable: $ars_errstr";
  
! ( my $qual = ars_LoadQualifier( $ctrl, $schema, "(1 = 1)" ) )
!   || die "ars_LoadQualifier: $ars_errstr";
  
  # basic format: allow the server to provide sorting order
***************
*** 52,73 ****
  print "Testing: basic format.\n";
  
! (@entries = ars_GetListEntry($ctrl, $schema, $qual, 0)) ||
!     die "ars_GetListEntry: $ars_errstr";
  
! for ($i = 0; $i < $#entries ; $i+=2) {
!     printf("%s %s\n", $entries[$i], $entries[$i+1]);
  }
  
! # another format: specify a sorting order. 
  # sort by license type, ascending.
  
  print "Testing: basic + sorting format.\n";
  
! (@entries = ars_GetListEntry($ctrl, $schema, $qual, 0, 
! 			     $fids{$lic_type}, 1)) ||
!     die "ars_GetListEntry: $ars_errstr";
  
! for ($i = 0; $i < $#entries ; $i+=2) {
!     printf("%s %s\n", $entries[$i], $entries[$i+1]);
  }
  
--- 54,76 ----
  print "Testing: basic format.\n";
  
! ( my @entries = ars_GetListEntry( $ctrl, $schema, $qual, 0, 0 ) )
!   || die "ars_GetListEntry: $ars_errstr";
  
! for ( my $i = 0 ; $i < $#entries ; $i += 2 ) {
!     printf( "%s %s\n", $entries[$i], $entries[ $i + 1 ] );
  }
  
! # another format: specify a sorting order.
  # sort by license type, ascending.
  
  print "Testing: basic + sorting format.\n";
  
! ( my @sorted_entries =
!       ars_GetListEntry( $ctrl, $schema, $qual, 0, 0, $fids{$login_name}, 1 ) )
!   ||    # sort on Login Name, ascending
!   die "ars_GetListEntry: $ars_errstr";
  
! for ( my $i = 0 ; $i < $#sorted_entries ; $i += 2 ) {
!     printf( "%s %s\n", $sorted_entries[$i], $sorted_entries[ $i + 1 ] );
  }
  
***************
*** 76,92 ****
  print "Testing: basic + sorting + custom field-list format.\n";
  
! if(!defined($fids{$login_name}) || !defined($fids{$lic_type})) {
! 	print "Sorry. Either i can't find the field-id for \"$login_name\" or \"$lic_type\"\n on your \"$schema\" form. I'm skipping this test.\n";
! } else {
! 	(@entries = ars_GetListEntry($ctrl, $schema, $qual, 0,
!     [ {columnWidth => 15, separator => ' ', fieldId => $fids{$login_name} },
!       {columnWidth => 10, separator => ' ', fieldId => $fids{$lic_type}   }
!     ],
! 			     $fids{$login_name}, 1)) ||
!     		die "ars_GetListEntry: $ars_errstr";
  
! 	for ($i = 0; $i < $#entries ; $i+=2) {
!     		printf("%s %s\n", $entries[$i], $entries[$i+1]);
! 	}
  }
  
--- 79,112 ----
  print "Testing: basic + sorting + custom field-list format.\n";
  
! if ( !defined( $fids{$login_name} ) || !defined( $fids{$full_name} ) ) {
!     print
! "Sorry. Either i can't find the field-id for \"$login_name\" or \"$full_name\"\n on your \"$schema\" form. I'm skipping this test.\n";
! }
! else {
!     (
!         my @basic_sorted_entries = ars_GetListEntry(
!             $ctrl, $schema, $qual, 0, 0,
!             [
!                 {
!                     columnWidth => 10,
!                     separator   => ' ',
!                     fieldId     => $fids{$login_name}
!                 },    # first field: login name
!                 {
!                     columnWidth => 15,
!                     separator   => ' ',
!                     fieldId     => $fids{$full_name}
!                 },    # second field: full name
!             ],
!             $fids{$full_name},
!             2
!         )
!     ) || die "ars_GetListEntry: $ars_errstr";
  
!     for ( my $i = 0 ; $i < $#basic_sorted_entries ; $i += 2 ) {
!         printf( "%s %s\n",
!             $basic_sorted_entries[$i],
!             $basic_sorted_entries[ $i + 1 ] );
!     }
  }