Index: openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl,v diff -u -r1.5.2.6 -r1.5.2.7 --- openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl 6 Oct 2020 15:15:11 -0000 1.5.2.6 +++ openacs-4/packages/evaluation-portlet/tcl/test/evaluation-portlet-procs.tcl 9 Sep 2022 13:03:10 -0000 1.5.2.7 @@ -17,7 +17,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -47,7 +47,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -82,7 +82,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -120,7 +120,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -160,7 +160,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -193,7 +193,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -230,7 +230,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -263,7 +263,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -294,7 +294,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -329,7 +329,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -367,7 +367,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -407,7 +407,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -440,7 +440,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -477,7 +477,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -510,7 +510,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -542,7 +542,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -577,7 +577,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -615,7 +615,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -656,7 +656,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -689,7 +689,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -726,7 +726,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Get the class material url @@ -759,7 +759,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Request a notification GradeBook @@ -782,7 +782,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) set class_material_url [evaluation::twt::get_evaluation_url] @@ -804,7 +804,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Unsubscribe a notification GradeBook @@ -829,7 +829,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) # Unsubscribing a notification Evaluation @@ -854,7 +854,7 @@ tclwebtest::cookies clear # Login user - array set user_info [twt::user::create -admin] + array set user_info [acs::test::user::create -admin] twt::user::login $user_info(email) $user_info(password) set class_material_url [evaluation::twt::get_evaluation_url]