hamiltonc
committed
on 28 Dec 05
fixed a typo in the create session type url
openacs-4/.../attendance/lib/cp-attendance.tcl (+1 -1)
55 55                 }
56 56         }
57 57         
58 58         db_multirow -extend {session_name cal_item_id date_time grade_id} session_list get_sessions { } {
59 59         set cal_item_id [db_string "getcalid" "select cal_item_id from evaluation_cal_task_map where task_item_id=:item_id" -default ""]
60 60         set session_name [db_string "geteventname" "select name from acs_events where event_id=:cal_item_id" -default ""]
61 61         set grade_id [db_string "getgradeid" "select grade_id from evaluation_grades where grade_item_id = :grade_item_id" -default ""]
62 62         set date_time [db_string datetime {
63 63                 select to_char(start_date, 'Mon dd, yyyy hh:miam-')||to_char(end_date, 'hh:miam')
64 64                 from cal_items ci, acs_events e, acs_activities a, timespans s, time_intervals t
65 65                 where e.timespan_id = s.timespan_id
66 66                 and s.interval_id = t.interval_id
67 67                 and e.activity_id = a.activity_id
68 68                 and e.event_id = ci.cal_item_id
69 69                 and ci.cal_item_id = :cal_item_id
70 70         } -default ""]
71 71         }
72 72
73 73 } else {
74 74         set return_url [ad_return_url]
75           set create_session_type_url [export_vars -base "../attendance/admin/create-cal-session-type" { return_url calendar_id }]
  75         set create_session_type_url [export_vars -base "attendance/admin/create-cal-session-type" { return_url calendar_id }]
76 76         set attendance_msg "To use the Attendance Tracking feature you must create a \"Session\" designtation for calendar events. Click <a href=\"$create_session_type_url\">here</a> to let the system create the \"Session\" designation and enable attendance tracking."
77 77 }
78 78