diff

[Joel M. <jm...@ca...>]

fixed the hard coded 15 character entry id problem

--------------------------------cut here-------------------------------
*** 1.1	1996/02/21 20:17:26
--- ARSperl/ARS.xs	1996/02/21 19:56:07
***************
*** 1402,1422 ****
  	  int c = items - 3, i, ret;
  	  ARInternalIdList  idList;
  	  int id_len;
- 	  AREntryIdType pad_entry;
  	  ARFieldValueList  fieldList;
  	  ARStatusList      status;
  	  ARTimestamp       v;
  	  
- 	  /* pad left of entry_id with zeros */
- 	  memset(pad_entry, '0', AR_MAX_ENTRYID_SIZE);
- 	  pad_entry[AR_MAX_ENTRYID_SIZE] = '\0';
- 	  id_len = strlen(entry_id);
- 	  if (id_len > AR_MAX_ENTRYID_SIZE) {
- 	    ars_errstr = "entry id is too long";
- 	    goto get_entry_end;
- 	  }
- 	  sprintf(pad_entry+(AR_MAX_ENTRYID_SIZE-id_len), "%s", entry_id);
- 	
  	  if (c < 1) {
  	    idList.numItems = 0; /* get all fields */
  	  } else {
--- 1402,1411 ----
***************
*** 1426,1432 ****
  	    for (i=0; i<c; i++)
  	      idList.internalIdList[i] = SvIV(ST(i+3));
  	  }
! 	  ret = ARGetEntry(ctrl, schema, pad_entry, &idList, &fieldList, &status); 
  	  if (ARError(ret, status)) {
  	    FreeARInternalIdList(&idList, FALSE);
  	    goto get_entry_end;
--- 1415,1421 ----
  	    for (i=0; i<c; i++)
  	      idList.internalIdList[i] = SvIV(ST(i+3));
  	  }
! 	  ret = ARGetEntry(ctrl, schema, entry_id, &idList, &fieldList, &status); 
  	  if (ARError(ret, status)) {
  	    FreeARInternalIdList(&idList, FALSE);
  	    goto get_entry_end;
*** 1.1	1996/02/21 20:17:54
--- ARSperl/ARS.pm	1996/02/21 20:34:28
***************
*** 54,59 ****
--- 54,61 ----
  $AR_EXECUTE_ON_SET_DEFAULT = 512;
  $AR_EXECUTE_ON_QUERY =      1024;
  
+ $field_entryId = 1;
+ 
  sub ars_simpleMenu {
      # merges all sub-menus into a single level menu
      my $m = shift;
***************
*** 75,80 ****
--- 77,93 ----
  	}
      }
      @ret;
+ }
+ 
+ sub pad_entryid {
+     my $c = shift;
+     my $schema = shift;
+     my $entry_id = shift;
+     my $field;
+     
+     ($field = ars_GetField($c, $schema, $field_entryId)) ||
+ 	return undef;
+     return ("0"x($field->{limit}{maxLength}-length($entry_id))).$entry_id;
  }
  
  ARS::__ars_init();
*** 1.1	1996/02/21 20:43:06
--- ARSperl/html/usage.html	1996/02/21 20:40:45
***************
*** 41,46 ****
--- 41,47 ----
          <LI><A HREF="#ars_GetListActiveLink">ars_GetListActiveLink</A>
          <LI><A HREF="#ars_GetField">ars_GetField</A>
          <LI><A HREF="#ars_SetEntry">ars_SetEntry</A>
+ 	<LI><A HREF="#pad_entryid">ARS::pad_entryid</A>
      </UL>
      <LI><A HREF="#helper">Perl helper functions</A>
      <UL>
***************
*** 485,491 ****
--- 486,496 ----
  
        <PRE>
        </PRE>
+    
+    <A NAME="pad_entryid"></A>
+    <DT><CODE>ARS::pad_entryid(ctrl,schema,entry_id)</CODE><DD>
  
+       Pads entry_id with the required number of zeroes.
  
  </DL>