Source of multiaccess.tcl

# @datasource users multirow
# Complete list of sample users
# @column first_name First name of the user.
# @column last_name Last name of the user.


db_multirow users get_users {
    select last_name, first_name, first_name || ' ' || last_name as full_name from ad_template_sample_users
}  { 
    set full_name "${last_name}, $first_name" 
}

# Manually access the datasource 

# Get the size
set size [multirow size users]

# Access one column
set very_last_name [multirow get users $size last_name]

# Access one row
multirow get users $size
set last_first_name $users(first_name)

# Mutate a row
multirow set users $size last_name "(Classified)"


# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: