<% set f [ns_conn form] set file [ns_set get $f img] regsub -all {\\([^\\])} $file {\1} file regsub "^.*/" $file {} name regsub {^[0-9]+_} $name {} name regsub {^[0-9]+-[0-9]+[a-z]?_} $name {} name regsub {\.(gif|jpg)$} $name {} name regsub -all {_} $name { } name %> shiobara.com : our new house! : picture - <%= $name %> <% regsub {/[^/]+$} [ns_conn url] {} curdir cd "[ns_info pageroot]$curdir" set dimensions [ns_jpegsize $file] set x [lindex $dimensions 0] set y [lindex $dimensions 1] if {[ns_set get $f size] != {full}} { set x [expr int($x * 0.5)] set y [expr int($y * 0.5)] } %>

[ Back to the photo album ]

<% ns_puts "$name" %> <% #ns_puts "$name ($x x $y)" %>

<%= $name %>

<% ns_puts "$name" %> <% #ns_puts "$name ($x x $y)" %>

<% if {[ns_set get $f size] != {full}} { ns_puts "\[ Click here for full size image \]" } else { ns_puts "\[ Click here for half size image \]" } %>