Index: openacs-4/packages/assessment/www/show_assessments-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/show_assessments-postgresql.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/show_assessments-postgresql.xql 25 Jun 2004 13:49:51 -0000 1.1
@@ -0,0 +1,22 @@
+
+
+
+ postgresql7.1
+
+
+
+ SELECT as_assessments.assessment_id, as_assessments.name, as_assessments.definition, as_assessments.enable_p
+ FROM as_assessments
+
+
+
+
+
+ SELECT assessment_id, as_sections.section_id, as_sections.name, as_sections.definition
+ FROM as_sections JOIN as_assessment_section_map
+ ON (as_sections.section_id=as_assessment_section_map.section_id)
+ WHERE assessment_id=2
+
+
+
+
\ No newline at end of file
Index: openacs-4/packages/assessment/www/show_assessments.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/show_assessments.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/show_assessments.adp 7 Jun 2004 14:08:27 -0000 1.1
+++ openacs-4/packages/assessment/www/show_assessments.adp 25 Jun 2004 13:49:51 -0000 1.2
@@ -2,9 +2,20 @@
Assessment
@context;noquote@
+
+
+
-
-
Show items
Upload files
\ No newline at end of file
Index: openacs-4/packages/assessment/www/show_assessments.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/Attic/show_assessments.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/assessment/www/show_assessments.tcl 7 Jun 2004 14:08:27 -0000 1.1
+++ openacs-4/packages/assessment/www/show_assessments.tcl 25 Jun 2004 13:49:51 -0000 1.2
@@ -6,6 +6,23 @@
} {
} -properties {
context:onevalue
+ assessment_info:multirow
}
-set context [list "Show Assessments"]
\ No newline at end of file
+set context [list "Show Assessments"]
+
+set i 0
+db_multirow assessment_info asssessment_id_name_definition {} {
+ set assessment_id_matriz($i) $assessment_id
+ incr i 1
+}
+
+#for {set i 0} {$i < [array size assessment_id_matriz]} {incr i 1} {
+# set assessment_id assessment_id_matriz($i)
+# db_multirow section_info section_id_name_definition {}
+#}
+
+#debug_print 1 "Assessments.tcl" ${assessment_info:1(assessment_id)}
+#debug_print 1 "Assessments.tcl" ${assessment_info:rowcount}
+
+ad_return_template
\ No newline at end of file