Index: openacs-4/packages/theme-zen/www/doc/lists/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/theme-zen/www/doc/lists/index.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/theme-zen/www/doc/lists/index.tcl 15 May 2007 20:14:57 -0000 1.2 +++ openacs-4/packages/theme-zen/www/doc/lists/index.tcl 27 Oct 2014 16:41:59 -0000 1.3 @@ -1,14 +1,10 @@ -# create table order_lines (item_id integer, order_id integer, quantity integer, name varchar(300), price float); -# insert into order_lines values (1,1,100,'Apples', 10.2); -# insert into order_lines values (2,1,200,'Oranges', 20.3); -# insert into order_lines values (3,1,300,'Bananas', 30.4); -# insert into order_lines values (4,1,400,'Grapefruit', 40.5); -# insert into order_lines values(5,1,null,'Strawberry',1.6); set order_id 1 -# display_eval {[lc_sepfmt [expr [expr [empty_string_p [string trim $quantity]]?0:$quantity] *$item_price]]} -template::list::create -name order_lines -multirow order_lines -key item_id -actions [list "Add item" [export_vars -base item-add {order_id}] "Add item to this order"] \ +template::list::create -name order_lines \ + -multirow order_lines \ + -key item_id \ + -actions [list "Add item" [export_vars -base item-add {order_id}] "Add item to this order"] \ -html [list summary "List of delicious fruits"] \ -caption "Some delicious fruits?" \ -bulk_actions { @@ -46,4 +42,4 @@ where l.order_id = :order_id } { set item_url [export_vars -base "item" { item_id }] -} \ No newline at end of file +}