serve_modify.m

# @(#)serve_modify.m	1.3 04/20/99 FB
#
# Serve_modify.m - Copyright by FirstBase Software
#
# This code works with dbmacro, a part of the FirstBase database package.
# For more information, see http://www.firstbasesoftware.com
#
# serve a modify_url form ---
#    this form calls modify.m to actually modify the record
#

function serve_modify()
   {
      comments()
      print(html_open("URL Management System -- Modify URL", "", bodytag))
      wheader("Modify URL")
      print(html_form_open(dbmacro + apphome + "/macro/modify.m?V=" +
         random_string))
      print(html_center_open())
      print(html_table_open())

      rec = recno(ub) + ""
      print(html_input("HIDDEN", "RECNO", 1, 1, rec))
      print(html_input("HIDDEN", "LOCKSTAMP", 1, 1, lockstamp))

      print(html_row("URL:",
         html_input("TEXT", "url", 60, 79, ubase[URL])))
      print(html_row("Site Name:",
         html_input("TEXT", "sitename", 60, 79, ubase[SiteName])))

      print(html_row("Description:",
         html_textarea("descrip", 3, 60, ubase[Descrip])))

      print(html_row_open())
      print(html_cell_open())
      print("Category #1:")
      print(html_cell_close())

      print(html_cell_open())
      print(html_select_open("category1", 1))
      category_select(ubase[RevCat1])
      print(html_select_close())
      print(html_cell_close())
      print(html_row_close())

      print(html_row_open())
      print(html_cell_open())
      print("Category #2:")
      print(html_cell_close())

      print(html_cell_open())
      print(html_select_open("category2", 1))
      category_select(ubase[RevCat2])
      print(html_select_close())
      print(html_cell_close())
      print(html_row_close())

      print(html_row("City:", html_input("TEXT", "city", 20, 20, ubase[City]) +
      "   State:" + html_input("TEXT", "state", 25, 25, ubase[State])))
      print(html_row("Country:",
         html_input("TEXT", "country", 20, 20, ubase[Country])))
      print(html_row("Key Words:",
         html_input("TEXT", "keywords", 60, 60, ubase[Keywords])))

      print(html_row("Contact Name:",
         html_input("TEXT", "contact", 30, 30, ubase[Contact])))
      print(html_row("Email Address:",
         html_input("TEXT", "email", 40, 40, ubase[Email])))
      print(html_row("",
         html_italics("Used only to validate MODIFICATION requests")))

      IP = getenv("REMOTE_ADDR")
      IP_TIME = date(now())
      print(html_row("Connecting Address.:", IP))
      print(html_row("Time Stamp:", IP_TIME))
      print(html_table_close())

      print(html_p_open())
      print(html_input("SUBMIT", "Submit", 10, 10,
         "Save Changes to Record"))
      print(html_input("SUBMIT", "Submit", 10, 10, "Exit"))
      print(html_center_close())
      print(html_input("HIDDEN", "IP", 1, 1, IP))
      print(html_input("HIDDEN", "IP_TIME", 1, 1, IP_TIME))
      print(html_form_close())
      # wfooter("/mainmenu.htm")
      print(html_close())
   }