Early release from prison is currently being considered by the Ohio Adult Parole Authority for the following violent offenders, whose crimes were committed in Hamilton County.
The Office of Hamilton County Prosecuting Attorney is vigorously opposing parole of the inmates below, and solicits public comment.
If you would like your views to be heard in favor of or against parole, you may e-mail your comments from this site.
can't read "lOutTop": no such variable
while executing
"set $outlist"
("foreach" body line 2)
invoked from within
"foreach outlist {lOutTop lOutBottom} {
foreach thisrow [set $outlist] {
if {[expr round(fmod($vRowOn,2))] == 0} {
set vRowClass altrow
..."
(in namespace eval "::request" script line 108)
invoked from within
"namespace eval request {
puts -nonewline ""
source /home/hcpsites/pwatch/pwatch.conf
source /home/hcpsites/utils/webdb-connect-DIO.tcl
set vOut "..."
OUTPUT BUFFER:
namespace eval request {
puts -nonewline ""
source /home/hcpsites/pwatch/pwatch.conf
source /home/hcpsites/utils/webdb-connect-DIO.tcl
set vOut ""
set vSQL "select id, fname, mname, lname, number, institution, admission_date, min, max, next_date, summary, age(next_date) "
append vSQL "from prisoner "
append vSQL "where active > 0 "
append vSQL "order by active desc, next_date, lname, fname"
set lRetVal [::request::db_send query [list $::request::_connParams_(dbname) "$vSQL" ::request]]
set vSocket [lindex $lRetVal end]
if {![string equal [lindex $lRetVal 0] "LC-SUCCESS"]} {
#--- less verbose for production, more verbose for development ---
append vOut [lindex [split [lindex $lRetVal 1] ":"] 1]
#append vOut $lRetVal
} else {
append vOut "
\n"
#append vOut "
\n"
append vOut "
\n"
append vOut "
\n"
append vOut "
Sentence
\n"
append vOut "
Next Eligibility
\n"
append vOut "
\n\n"
append vOut "
\n"
#append vOut "
Name
\n"
append vOut "
Offenses
\n"
append vOut "
Admitted
\n"
append vOut "
Min
\n"
append vOut "
Max
\n"
append vOut "
Hearing Date
\n"
append vOut "
\n\n"
foreach i [lindex $lRetVal 2] {
set vOffense ""
set vInstitution ""
set vSQL "select offense "
append vSQL "from offense_list "
append vSQL "left join offense on offense_id = offense_list.id "
append vSQL "where prisoner_id = '[lindex $i 0]'"
#--- grab offenses --
set lRetValO [::request::db_send query [list $::request::_connParams_(dbname) "$vSQL" ::request]]
foreach ii [lindex $lRetValO 2] {
append vOffense "[lindex $ii 0] "
}
#--- fix institutions ---
foreach p [lindex $i 5] {
append vInstitution "[string toupper [string index $p 0]][string tolower [string range $p 1 end]] "
}
#--- fix dates ---
set lWorkDate [split [lindex [split [lindex $i 6]] 0] "-"]
set vAdmissionDate "[lindex $lWorkDate 1]/[lindex $lWorkDate 2]/[lindex $lWorkDate 0]"
set lWorkDate [split [lindex [split [lindex $i 9]] 0] "-"]
set vEligibilityDate "[lindex $lWorkDate 1]/[lindex $lWorkDate 2]/[lindex $lWorkDate 0]"
#--- fix names ---
set vFname "[string toupper [string index [lindex $i 1] 0]][string tolower [string range [lindex $i 1] 1 end]]"
set vMiddle "[string toupper [string index [lindex $i 2] 0]][string tolower [string range [lindex $i 2] 1 end]]"
set vLast "[string toupper [string index [lindex $i 3] 0]][string tolower [string range [lindex $i 3] 1 end]]"
#--- determine past hearings (vShowTop = 0 means hearing is complete) ---
if {[string equal [string index [lindex $i 11] 0] "-"]} {
set vShowTop 1
} else {
set vShowTop 0
}
set vHoldIt ""
append vHoldIt "
