Index: openacs-4/packages/survey/www/admin/#response-drill-down.adp# =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/Attic/#response-drill-down.adp#,v diff -u -N --- openacs-4/packages/survey/www/admin/#response-drill-down.adp# 16 Sep 2002 00:00:24 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,9 +0,0 @@ - - -@survey_id@ - -@survey_name@: Responses to Question -@context_bar@ -@question_text@ - - Index: openacs-4/packages/survey/www/admin/#response-drill-down.tcl# =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/Attic/#response-drill-down.tcl#,v diff -u -N --- openacs-4/packages/survey/www/admin/#response-drill-down.tcl# 16 Sep 2002 00:00:24 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,80 +0,0 @@ -ad_page_contract { - - Display the list of users who gave a particular answer to a - particular question. - - @param question_id question for which we're drilling down responses - @param choice_id we're seeking respondents who selected this choice - as an answer to question - - @author philg@mit.edu - @author jsc@arsdigita.com - @author nstrug@arsdigita.com - @date February 16, 2000 - @cvs-id $Id: #response-drill-down.tcl#,v 1.1 2002/09/16 00:00:24 daveb Exp $ - -} { - - question_id:integer,notnull - choice_id:integer,notnull - -} - -ad_require_permission $question_id survey_admin_survey - -# get the prompt text for the question and the ID for survey of -# which it is part - -set question_exists_p [db_0or1row get_question_text ""] -get_survey_info -section_id $section_id -set survey_name $survey_info(name) -set survey_id $survey_info(survey_id) - -if { !$question_exists_p } { - db_release_unused_handles - ad_return_error "Survey Question Not Found" "Could not find a survey question #$question_id" - return -} - -set response_exists_p [db_0or1row get_response_text ""] - -if { !$response_exists_p } { - db_release_unused_handles - ad_return_error "Response Not Found" "Could not find the response #$choice_id" - return -} - -set user_id [ad_get_user_id] - -set results "" - -# Get information of users who responded in particular manner to -# choice question. -db_multirow users all_users_for_response "" { - - append results "
  • $responder_name\n" -} - - - -doc_return 200 text/html "[ad_header "People who answered \"$response_text\""] - -

    Responder List

    - -[ad_context_bar \ - [list "one?[export_url_vars survey_id]" $survey_info(name)] \ - [list "responses?[export_url_vars survey_id]" "Responses"] \ - "One Response"] - -
    - -$survey_name responders who answered \"$response_text\" -when asked \"$question_text\": - -
      -$results -
    - -[ad_footer] -" - Index: openacs-4/packages/survey/www/admin/response-delete-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/response-delete-postgresql.xql,v diff -u -N -r1.1 -r1.1.2.1 --- openacs-4/packages/survey/www/admin/response-delete-postgresql.xql 16 Sep 2002 00:00:24 -0000 1.1 +++ openacs-4/packages/survey/www/admin/response-delete-postgresql.xql 9 Oct 2002 11:55:25 -0000 1.1.2.1 @@ -1,7 +1,8 @@ - oracle8.1.6 +postgresql7.1 + begin Index: openacs-4/packages/survey/www/admin/send-mail-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/send-mail-postgresql.xql,v diff -u -N -r1.1 -r1.1.2.1 --- openacs-4/packages/survey/www/admin/send-mail-postgresql.xql 16 Sep 2002 00:00:24 -0000 1.1 +++ openacs-4/packages/survey/www/admin/send-mail-postgresql.xql 9 Oct 2002 11:55:25 -0000 1.1.2.1 @@ -121,7 +121,7 @@ select survey_response__initial_user_id(response_id) from survey_responses_latest where survey_id=$survey_id) - + @@ -135,6 +135,6 @@ select survey_response__initial_user_id(response_id) from survey_responses_latest where survey_id=$survey_id) - + \ No newline at end of file Index: openacs-4/packages/survey/www/admin/user-responses-delete-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/user-responses-delete-postgresql.xql,v diff -u -N -r1.1 -r1.1.2.1 --- openacs-4/packages/survey/www/admin/user-responses-delete-postgresql.xql 16 Sep 2002 00:00:25 -0000 1.1 +++ openacs-4/packages/survey/www/admin/user-responses-delete-postgresql.xql 9 Oct 2002 11:55:25 -0000 1.1.2.1 @@ -1,7 +1,7 @@ - oracle8.1.6 + postgresql7.1 Index: openacs-4/packages/survey/www/admin/view-text-responses-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/view-text-responses-oracle.xql,v diff -u -N -r1.1 -r1.1.2.1 --- openacs-4/packages/survey/www/admin/view-text-responses-oracle.xql 16 Sep 2002 00:00:25 -0000 1.1 +++ openacs-4/packages/survey/www/admin/view-text-responses-oracle.xql 9 Oct 2002 11:55:25 -0000 1.1.2.1 @@ -1,5 +1,6 @@ +oracle8.1.6 Index: openacs-4/packages/survey/www/admin/view-text-responses-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/view-text-responses-postgresql.xql,v diff -u -N -r1.1 -r1.1.2.1 --- openacs-4/packages/survey/www/admin/view-text-responses-postgresql.xql 16 Sep 2002 00:00:25 -0000 1.1 +++ openacs-4/packages/survey/www/admin/view-text-responses-postgresql.xql 9 Oct 2002 11:55:25 -0000 1.1.2.1 @@ -1,5 +1,6 @@ +postgresql7.1