OpenACS

daveb
committed
oacs-5-2:daveb:20050720195500
on 20 Jul 05
Rewrite eval calls to properly handle list elements in args that have
spaces in the. eval ds_conn $args is handled correctly. eval "ds_conn… Show more
Rewrite eval calls to properly handle list elements in args that have

spaces in the. eval ds_conn $args is handled correctly. eval "ds_conn

[join $args]" is not.

Show less

/lib/cp-expense-tracking.tcl (+47)
  1
  2 # where are we
  3 set current_url [ad_conn url]?[ad_conn query]
  4
  5 if {![info exists package_id]} {
  6     set package_id [ad_conn package_id]
  7 }
  8
  9 if {![info exists community_id]} {
  10     set community_id [dotlrn_community::get_community_id]
  11 }
  12
  13 # where id dotlrn-ecommerce mounted
  14 set expense_tracking_url [dotlrn_community::get_community_url $community_id]
  15
  16 template::list::create \
  17     -name expenses \
  18     -multirow expenses \
  19     -pass_properties { expense_tracking_url current_url} \
  20     -key exp_id \
  21     -elements {
  22         exp_date {
  23                 label "Date"
  24         }
  25         exp_expense {
  26                 label "Expense"
  27         }
  28         exp_amount {
  29                 label "Amount"
  30                 aggregate "sum"
  31                 aggregate_label "Total :  $"
  32                 display_template { $ @expenses.exp_amount;noquote@ }
  33         }
  34         action {
  35                 label "Action"
  36                 display_template { <a href="@expense_tracking_url@/expense-tracking/admin/addedit-expense?exp_id=@expenses.exp_id@&return_url=@current_url@">Edit</a> | <a href="@expense_tracking_url@/expense-tracking/admin/delete-expense?exp_id=@expenses.exp_id@&return_url=@current_url@">Delete</a>}
  37         }
  38     } -orderby {
  39         exp_date { orderby exp_date }
  40         exp_amount { orderby exp_amount }
  41     } -no_data { No expenses for this class. }
  42
  43 # build the multirow
  44
  45 set orderby_clause "[template::list::orderby_clause -name expenses -orderby]"
  46
  47 db_multirow expenses get_expenses { }