Index: openacs-4/packages/assessment/tcl/as-file-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-file-procs.tcl,v diff -u -r1.9 -r1.9.2.1 --- openacs-4/packages/assessment/tcl/as-file-procs.tcl 7 Aug 2017 23:48:03 -0000 1.9 +++ openacs-4/packages/assessment/tcl/as-file-procs.tcl 13 Sep 2022 12:32:21 -0000 1.9.2.1 @@ -9,10 +9,10 @@ ad_proc -public as::file::new { {-file_pathname:required} } { + New file to the CR + @author eperez@it.uc3m.es @creation-date 2004-10-25 - - New file to the CR } { set package_id [ad_conn package_id] set folder_id [as::assessment::folder_id -package_id $package_id] Index: openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl,v diff -u -r1.9 -r1.9.2.1 --- openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl 13 Jun 2018 11:43:46 -0000 1.9 +++ openacs-4/packages/assessment/tcl/as-item-answer-procs.tcl 13 Sep 2022 12:36:43 -0000 1.9.2.1 @@ -16,10 +16,10 @@ {-regexp_text ""} {-allowed_answerbox_list ""} } { + New item answer to the data database + @author Natalia Perez (eperez@it.uc3m.es) @creation-date 2004-09-29 - - New item answer to the data database } { set package_id [ad_conn package_id] set folder_id [db_string get_folder_id "select folder_id from cr_folders where package_id=:package_id"] Index: openacs-4/packages/assessment/tcl/as-item-choice-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-choice-procs.tcl,v diff -u -r1.12 -r1.12.2.1 --- openacs-4/packages/assessment/tcl/as-item-choice-procs.tcl 13 Jun 2018 11:43:46 -0000 1.12 +++ openacs-4/packages/assessment/tcl/as-item-choice-procs.tcl 13 Sep 2022 12:37:46 -0000 1.12.2.1 @@ -21,10 +21,10 @@ {-percent_score ""} {-fixed_position ""} } { + New item choice to the data database + @author Eduardo Perez (eperez@it.uc3m.es) @creation-date 2004-07-26 - - New item choice to the data database } { set package_id [ad_conn package_id] set folder_id [as::assessment::folder_id -package_id $package_id] @@ -59,10 +59,10 @@ -choice_id:required -mc_id:required } { + New item choice revision + @author Timo Hentschel (timo@timohentschel.de) @creation-date 2004-12-07 - - New item choice revision } { # New revision of as_item_choice in the CR (and as_item_choices table) getting the revision_id (as_item_choice_id) db_transaction { @@ -94,10 +94,10 @@ -mc_id:required {-copy_correct_answer_p "t"} } { + Copy a Multiple Choice + @author Timo Hentschel (timo@timohentschel.de) @creation-date 2004-12-07 - - Copy a Multiple Choice } { set package_id [ad_conn package_id] set folder_id [as::assessment::folder_id -package_id $package_id] Index: openacs-4/packages/assessment/tcl/as-item-data-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-item-data-procs.tcl,v diff -u -r1.16.2.1 -r1.16.2.2 --- openacs-4/packages/assessment/tcl/as-item-data-procs.tcl 4 Oct 2021 15:30:02 -0000 1.16.2.1 +++ openacs-4/packages/assessment/tcl/as-item-data-procs.tcl 13 Sep 2022 12:38:57 -0000 1.16.2.2 @@ -25,10 +25,10 @@ {-points ""} {-package_id ""} } { + New as_item_data to the database + @author Eduardo Perez (eperez@it.uc3m.es) @creation-date 2004-09-12 - - New as_item_data to the database } { if {$package_id eq ""} { set package_id [ad_conn package_id] @@ -98,10 +98,10 @@ {-session_id ""} {-section_id ""} } { + Get as_item_data from the database + @author Timo Hentschel (timo@timohentschel.de) @creation-date 2004-12-24 - - Get as_item_data from the database } { if {$session_id eq ""} { set last_sessions [db_list_of_lists last_sessions {}]