Compiled File

Compiled Template group.adp

set __adp_output {}; set __ad_conn_locale [ad_conn locale]
append __adp_output "<html>
<head>
<title>Demo: Sample Users</title>
  <style>
    h1 \{ font-family: Arial, Helvetica \}
    th \{ font-family: Arial, Helvetica \}
    td \{ font-family: Arial, Helvetica \}
  </style>
</head>
<body bgcolor=\"#FFFFCC\">
<h1>Sample Users by State</h1>
  <table cellpadding=\"4\" cellspacing=\"0\" border=\"1\" bgcolor=\"#CCFFCC\">

"


  if {[info exists users]} {
      upvar 0 users __d3_swap
  }

  for { set __d3_i 1 } { $__d3_i <= ${users:rowcount}  } { incr __d3_i } {
    upvar 0 users:$__d3_i users
  
append __adp_output "

  <tr bgcolor=\"#eeeeee\"><td>[ns_quotehtml [lang::util::localize $users(state)]]</td></tr> 
  <tr bgcolor=\"#ffffff\"><td>
      "

    set __d4_group_rowcount 1
    while { 1 } {
      set users(groupnum) $__d4_group_rowcount
      if { $__d3_i >= ${users:rowcount} } {
        set users(groupnum_last_p) 1
      } else {
        upvar 0 users:[expr {$__d3_i + 1}] users:next
        set users(groupnum_last_p) [expr {${users:next(state)} ne $users(state)}]
      }
  
append __adp_output "
        <p>The [ns_quotehtml [lang::util::localize $users(last_name)]] Family</p>
          <ul>   
            "

      if { [info exists users(groupnum)] } {
        set __d5_d4_groupnum $users(groupnum)
      }
    

    set __d5_group_rowcount 1
    while { 1 } {
      set users(groupnum) $__d5_group_rowcount
      if { $__d3_i >= ${users:rowcount} } {
        set users(groupnum_last_p) 1
      } else {
        upvar 0 users:[expr {$__d3_i + 1}] users:next
        set users(groupnum_last_p) [expr {${users:next(last_name)} ne $users(last_name)}]
      }
  
append __adp_output " 
              <li>[ns_quotehtml [lang::util::localize $users(first_name)]] [ns_quotehtml [lang::util::localize $users(last_name)]]</li> 
            "

        if { $__d3_i >= ${users:rowcount} } {
            break
        }
        upvar 0 users:[expr {$__d3_i + 1}] users:next
        if { ${users:next(last_name)} ne $users(last_name) } {
            break
        }
    

      incr __d3_i
      upvar 0 users:$__d3_i users
      incr __d5_group_rowcount
    }
  

            if { [info exists __d5_d4_groupnum] } {
                set users(groupnum) $__d5_d4_groupnum
            }
        
append __adp_output "
          </ul>
      "

        if { $__d3_i >= ${users:rowcount} } {
            break
        }
        upvar 0 users:[expr {$__d3_i + 1}] users:next
        if { ${users:next(state)} ne $users(state) } {
            break
        }
    

      incr __d3_i
      upvar 0 users:$__d3_i users
      incr __d4_group_rowcount
    }
  
append __adp_output "
  </td></tr>

"
}

  if {[info exists __d3_swap]} {
      upvar 0 __d3_swap users
  }
append __adp_output "

</table>"
set __adp_output