Index: openacs-4/packages/simulation/lib/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/messages.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/simulation/lib/messages.tcl	6 Jan 2004 13:05:47 -0000	1.11
+++ openacs-4/packages/simulation/lib/messages.tcl	12 Jan 2004 13:43:14 -0000	1.12
@@ -11,6 +11,9 @@
     case_id {
         required_p 0
     }
+    limit {
+        default_value {}
+    }
 }
 
 # TODO: finish.  if case id is nil, check that adminplayer_p is true.  if not, fail.
@@ -98,6 +101,7 @@
     and    w.workflow_id = wc.workflow_id
     [ad_decode [exists_and_not_null case_id] 1 "and sm.case_id = :case_id" ""]
     order  by sm.creation_date desc
+    [ad_decode $limit "" "" "limit $limit"]
 " {
     set message_url [export_vars -base "[apm_package_url_from_id $package_id]simplay/message" { item_id case_id }]
     set creation_date_pretty [lc_time_fmt $creation_date_ansi "%x %X"]