* LINKS.PRG   2/17/2001
* CONVERT BERKELEY LINKS TO DL INTERFACE FORMAT

CLEAR
SET TALK OFF
SET DECIMALS TO 0
url_path = "http://sunsite.berkeley.edu/APIS/PImages/"

previd = 0
seq = 1

SET SAFETY OFF

USE linkout in B EXCLUSIVE
SELECT B
ZAP 

USE tbllink3 in A ORDER apisid
SELECT A
GO TOP

***************************************************************

DO WHILE .not. EOF()
   string1 = ""
   string2 = ""
   string3 = ""
   string4 = ""
   string5 = ""
   string6 = ""
   string7 = ""   
   seqno = ""

   IF a->apisid <> m->previd
      seq = 1

   * RECORD BOUNDARY
   string1 = "###"
   DO WRITEIT WITH m->string1

   * APIS Id
   string2 = "cu001 | 1 | berkeley.apis." + LTRIM(str(a->apisid,6,0))
   DO WRITEIT WITH m->string2  
      
   ELSE
      seq = seq + 1

   ENDIF


 * NORMALIZE IMAGE ID
   tempid = LTRIM(str(a->imgid,10,0))
   imageid = "AP" + replicate("0",5-LEN(tempid)) + tempid + "a"


   seqno = LTRIM(TRIM(str(seq,1,0)))


   *********

   * PART_VIEW CAPTION
   string3 = "part_view_CAPTION | " + seqno + " | " + a->caption
   DO WRITEIT WITH m->string3


   * PRESENTATION THUMB
   string4 = "presentation_RESOLUTION | " + seqno + " | 1 | thumbnail"
   DO WRITEIT WITH m->string4
   string4 = "presentation_ADDRESS | " + seqno + " | 1 | " + url_path + imageid + "D.gif"
   DO WRITEIT WITH m->string4


   * PRESENTATION SMALL
   string5 = "presentation_RESOLUTION | " + seqno + " | 2 | small"
   DO WRITEIT WITH m->string5
   string5 = "presentation_ADDRESS | " + seqno + " | 2 | " + url_path + imageid + "C.jpg"
   DO WRITEIT WITH m->string5


   * PRESENTATION MEDIUM
   string6 = "presentation_RESOLUTION | " + seqno + " | 3 | medium"
   DO WRITEIT WITH m->string6
   string6 = "presentation_ADDRESS | " + seqno + " | 3 | " + url_path + imageid + "B.jpg"
   DO WRITEIT WITH m->string6

   * PRESENTATION LARGE
   string7 = "presentation_RESOLUTION | " + seqno + " | 4 | large"
   DO WRITEIT WITH m->string7
   string7 = "presentation_ADDRESS | " + seqno + " | 4 | " + url_path + imageid + "A.jpg"
   DO WRITEIT WITH m->string7


   previd = a->apisid
   
   SELECT A
   SKIP

ENDDO

SELECT B
copy to "berklink.txt" SDF

*   BROWSE

***********************
PROCEDURE WRITEIT
PARAMETER string

SELECT B
APPEND BLANK
REPLACE Line1 WITH string