Index: openacs-4/packages/xowf/catalog/xowf.de_DE.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/catalog/xowf.de_DE.ISO-8859-1.xml,v diff -u -N -r1.2.2.35 -r1.2.2.36 --- openacs-4/packages/xowf/catalog/xowf.de_DE.ISO-8859-1.xml 23 Sep 2020 09:24:34 -0000 1.2.2.35 +++ openacs-4/packages/xowf/catalog/xowf.de_DE.ISO-8859-1.xml 27 Sep 2020 16:54:52 -0000 1.2.2.36 @@ -30,6 +30,7 @@ Feedback falsch Zeilen Neuer Workflow + Neuer Exam-Ordner Antwort Antworten Abgegebene Antworten Index: openacs-4/packages/xowf/catalog/xowf.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/catalog/xowf.en_US.ISO-8859-1.xml,v diff -u -N -r1.2.2.33 -r1.2.2.34 --- openacs-4/packages/xowf/catalog/xowf.en_US.ISO-8859-1.xml 23 Sep 2020 09:24:34 -0000 1.2.2.33 +++ openacs-4/packages/xowf/catalog/xowf.en_US.ISO-8859-1.xml 27 Sep 2020 16:54:52 -0000 1.2.2.34 @@ -30,6 +30,7 @@ Feedback Incorrect Lines New Workflow + New Exam Folder Answer Answers Submitted Answers Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v diff -u -N -r1.7.2.80 -r1.7.2.81 --- openacs-4/packages/xowf/tcl/test-item-procs.tcl 26 Sep 2020 10:42:03 -0000 1.7.2.80 +++ openacs-4/packages/xowf/tcl/test-item-procs.tcl 27 Sep 2020 16:54:52 -0000 1.7.2.81 @@ -4,7 +4,8 @@ @author Gustaf Neumann } -:::xo::db::require package xowiki +::xo::db::require package xowiki +::xo::library require xowf-procs ::xo::library require -package xowiki menu-procs ::xo::library require -package xowiki form-field-procs @@ -2963,11 +2964,40 @@ {entry -name New.App.InclassExam -form en:inclass-exam.wf} } } -} + ::xowiki::MenuBar instproc config=test-item-exams { + {-bind_vars {}} + -current_page:required + -package_id:required + -folder_link:required + -return_url + } { + :config=default \ + -bind_vars $bind_vars \ + -current_page $current_page \ + -package_id $package_id \ + -folder_link $folder_link \ + -return_url $return_url + # {entry -name New.Item.ExamFolder -form en:Folder.form -query p.configure=exam_folder} + return { + {clear_menu -menu New} + {entry -name New.Item.ExamFolder -form en:folder.form -query p.source=ExamFolder&publish_status=ready} + } + } +} + +# namespace eval ::xowf { +# ::xowf::WorkflowPage instproc configure_page=exam_folder {name} { +# ns_log notice "configure_page=exam_folder called on [self] ${:name} ($name) [:info precedence] ia <${:instance_attributes}> " +# ns_log notice [:serialize] +# dict set :instance_attributes extra_menu_entries {{config -use test-items}} +# } +# } + + namespace eval ::xowf::test_item { # # Copy the default policy (policy1) from xowiki and add elements for Index: openacs-4/packages/xowf/tcl/xowf-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/xowf-procs.tcl,v diff -u -N -r1.28.2.40 -r1.28.2.41 --- openacs-4/packages/xowf/tcl/xowf-procs.tcl 26 Sep 2020 17:10:19 -0000 1.28.2.40 +++ openacs-4/packages/xowf/tcl/xowf-procs.tcl 27 Sep 2020 16:54:52 -0000 1.28.2.41 @@ -57,6 +57,8 @@ TestItemReorder.form TestItemUpload.form + ExamFolder + online-exam.wf inclass-quiz.wf inclass-exam.wf