Index: openacs-4/packages/attendance/www/admin/mark.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/www/admin/mark.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/attendance/www/admin/mark.adp	9 Jun 2005 05:54:37 -0000	1.2
+++ openacs-4/packages/attendance/www/admin/mark.adp	12 Aug 2005 12:26:46 -0000	1.3
@@ -2,6 +2,8 @@
 <property name="title">@page_title;noquote@</property>
 <property name="context">"@context;noquote@"</property>
 
+<a href="print?item_id=@item_id@" target="_blank">Printer Friendly View</a>
+
 @message;noquote@
 
 <form name="mark_attendance" action="mark-2" method="POST">
Index: openacs-4/packages/attendance/www/admin/print.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/www/admin/print.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/attendance/www/admin/print.adp	12 Aug 2005 12:26:46 -0000	1.1
@@ -0,0 +1,8 @@
+<master src="printable-master">
+<property name="title">@page_title;noquote@</property>
+<property name="context">"@context;noquote@"</property>
+
+<h1>@page_title@</h1>
+@message;noquote@
+<listtemplate name="eval_members"></listtemplate>
+</form>
\ No newline at end of file
Index: openacs-4/packages/attendance/www/admin/print.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/www/admin/print.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/attendance/www/admin/print.tcl	12 Aug 2005 12:26:46 -0000	1.1
@@ -0,0 +1,59 @@
+ad_page_contract {
+    
+	Display printer friendly attendance page
+    
+    @author hamilton.chua@gmail.com
+    @creation-date May 2005
+    @cvs-id $Id: print.tcl,v 1.1 2005/08/12 12:26:46 hamiltonc Exp $
+} {
+    item_id:integer,notnull
+    {return_url ""}
+} 
+
+# initial vars
+set page_title "Attendance"
+set context $page_title
+set community_id [dotlrn_community::get_community_id]
+
+# task info
+
+db_1row "getgradeid" "select task_id, task_name, due_date from evaluation_tasks where task_item_id = :item_id"
+set cal_item_id [db_string "get_cal_id" "select cal_item_id from evaluation_cal_task_map where task_item_id =:item_id"]
+
+calendar::item::get -cal_item_id $cal_item_id -array cal_item_info
+
+# set due_date_pretty [lc_time_fmt $due_date "%q %r"]
+
+set message "<p>Attendance for <b>$task_name</b> on $cal_item_info(full_start_date)</p>"
+
+template::list::create \
+    -name eval_members \
+    -multirow eval_members \
+    -elements {
+	member_name { 
+		label "Name"
+	}
+        medical_needs {
+		label "Medical Needs"
+        }
+        special_issues {
+		label "Special Issues"
+        }
+	present {
+		label "Present"
+	    	display_template { <input type=checkbox name=\"user_id\" value=\"@eval_members.user_id@\"  <if @eval_members.present@>checked</if>>  }
+	}
+     }
+
+set users [dotlrn_community::list_users $community_id]
+
+template::multirow create eval_members user_id member_name medical_needs special_issues present
+
+ns_log Notice " ** $users ** "
+
+foreach user $users {
+	set medical_needs [db_string "get_medical_issues" "select allergies from person_info where person_id =[ns_set get $user user_id]" -default ""]
+        set special_issues [db_string "get_special_issues" "select special_needs from person_info where person_id = [ns_set get $user user_id]" -default ""]
+	set present [db_0or1row "checkattendance" "select user_id from attendance_cal_item_map where cal_item_id = :cal_item_id and user_id = [ns_set get $user user_id]"]
+	template::multirow append eval_members "[ns_set get $user user_id]" "[ns_set get $user first_names] [ns_set get $user last_name]" "$medical_needs" "$special_issues" "$present"
+}
Index: openacs-4/packages/attendance/www/admin/printable-master.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/www/admin/printable-master.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/attendance/www/admin/printable-master.adp	12 Aug 2005 12:26:46 -0000	1.1
@@ -0,0 +1,20 @@
+<html>
+<head>
+	<title>@title@</title>
+	<style>
+		body {
+			background-color: #FFFFFF;
+			margin-left: 0px;
+			margin-top: 0px;
+			margin-right: 0px;
+			margin-bottom: 0px;
+			font-family:Arial, Verdana, sans-serif;
+		}
+	</style>	
+</head>
+<body>
+<br><br>
+<slave>
+<br><br>
+</body>
+</html>
\ No newline at end of file
Index: openacs-4/packages/attendance/www/admin/printable-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/www/admin/printable-master.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/attendance/www/admin/printable-master.tcl	12 Aug 2005 12:26:46 -0000	1.1
@@ -0,0 +1,11 @@
+if { ![info exists section] } {
+    set section {}
+}
+
+if { ![info exists header_stuff] } {
+    set header_stuff {}
+}
+
+if { ![info exists context_bar] } {
+    set context_bar {}
+}
\ No newline at end of file