"
} else {
set mdaImg ""
}
foreach record $results {
if {[regexp {Match_found_in_} $record]} {
if {[info exists cdb(Show_Relevance_Header)] && [string match Yes $cdb(Show_Relevance_Header)]} {
### 5.3.09 mes: change headers per client
if {[string match "Match_found_in_General_Media_Text" $record]} {
set record "Part of a Set"
}
regsub -all {_} $record { } header
set sdb(RelevanceBy) $header
puts ""
} else {
set mdaImg ""
}
continue
}
set data [MysqlGrokRec $mysqlProdtbl Record_ID $record]
DataStringToArray $data prod $cw_product_tablepath $columnList
if {[regexp -nocase yes $prod(New)]} {
set newImg " 
"
} else {
set newImg ""
}
if {[expr $rowsCount % 2] == 0} {
set colorCell " bgcolor=$cdb(color$sdb(catalog_id)Alt)"
} else {
set colorCell ""
}
set pic [GetItemImageString $prod(Picture_File) small {} {} "$prod(Title)"]
set description "$prod(Description)"
set desc_part [TruncateSentence $description 200]
if {[llength $prod(Catalog_Number_Web)] > 3} {
set showList [lrange $prod(Catalog_Number_Web) 0 2]
set ordercodeStr "[join $showList ", "]..."
} else {
set ordercodeStr [join $prod(Catalog_Number_Web) ", "]
}
set ordercode [lindex $prod(Catalog_Number_Web) 0]
set price [lindex $prod(Price_A) 0]
puts "$desc_part more>>>
| [join $prod(Media) ", "] | $ordercodeStr |
- "
foreach record $results {
set data [MysqlGrokRec $mysqlProdtbl Record_ID $record]
DataStringToArray $data prod $cw_product_tablepath $columnList
puts "
- $prod(Title_Alpha)
- " set description "$prod(Description)" if { [regexp -nocase {^(Online Activities|Related Web Sites)$} $prod(Record_Type)] } { ## 03/12/03 Cindy: For product that Record_Type is ## "Online Activities" or "Related Web Sites ", don't ## truncate the description. puts $description } else { set desc_part [TruncateSentence $description 200] puts "$desc_part..." } puts "
- "
if { [string length $prod(General_Media_Text)] } {
if { [regexp (\[^\013\]*\013) $prod(General_Media_Text) match]} {
puts "$match."
} else {
puts "$prod(General_Media_Text)."
}
}
set printGrade_Level {}
if { [llength $prod(Grade_Level)] } {
puts "[join $prod(Grade_Level) ", "]. "
}
if { [string length $prod(General_Catalog_Number)] } {
puts "$prod(General_Catalog_Number). "
}
if { [regexp -nocase "Y" $prod(New)] } {
puts ""
}
if {$sdb(fromcontent) == 3} {
set reSource ""
if {[string length $prod(Sample_Lesson)] } {
append reSource "$prod(Sample_Lesson)
" } if {[string length $prod(Video_Preview)] } { append reSource "$prod(Video_Preview)
" } if {[string length $prod(Online_Activity)] } { append reSource "$prod(Online_Activity)
" } if {[string length $prod(Related_Web_Site)] } { append reSource "$prod(Related_Web_Site)
" } if { [string length $reSource] > 5 } { puts "$reSource" } } puts " "
### end of each result display
}
puts "