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