Loading ...
Sorry, an error occurred while loading the content.
 

Re: [pro-gen] Veld toevoegen aan invoerdefinitie / aanpassen HTML uitvoer

Expand Messages
  • Rene Verharen
    Beste ProGen gebruikers, Ik heb een aantal weken niet gereageerd op berichten met dit topic door drukke bezigheden maar heb niet helemaal stilgezeten. Wat heb
    Message 1 of 18 , Jul 4, 2005
      Beste ProGen gebruikers,

      Ik heb een aantal weken niet gereageerd op berichten met dit topic door
      drukke bezigheden maar heb niet helemaal stilgezeten. Wat heb ik inmiddels
      gedaan ?

      Ik heb aan een bestaande ivoerdefinitie een nieuw veld toegevoegd met de
      naam "Foto", een veld van 1 karakter lang en de invoer beperkt tot "BbJj".

      Vervolgens heb ik mijn bestaande PRo-Gen bestanden omgezet naar de nieuwe
      invoerdefinitie.

      Er is een bestand "fotoicon.inc" aangemaakt met daarin de door mij gewenste
      HTML uitvoer.

      In de bestanden "alg-per.inc", "eenander.inc", "ouders.inc" en
      "kinderen.inc" is op de door mij gewenste plaats INCLUDE FOTOICON_INC!
      toegevoegd.

      Resultaat is nu de door mij gewenste HTML code op de door mij gewenste
      plaats. Nu wil ik alleen nog die HTML code wanneer het veld "Foto" één van
      de karakters uit het het rijtje "BbJj" bevat. Dit laatste wil maar niet
      lukken, kennelijk is de veldnaam in "fotoicon.inc" niet de veldnaam die ik
      in de invoerdefinitie heb gegeven.

      Hieronder de code uit "fotoicon.inc" :

      >REM File: FOTOICON.INC
      >REM
      >
      >IF CONTENTS$(Foto)="J" THEN
      > PRINT BINARY$("<a href="+CHR$(34)+"/cgi-bin/geneafoto.cgi?");
      > PRINT BINARY$(NUMBER$(2)+CHR$(34)+">");
      > PRINT BINARY$("<img src="+CHR$(34)+"/plaatjes/camera.gif"+CHR$(34)+" ");
      > PRINT BINARY$("alt="+CHR$(34)+"Foto's beschikbaar"+CHR$(34)+" ");
      > PRINT BINARY$("align="+CHR$(34)+"bottom"+CHR$(34)+" ");
      > PRINT BINARY$("width="+CHR$(34)+"16"+CHR$(34)+" ");
      > PRINT BINARY$("height="+CHR$(34)+"16"+CHR$(34)+" ");
      > PRINT BINARY$("border="+CHR$(34)+"0"+CHR$(34)+" ");
      > PRINT BINARY$("/></a>");
      > PRINT " ";
      >END IF


      Wat doe ik fout en waar ?




      Vriendelijke groet,



      Rene Verharen


      A.u.b. geen reply naar mij persoonlijk. Ik lees de berichten van de lijst.
    • Rene Verharen
      Beste ProGen gebruikers, Naar het zich laat aanzien is mijn probleem opgelost. Voor de geïnteresserden hieronder de code van het door mij gemaakte
      Message 2 of 18 , Jul 4, 2005
        Beste ProGen gebruikers,

        Naar het zich laat aanzien is mijn probleem opgelost. Voor de
        geïnteresserden hieronder de code van het door mij gemaakte "fotoicon.inc"
        bestand.

        >REM File: FOTOICON.INC
        >REM
        >
        >IF Foto <> "" THEN
        > PRINT BINARY$(" <a href="+CHR$(34)+"/cgi-bin/geneafoto.cgi?");
        > PRINT BINARY$(STR$(CONTENTS(Person_record))+CHR$(34)+">");
        > PRINT BINARY$("<img src="+CHR$(34)+"/plaatjes/camera.gif"+CHR$(34)+" ");
        > PRINT BINARY$("alt="+CHR$(34)+"Van deze persoon zijn foto's beschikbaar
        > !"+CHR$(34)+" ");
        > PRINT BINARY$("align="+CHR$(34)+"bottom"+CHR$(34)+" ");
        > PRINT BINARY$("width="+CHR$(34)+"13"+CHR$(34)+" ");
        > PRINT BINARY$("height="+CHR$(34)+"11"+CHR$(34)+" ");
        > PRINT BINARY$("border="+CHR$(34)+"0"+CHR$(34)+" ");
        > PRINT BINARY$("/></a> ");
        >END IF





        Vriendelijke groet,



        Rene Verharen


        A.u.b. geen reply naar mij persoonlijk. Ik lees de berichten van de lijst.
      Your message has been successfully submitted and would be delivered to recipients shortly.