serve_pending.m

# @(#)serve_pending.m	1.3 04/20/99 FB
#
#
# serve_pending.m  - serve all pending records in date order
#	along with a button to edit full record as needed
#

#
# main section
#

function serve_pending()
   {
      init_url()
      do_command()
      end_url()
      wfooter("/admin/adminmenu.htm")
      print(html_close())
      # end of main section
   }

#
# do_command
#
function do_command()
   {
      comments()
      print(html_open(
         "URL Management System -- Admin Menu -- Pending Links", "", bodytag))
      wheader("Pending Links")
      print(html_p_open())
      print(html_table_open())

      for (st = firstxrec(ub); st == AOK; st = nextxrec(ub))
         if (ubase[Status] == "pending"){
            print_record()
            match_count++
            }
      print(html_table_close())
      print(html_p_open())
      if (match_count > 1)
         printf("%d records matched your request.", match_count)
      else if (match_count == 1)   
         printf("%d record matched your request.", match_count)
      else
         printf("No records matched your request.")
   }

# @(#)servelib.m	1.2 04/20/99 FB
#
# servelib.m  - routines for the serve series of code
#

function print_record()
   {
      edit_url= dbmacro + apphome +
         "/macro/serve_edit.m?RECNO=" + recno(ub)
      edit_href = html_href(edit_url, "Edit Record", "new")
      print(html_row("", edit_href))
      href = html_href(ubase[URL], ubase[SiteName], "new")
      print(html_row("Site Name:", href))
      print(html_row("URL:", ubase[URL]))
      print(html_row("Description:", ubase[Descrip]))
      print(html_row("Category #1:", ubase[RevCat1]))
      print(html_row("Category #2:", ubase[RevCat2]))
      print(html_row("City:", ubase[City]))
      print(html_row("State:", ubase[State]))
      print(html_row("Country:", ubase[Country]))
      print(html_row("Key Words:", ubase[Keywords]))
      print(html_row("Status:", ubase[Status]))

      print(html_row(html_hr(), html_hr()))
   }