Index: openacs-4/packages/assessment/www/session.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/assessment/www/session.tcl	26 Nov 2004 20:46:51 -0000	1.20
+++ openacs-4/packages/assessment/www/session.tcl	2 Dec 2004 11:08:48 -0000	1.21
@@ -179,8 +179,10 @@
     if {[empty_string_p $content_value]} {
         append choice_html "<tr><td>$correct_answer</td><td>$choice_answer [ad_quotehtml $choice_title]</td></tr>"
     #multiple choice or multiple response (text)
-    } else {
+    } elseif {[db_string mime_type {SELECT mime_type LIKE 'image%' FROM cr_revisions WHERE revision_id = :content_value}]} {
         append choice_html "<tr><td>$correct_answer</td><td>$choice_answer [ad_quotehtml $choice_title]<img src=\"view/?revision_id=$content_value\"></td></tr>"
+    } else {
+        append choice_html "<tr><td>$correct_answer</td><td>$choice_answer [ad_quotehtml $choice_title]<embed src=\"view/?revision_id=$content_value\"></td></tr>"
     }   
     }
   }