random-photo-portlet-procs.tcl