Index: openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request-2.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request-2.tcl 6 Sep 2005 05:25:38 -0000 1.2 +++ openacs-4/packages/dotlrn-ecommerce/www/ecommerce/application-request-2.tcl 7 Sep 2005 17:44:12 -0000 1.3 @@ -11,8 +11,6 @@ } { user_id:integer,notnull return_url:notnull - rel_id:integer,notnull - session_id:integer,notnull,optional } -properties { } -validate { } -errors { @@ -21,7 +19,7 @@ set assessment_id [parameter::get -parameter ApplicationAssessment -default ""] set viewing_user_id [ad_conn user_id] -if { ! [exists_and_not_null session_id] && ! [empty_string_p $assessment_id] } { +if { ! [empty_string_p $assessment_id] && $assessment_id != -1 } { set session_id [db_string session { select ss.session_id @@ -47,13 +45,4 @@ } } -# Create a mapping for the application rel_id and the assessment -# session -if { [exists_and_not_null session_id] } { - db_dml map_application_to_assessment { - insert into dotlrn_ecommerce_application_assessment_map - values (:rel_id, :session_id) - } -} - ad_returnredirect $return_url \ No newline at end of file