Supress the div header and footer from a NetwebSource

[ramiro]

Hello to every body.

excuseme but I would like to know if it is possible to supress the div header and footer from a netWebSource procedure. I've tried creating a new source (clarion) procedure and passing the p_web object as parameter and adding all the necesary things for the NetWebSource to work. and it does compile, but it does not run could I delete the divs from the netwebsource procedure or what can I do?. can anyone help me?

My Code:


!!! <summary>
!!! Generated from procedure template - Source
!!! </summary>
Login2               PROCEDURE  (NetWebServerWorker p_web) ! Declare Procedure
! Start of "Data Section"
! [Priority 1300]
loc:divname           string(252)
loc:parent            string(252)  ! should always be a lower-case string
loc:user             STRING(30)                            !usuario
loc:passwd           STRING(30)                            !
! End of "Data Section"
! Start of "Local Data After Object Declarations"
! [Priority 4000]
packet                      StringTheory
timer                   long
loc:options             StringTheory ! options for jQuery calls
! End of "Local Data After Object Declarations"

  CODE
! Start of "Processed Code"
! [Priority 4000]
  GlobalErrors.SetProcedureName('Login')
     
       
  loc:user = p_web.GetValue('loc_user')
        MESSAGE('Yes')
  IF CLIP(loc:user) <> '' AND clip(loc:passwd) <> ''
      packet.Append('i = 0;')
  ELSE
      packet.Append('i = 0;')
    END

  do SendPacket
  GlobalErrors.SetProcedureName()
  Return
! End of "Processed Code"
! Start of "Procedure Routines"
! [Priority 3500]
SendPacket  routine
  p_web.ParseHTML(packet,1,0,NET:NoHeader)
  packet.SetValue('')
  MESSAGE('yes')
! [Priority 8500]

! End of "Procedure Routines"
! Start of "Local Procedures"
! [Priority 5000]

! End of "Local Procedures"

[Bruce]

I've added a switch for 9.12 which allows you to suppress the Div.

cheers
Bruce