bannerideas_randomWhat it does:
Picks a banner idea at random and returns an HTML presentation of it.Defined in: /web/philip/tcl/ad-bannerideas.tcl
Source code:
set moby_list [bannerideas_moby_list]
set n_available [llength $moby_list]
set random_index [randomRange $n_available]
set random_idea [lindex $moby_list $random_index]
set idea_id [lindex $random_idea 0]
set intro [lindex $random_idea 1]
set more_url [lindex $random_idea 2]
set picture_html [lindex $random_idea 3]
return [bannerideas_present $idea_id $intro $more_url $picture_html]