Index: openacs-4/packages/assessment/assessment.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/assessment.info,v diff -u -N -r1.47 -r1.48 --- openacs-4/packages/assessment/assessment.info 5 Nov 2008 19:08:35 -0000 1.47 +++ openacs-4/packages/assessment/assessment.info 1 Dec 2008 16:57:02 -0000 1.48 @@ -9,8 +9,8 @@ Eduardo Perez Ureta - Assessment package that will replace the survey, - quizz, complex survey, poll and other data collection packages + Assessment package that will replace the surveys + quizz, complex survey, poll and other data collection packages that OpenACS currently supports. 2007-06-15 E-LANE @@ -19,14 +19,14 @@ #assessment.Assessment# - - - - - + + + + + - + Index: openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml,v diff -u -N -r1.84 -r1.85 --- openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml 26 Feb 2008 16:13:47 -0000 1.84 +++ openacs-4/packages/assessment/catalog/assessment.en_US.ISO-8859-1.xml 1 Dec 2008 16:57:02 -0000 1.85 @@ -15,6 +15,7 @@ Tcl_code The action that will be executed. Action to Perform + Action Performed Add another choice Add another question Add Comment @@ -45,13 +46,15 @@ Add to assessment "%assessment_data.title%" Add to section "%section_title%" Add Trigger + Admin Admin Actions Administration Question Catalog Administration Categories Administration Requests Administration Administer triggers Administration + Advanced Options After this Assessment: All All @@ -64,6 +67,7 @@ allow %assessment_data.number_tries% Alphabetical AND + this assessment is anonymous Anonymous Anonymous Responses Anonymous respondents allowed @@ -180,6 +184,7 @@ Comparison Type Different fields below will be required depending on this setting Complete + complete responses Condition Confirmation Consent Page @@ -193,6 +198,7 @@ Copy Question Copy Section Copy this assessment + Correct Answer Correct Answer Choice Is this the correct answer? Created by @@ -270,13 +276,16 @@ Feedback given to the user. Feedback right<br>(Optional) Feedback given to the user if correctly answered (you can create feedback for individual answers separately). + Feedback right (Optional) Feedback wrong<br>(Optional) Feedback given to the user if answer was wrong (you can create feedback for individual answers separately) + Feedback wrong (Optional) QTI Field Code<br>(Optional) A short label used when exporting question in QTI CSV Field Name<br>(Optional) A short label used when exporting question answers to spreadsheets (will be generated if you do not create it) Your file is too large. Files are limited to %pretty_max_size% bytes.\n + File Upload Your file is zero-length. Either you attempted to upload a zero length file, a file which does not exists, or something went wrong during the transfer.\n Filter Add New Filter @@ -297,6 +306,7 @@ Filters Available Filters Currently Mapped to This Item There are no filters matching these criteria. + Finish Finish Time Finished Fixed Order Position @@ -314,6 +324,7 @@ Import QTI ZIP File Import Results Incomplete + incomplete responses Partial Credit If there is more than one correct answer, this will give the user partial credit for the fraction of answers they submit that are correct. If not allowed the user must answer all questions correctly to get any credit for the question. Instructions<br>(Optional) @@ -333,6 +344,7 @@ Textarea Textbox Name of the question, identifier searchable in the catalog + Item Question Question Enter the question the user will see here (may include images and links to files). Does this item have to be answered (when displayed)? @@ -371,9 +383,11 @@ Other Number of tries allowed: %assessment_data.number_tries% Live + Long Answer <b>Note:</b> This assessment is set to be anonymous and<br>your name will not be included in the results. Congratulations, you're done! Use the link below to review your answers. + Congratulations, you're done! Everyone eligible to take this assessment Everyone who has already completed this assessment @@ -406,6 +420,7 @@ Move Down Move Up Allow Multiple Answers + Multiple Choice Allo Multiple Answers? Name<br>(Optional) Assessment name of the new copy @@ -423,6 +438,7 @@ -- None -- No open assessments No responses + No reviewer comments have been added to this assessment yet. No sessions found Immediate retry allowed None @@ -459,6 +475,7 @@ Text for Reference Answer. A title for this Open Question so it can be reused in the future. OR + Or use choices from an existing question Order of Entry Order Type Ordering of choices @@ -477,9 +494,11 @@ Performed Permissions Please select one + Points points Points for Answer How many points is this question answer worth. + Points for Question (Optional) Points for Question<br>(Optional) How many points is this question worth in a section. This is a measurement for relative difficulty. Points for Section<br>(Optional) @@ -488,6 +507,7 @@ Prepend Empty Item Preview <a href="../instructions?assessment_id=%assessment_id%">Preview</a> (your response will be recorded) + Publish failed. Following section(s) have no questions: %empty_sections% Publish Status Publish Status Query @@ -499,6 +519,7 @@ Questions Randomized Randomized + Reference Answer Used in the Registration Process Main Site Custom Registration Questionnaire: "%assessment_data.title%" Registrated respondents required @@ -530,18 +551,21 @@ Comment Enter your comment for this question here <a href="%assessment_data.url%" title="Start">Start %assessment_data.title%</a> + Retake Previously Completed. <a href="%assessment_data.url%" title="Retake Assessment">Retake %assessment_data.title%</a> Return Return URL Old responses displayed Reuse Responses Review Review Assessment + Reviewer Comments Right Rule-based Branching A title for this short answer feature set so it can be reused in the future. Save and add another question Save and finish + Save this set of answers to reuse later Score Search Search for questions @@ -584,12 +608,14 @@ Select All Selected Sections Send bulk mail + Send e-mail Send Mail Send mail to Session Remaining session time: %assessment_data.pretty_remaining_time% Sessions New Registration Assessment + Short Answer Show Assessments Show Feedback Question name displayed @@ -611,6 +637,7 @@ Subtext<br>(Optional) Summary Section 1 + Take Target Community Choose the target community The condition to branch or execute the action @@ -649,9 +676,11 @@ Unsecure access allowed Unsubscribe Unsubscribe user to this rule" + Untaken Upload files User Answer User + users in community Users may edit their responses Users may not edit their responses Validation Block<br>(Optional) @@ -669,29 +698,4 @@ When this will be executed? Yes Yesterday - Action Performed - Reviewer Comments - No reviewer comments have been added to this assessment yet. - Admin - Item Question - Points - Multiple Choice - Correct Answer - Or use choices from an existing question - Short Answer - Long Answer - File Upload - Points for Question (Optional) - Feedback right (Optional) - Feedback wrong (Optional) - Advanced Options - users in community - complete responses - incomplete responses - Publish failed. Following section(s) have no questions: %empty_sections% - this assessment is anonymous - Untaken - Finish - Take - Retake Index: openacs-4/packages/assessment/catalog/assessment.es_ES.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/catalog/assessment.es_ES.ISO-8859-1.xml,v diff -u -N -r1.24 -r1.25 --- openacs-4/packages/assessment/catalog/assessment.es_ES.ISO-8859-1.xml 10 Dec 2007 09:12:27 -0000 1.24 +++ openacs-4/packages/assessment/catalog/assessment.es_ES.ISO-8859-1.xml 1 Dec 2008 16:57:02 -0000 1.25 @@ -15,6 +15,7 @@ C�digo TCL La acci�n se har�. Acci�n a realizar + Acci�n Realizada A�adir otra selecci�n A�adir otra pregunta A�adir comentario @@ -45,13 +46,15 @@ A�adir al cuestionario "%assessment_data.title%" A�adir a la secci�n "%section_title%" A�adir condici�n + Admin Administraci�n Administraci�n de acciones Administraci�n del cat�logo de preguntas Administraci�n de Categor�as Administraci�n de peticiones Administrar condiciones Administraci�n + Opciones Avanzadas Despu�s de este cuestionario: Todos Todo @@ -64,6 +67,7 @@ permite %assessment_data.number_tries% Alfab�ticamente Y + este cuestionario es an�nimo An�nimo Respuestas an�nimas Permitir que sea respondido por an�nimos @@ -176,6 +180,7 @@ Tipo de Comparaci�n Diferentes campos ser�n requeridos m�s adelante dependiendo de este valor Completado + complete las respuestas Condici�n Confirmaci�n P�gina de Consentimiento @@ -189,6 +194,7 @@ Copiar Pregunta Copiar Secci�n Copiar este cuestionario + Respuesta Correcta Elegir Respuesta Correcta �es esta respuesta la correcta? Creado por @@ -265,13 +271,16 @@ Feedback mostrado al usuario. Feedback para respuesta correcta Feedback dado al alumno si ha contestado correctamente la pregunta. + Feedback para respuesta correcta (opcional) Feedback para respuesta err�nea Feedback dado al alumno si ha contestado err�neamente + Feedback para respuesta incorrecta (opcional) C�digo QTI para el Campo Breve etiqueta usada cuando se exporta una pregunta (por ejemplo, el nombre de una columna o una fila en una hoja de c�lculo) CSV Nombre del Campo Nombre corto usado en la exportaci�n de preguntas y respuestas en archivo CSV Tu archivo es demasiado grande. El tama�o de los archivos est� limitado a %pretty_max_size% bytes. + Fichero Subido Tu archivo tiene 0 bytes. Puede que hayas intentado subir un archivo de 0 bytes, un archivo que no exista o puede que haya ocurrido un error durante la transferencia. Filtro Agregar nuevo Filtro @@ -292,6 +301,7 @@ Filtros Disponibles Filtros actualmente mapeados a este objecto No hay filtros que cumplan este criterio. + Terminar Hora de finalizaci�n Hora de finalizaci�n Orden fijo @@ -309,6 +319,7 @@ Importar un fichero QTI ZIP Resultados de la importaci�n Incompleto + Respuestas Incompletas Incrementar Si ha elegido "S�" en "incrementar", se obtendr�n (n�mero de respuestas correctas/n�mero total de respuestas)*100% puntos. Si ha elegido "no", se obtendr� el 100% en caso de que todas las respuestas esten correctas, 0% en otro caso. @@ -329,6 +340,7 @@ �rea de texto Caja de texto Nombre de la pregunta, identificador a buscar en el cat�logo + Pregunta Pregunta Introduzca la pregunta que el usuario ver� (puede incluir im�genes y enlaces) �Tiene que contestarse obligatoriamente esta pregunta? @@ -363,6 +375,7 @@ Otro N�mero de intentos permitidos: %assessment_data.number_tries% Activo + Respuesta de texto largo <b>Nota:</b> Se trata de un cuestionario an�nimo por lo que su nombre no aparecer� en los resultados. �Enhorabuena, ha terminado! Siga el enlace para revisar sus respuestas. Alguien que hace este cuestionario @@ -396,6 +409,7 @@ Bajar Subir Permitir m�ltiples respuestas + Selecci�n m�ltiple Desea permitir m�ltiples respuestas? Nombre Nombre de la nueva copia del cuestionario @@ -413,6 +427,7 @@ -- Ninguno -- Sin Cuestionarios Abiertos Sin respuestas + No hay comentarios de los revisores todav�a Sin Sesiones Permitir reintentar el cuestionario de forma inmediata Ninguno @@ -451,6 +466,7 @@ Texto para la Respuesta de Referencia. T�tulo para esta Pregunta Abierta. Usado para busquedas en un futuro. O + O utilice las opciones de una pregunta existente Orden de entrada Tipo de orden Orden de las respuestas @@ -470,10 +486,12 @@ Realizado Permisos Por favor, seleccione uno + Puntos puntos Puntos para la respuesta Los puntos que vale responder esta pregunta. + Puntos para la pregunta (opcional) Puntos por pregunta Cu�ntos puntos vale esta pregunta en una secci�n. �sta es una medida de la dificultad relativa. Puntos por Secci�n @@ -483,6 +501,7 @@ A�adir un elemento vac�o Visualizaci�n previa <a href="../instructions?assessment_id=%assessment_id%">Vista previa</a> (sus respuestas ser�n grabadas) + La publicaci�n ha fallado. Las secciones a continuaci�n no contienen preguntas: %empty_sections% Estado de publicaci�n Estado de publicaci�n Consulta @@ -494,6 +513,7 @@ Preguntas Aleatoria Aleatorio + Respuesta de Referencia Usando en el proceso de Registro Cuestionario de Registro de personalizaci�n del Sitio Principal: "%assessment_data.title%" Se requiere que los usuarios est�n registrados @@ -513,6 +533,7 @@ Pedir notificaci�n para El cuestionario solicitado no existe El cuestionario no est� disponible + Intentos borrados. Obligatorio Respondiendo a usuarios Opciones de la respuesta: @@ -524,18 +545,21 @@ Cambiar explicaci�n Introduzca su comentario para esta pregunta aqu� <a href="%assessment_data.url%" title="Empezar">Empezar %assessment_data.title%</a> + Volver a responder Ya completado. <a href="%assessment_data.url%" title="Reempezar cuestionario">Reempezar %assessment_data.title%</a> Volver URL de Finalizaci�n Visualizar las respuestas anteriores Reutilizar Respuestas Revisar Revisi�n del Examen + Comentarios de los Revisores Derecha Branching seg�n una regla T�tulo para esta caracter�stica de short answer para que pueda reutilizarse en el futuro. Salvar y a�adir otra pregunta Salvar y terminar + Guardar este conjunto de respuestas para ser reutilizadas Puntuaci�n Buscar Buscar y a�adir preguntas @@ -577,12 +601,14 @@ Seleccionar todo Secciones Seleccionadas Enviar e-mail + Enviar correo Enviar correo Enviar correo a Sesi�n Tiempo restante de la sesi�n: %assessment_data.pretty_remaining_time% Sesiones Nuevo Cuestionario de Suscripci�n + Respuesta de texto corto Ver Cuestionarios Mostrar Feedback Visualizar el nombre de la pregunta @@ -604,6 +630,7 @@ Subtexto Resumen Secci�n 1 + Responder Comunidad Destino Elija la comunidad destino La condici�n para saltar o ejecutar la acci�n @@ -643,9 +670,11 @@ Permitir acceso no seguro Desuscribirse Desuscribir al usuario de esta regla + Sin responder Subir ficheros Respuesta del usuario Usuario + usuarios en la comunidad Los usuarios pueden editar sus respuestas Los usuarios no pueden editar sus respuestas Bloque de Validaci�n Index: openacs-4/packages/assessment/lib/actions-results.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/actions-results.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/lib/actions-results.adp 22 Feb 2008 23:42:32 -0000 1.2 +++ openacs-4/packages/assessment/lib/actions-results.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,6 @@ @actions.user_message@ - @actions.error_txt@ + @actions.error_txt@ \ No newline at end of file Index: openacs-4/packages/assessment/lib/assessment.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/assessment.tcl,v diff -u -N -r1.24 -r1.25 --- openacs-4/packages/assessment/lib/assessment.tcl 15 Sep 2008 16:25:06 -0000 1.24 +++ openacs-4/packages/assessment/lib/assessment.tcl 1 Dec 2008 16:57:02 -0000 1.25 @@ -45,9 +45,14 @@ permission::require_permission -object_id $assessment_id -privilege read if {![info exists assessment_data(assessment_id)]} { ad_return_complaint 1 "[_ assessment.Requested_assess_does]" - ad_script_abort + return } +if { $assessment_data(publish_status) ne "live" } { + ad_return_complaint 1 [_ assessment.Requested_assess_is_no_longer_available] + return +} + set assessment_rev_id $assessment_data(assessment_rev_id) set number_tries $assessment_data(number_tries) db_1row total_tries {} @@ -330,7 +335,7 @@ {session_id:text(hidden) {value $session_id}} } -multirow create items as_item_id name title description subtext required_p max_time_to_complete presentation_type html submitted_p content as_item_type_id choice_orientation next_title validate_block next_pr_type question_text +multirow create items as_item_id name title description subtext required_p max_time_to_complete presentation_type html submitted_p content as_item_type_id choice_orientation next_as_item_id validate_block next_pr_type question_text set unsubmitted_list [list] set validate_list [list] @@ -464,10 +469,10 @@ upvar 0 items:$i this if {$i < ${items:rowcount}} { upvar 0 items:$j next - set this(next_title) $next(title) + set this(next_as_item_id) $next(as_item_id) set this(next_pr_type) $next(presentation_type) } else { - set this(next_title) "" + set this(next_as_item_id) "" set this(next_pr_type) "" } } Index: openacs-4/packages/assessment/lib/finish.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/finish.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/lib/finish.adp 12 Jun 2006 03:30:09 -0000 1.1 +++ openacs-4/packages/assessment/lib/finish.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -1,6 +1,4 @@ @page_title;noquote@ @context;noquote@ -

#assessment.View_results#

-
Index: openacs-4/packages/assessment/lib/item-show-display-cb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-cb.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/lib/item-show-display-cb.adp 8 Dec 2004 15:30:32 -0000 1.1 +++ openacs-4/packages/assessment/lib/item-show-display-cb.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-display-f.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-f.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/lib/item-show-display-f.adp 12 Jun 2006 02:49:49 -0000 1.2 +++ openacs-4/packages/assessment/lib/item-show-display-f.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-display-fu.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-fu.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/lib/item-show-display-fu.adp 12 Jun 2006 02:49:49 -0000 1.2 +++ openacs-4/packages/assessment/lib/item-show-display-fu.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-display-rb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-rb.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/lib/item-show-display-rb.adp 8 Dec 2004 15:30:32 -0000 1.1 +++ openacs-4/packages/assessment/lib/item-show-display-rb.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-display-sa.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-sa.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/lib/item-show-display-sa.adp 8 Dec 2004 15:30:32 -0000 1.1 +++ openacs-4/packages/assessment/lib/item-show-display-sa.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-display-sb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-sb.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/lib/item-show-display-sb.adp 8 Dec 2004 15:30:32 -0000 1.1 +++ openacs-4/packages/assessment/lib/item-show-display-sb.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-display-ta.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-ta.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/lib/item-show-display-ta.adp 8 Dec 2004 15:30:32 -0000 1.1 +++ openacs-4/packages/assessment/lib/item-show-display-ta.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-display-tb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-display-tb.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/lib/item-show-display-tb.adp 8 Dec 2004 15:30:32 -0000 1.1 +++ openacs-4/packages/assessment/lib/item-show-display-tb.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-fu.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-fu.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/lib/item-show-fu.adp 12 Jun 2006 02:49:49 -0000 1.2 +++ openacs-4/packages/assessment/lib/item-show-fu.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-mc.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-mc.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/lib/item-show-mc.adp 8 Dec 2004 15:30:32 -0000 1.1 +++ openacs-4/packages/assessment/lib/item-show-mc.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-oq.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-oq.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/lib/item-show-oq.adp 8 Dec 2004 15:30:32 -0000 1.1 +++ openacs-4/packages/assessment/lib/item-show-oq.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/item-show-sa.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/item-show-sa.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/lib/item-show-sa.adp 8 Dec 2004 15:30:32 -0000 1.1 +++ openacs-4/packages/assessment/lib/item-show-sa.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -1,3 +1,2 @@ -
+ -
Index: openacs-4/packages/assessment/lib/progress-bar.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/Attic/progress-bar.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/lib/progress-bar.adp 15 May 2007 20:14:16 -0000 1.2 +++ openacs-4/packages/assessment/lib/progress-bar.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -20,5 +20,5 @@ -
+
Index: openacs-4/packages/assessment/lib/results-edit-oq.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/results-edit-oq.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/lib/results-edit-oq.tcl 24 Feb 2005 09:22:11 -0000 1.2 +++ openacs-4/packages/assessment/lib/results-edit-oq.tcl 1 Dec 2008 16:57:02 -0000 1.3 @@ -6,5 +6,5 @@ set answer_text [ad_text_to_html -no_links -- $answer_text] foreach keyword $keywords { - regsub -all -nocase $keyword $answer_text {\0} answer_text + regsub -all -nocase $keyword $answer_text {\0} answer_text } Index: openacs-4/packages/assessment/lib/section-show.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/section-show.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/lib/section-show.adp 10 Dec 2004 20:21:50 -0000 1.3 +++ openacs-4/packages/assessment/lib/section-show.adp 1 Dec 2008 16:57:02 -0000 1.4 @@ -14,7 +14,7 @@ -@items.rownum@. @items.name@ * +@items.rownum@. @items.name@ -
@items.title;noquote@
@@ -45,7 +44,6 @@ @items.subtext@ -
Index: openacs-4/packages/assessment/lib/session-items.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session-items.adp,v diff -u -N -r1.18 -r1.19 --- openacs-4/packages/assessment/lib/session-items.adp 2 Sep 2008 17:36:40 -0000 1.18 +++ openacs-4/packages/assessment/lib/session-items.adp 1 Dec 2008 16:57:02 -0000 1.19 @@ -4,10 +4,10 @@
-

Edit this question

+

Edit this question

@items.name@:

- + (#assessment.max_time# @items.max_time_to_complete@) @@ -18,29 +18,29 @@ @items.content;noquote@ - + @items.description;noquote@ - + :
@items.feedback;noquote@
- <~--- fixme ---> +

#assessment.not_yet_reviewed#

#assessment.not_answered#

- #assessment.Edit# + #assessment.Edit#

#assessment.not_yet_reviewed#

#assessment.not_answered#

- #assessment.Edit# + #assessment.Edit#
@@ -51,7 +51,7 @@
@formgroup.widget;noquote@ @formgroup.label;noquote@
- + @formgroup.widget;noquote@ @formgroup.label;noquote@ @@ -82,7 +82,7 @@ -

#assessment.Add_Comment#

+

#assessment.Add_Comment#

@items.result_points@ / @items.points@ #assessment.points#

Index: openacs-4/packages/assessment/lib/session-items.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session-items.tcl,v diff -u -N -r1.20 -r1.21 --- openacs-4/packages/assessment/lib/session-items.tcl 2 Sep 2008 17:36:40 -0000 1.20 +++ openacs-4/packages/assessment/lib/session-items.tcl 1 Dec 2008 16:57:02 -0000 1.21 @@ -37,15 +37,15 @@ {section_id:text(hidden) {value $section_id}} } set feedback_count 0 -db_multirow -extend { presentation_type html result_points feedback answered_p choice_orientation next_title next_pr_type num content has_feedback_p correct_p view} items session_items {} { - +set admin_package_url [ad_conn package_url]asm-admin/ +db_multirow -extend { presentation_type html result_points feedback answered_p choice_orientation next_as_item_id next_pr_type num content has_feedback_p correct_p view item_edit_general_url results_edit_url} items session_items {} { # build URLs - set item_edit_general_url [export_vars -base "asm-admin/item-edit-general" {as_item_id assessment_id section_id}] - set results_edit_url [export_vars -base "results-edit" {session_id section_id as_item_id}] + set item_edit_general_url [export_vars -base "${admin_package_url}item-edit-general" {as_item_id assessment_id section_id}] + set results_edit_url [export_vars -base "${admin_package_url}results-edit" {session_id section_id as_item_id}] set default_value [as::item_data::get -subject_id $subject_id -as_item_id $as_item_id -session_id $session_id] array set item [as::item::item_data -as_item_id $as_item_id] - + set presentation_type [as::item_form::add_item_to_form -name session_results_$section_id -section_id $section_id -item_id $as_item_id -session_id $session_id -default_value $default_value -show_feedback $show_feedback -random_p $assessment_data(random_p)] if {$presentation_type == "fitb"} { @@ -79,7 +79,7 @@ set correct_p 0 if {$show_feedback != "correct"} { if { $feedback_wrong ne "" } { - set feedback "$feedback_wrong" + set feedback "$feedback_wrong" set has_feedback_p 1 } else { set feedback "" @@ -89,7 +89,7 @@ set correct_p 1 if {$show_feedback ne "incorrect"} { if { $feedback_right ne "" } { - set feedback "$feedback_right" + set feedback "$feedback_right" set has_feedback_p 1 } else { set feedback "" @@ -110,7 +110,7 @@ set correct_p 0 if {$show_feedback != "correct"} { if { $feedback_wrong ne "" } { - set feedback "$feedback_wrong" + set feedback "$feedback_wrong" set has_feedback_p 1 } else { set feedback "" @@ -119,7 +119,7 @@ } else { if {$show_feedback != "incorrect"} { if { $feedback_right ne "" } { - set feedback "$feedback_right" + set feedback "$feedback_right" set has_feedback_p 1 } else { set feedback "" @@ -145,7 +145,7 @@ if { !$correct_p } { if {$show_feedback != "correct"} { if { $feedback_wrong ne "" } { - set feedback "$feedback_wrong" + set feedback "$feedback_wrong" set has_feedback_p 1 } else { set feedback "" @@ -154,7 +154,7 @@ } else { if {$show_feedback != "incorrect"} { if { $feedback_right ne "" } { - set feedback "$feedback_right" + set feedback "$feedback_right" set has_feedback_p 1 } else { set feedback "" @@ -193,13 +193,13 @@ set this(num) $counter if {$i < ${items:rowcount}} { upvar 0 items:$j next - set this(next_title) $next(title) + set this(next_as_item_id) $next(as_item_id) set this(next_pr_type) $next(presentation_type) - if {$this(title) != $next(title)} { + if {$this(as_item_id) != $next(as_item_id)} { incr counter } } else { - set this(next_title) "" + set this(next_as_item_id) "" set this(next_pr_type) "" } } Index: openacs-4/packages/assessment/lib/session.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session.adp,v diff -u -N -r1.10 -r1.11 --- openacs-4/packages/assessment/lib/session.adp 2 Sep 2008 17:39:57 -0000 1.10 +++ openacs-4/packages/assessment/lib/session.adp 1 Dec 2008 16:57:02 -0000 1.11 @@ -1,6 +1,3 @@ -@page_title;noquote@ -@context_bar;noquote@ - Index: openacs-4/packages/assessment/lib/session.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/assessment/lib/session.tcl 2 Sep 2008 17:39:57 -0000 1.7 +++ openacs-4/packages/assessment/lib/session.tcl 1 Dec 2008 16:57:02 -0000 1.8 @@ -5,48 +5,26 @@ @author timo@timohentschel.de @date 2004-12-24 @cvs-id $Id: -} { - {session_id:integer 0} - {assessment_id:integer 0} - {next_url ""} -} -properties { - context_bar:onevalue - page_title:onevalue } + set user_id [ad_conn user_id] -if {$session_id == 0} { - # require assessment_id if session_id is blank - if {$assessment_id == 0} { - ad_return_complaint 1 "Session_id or Assessment_id is required" - } - #find the latest session - if {![db_0or1row get_latest_session "" -column_array latest_session]} { - ad_return_complaint 1 "You have not completed this assessment yet." - } - set session_id $latest_session(session_id) -} db_1row find_assessment {} # Get the assessment data as::assessment::data -assessment_id $assessment_id -permission::require_permission -object_id $assessment_id -privilege read if {![info exists assessment_data(assessment_id)]} { ad_return_complaint 1 "[_ assessment.Requested_assess_does]" ad_script_abort } -if {$subject_id != $user_id} { - permission::require_permission -object_id $assessment_id -privilege admin -} set admin_p [permission::permission_p \ -object_id $session_id \ -privilege admin \ -party_id $user_id] -set delete_return_url [export_vars -base ../session {assessment_id}] -set delete_url [export_vars -base asm-admin/session-delete {assessment_id subject_id {orig_session_id $session_id} {return_url $delete_return_url}}] +set delete_url [export_vars -base asm-admin/session-delete {assessment_id subject_id {orig_session_id $session_id} {return_url [ad_return_url]}}] set page_title "[_ assessment.View_Results]" set context_bar [ad_context_bar [list [export_vars -base sessions {assessment_id}] "[_ assessment.Show_Sessions]"] $page_title] @@ -90,5 +68,4 @@ } set comments_installed_p [apm_package_enabled_p "general-comments"] - ad_return_template Index: openacs-4/packages/assessment/lib/session.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session.xql,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/assessment/lib/session.xql 26 Sep 2006 04:08:36 -0000 1.4 +++ openacs-4/packages/assessment/lib/session.xql 1 Dec 2008 16:57:02 -0000 1.5 @@ -41,4 +41,20 @@ + + + select sum(coalesce(points,0)) + from as_item_data + where session_id=:session_id + + + + + + select sum(coalesce(i.points,0)) + from as_items i, as_item_data d + where d.session_id = :session_id and i.as_item_id = d.as_item_id + + + Index: openacs-4/packages/assessment/sql/oracle/upgrade/upgrade-0.17-0.18.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/oracle/upgrade/upgrade-0.17-0.18.sql,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/sql/oracle/upgrade/upgrade-0.17-0.18.sql 12 Jun 2006 02:49:50 -0000 1.2 +++ openacs-4/packages/assessment/sql/oracle/upgrade/upgrade-0.17-0.18.sql 1 Dec 2008 16:57:02 -0000 1.3 @@ -1,7 +1,5 @@ -- upgrade the column size -drop view as_assessmentsx; -drop view as_assessmentsi; -alter table as_assessments alter column entry_page type varchar(4000); -alter table as_assessments alter column exit_page type varchar(4000); -alter table as_assessments alter column return_url type varchar(4000); -select content_type__refresh_view('as_assessments'); \ No newline at end of file +alter table as_assessments modify entry_page varchar(4000); +alter table as_assessments modify exit_page varchar(4000); +alter table as_assessments modify return_url varchar(4000); +exec content_type.refresh_view('as_assessments'); Index: openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-0.17-0.18.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-0.17-0.18.sql,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-0.17-0.18.sql 12 Jun 2006 02:49:50 -0000 1.2 +++ openacs-4/packages/assessment/sql/postgresql/upgrade/upgrade-0.17-0.18.sql 1 Dec 2008 16:57:02 -0000 1.3 @@ -1,20 +1,18 @@ -- upgrade the column size -drop view as_assessmentsx; -drop view as_assessmentsi; alter table as_assessments rename entry_page to entry_page_old; alter table as_assessments add entry_page varchar(4000); update as_assessments set entry_page = entry_page_old; -alter table as_assessments drop entry_page_old; +alter table as_assessments drop entry_page_old cascade; alter table as_assessments rename exit_page to exit_page_old; alter table as_assessments add exit_page varchar(4000); update as_assessments set exit_page = exit_page_old; -alter table as_assessments drop exit_page_old; +alter table as_assessments drop exit_page_old cascade; alter table as_assessments rename return_url to return_url_old; alter table as_assessments add return_url varchar(4000); update as_assessments set return_url = return_url_old; -alter table as_assessments drop return_url_old; +alter table as_assessments drop return_url_old cascade; -select content_type__refresh_view('as_assessments'); \ No newline at end of file +select content_type__refresh_view('as_assessments'); Index: openacs-4/packages/assessment/tcl/as-install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-install-procs.tcl,v diff -u -N -r1.40 -r1.41 --- openacs-4/packages/assessment/tcl/as-install-procs.tcl 7 Sep 2008 19:38:13 -0000 1.40 +++ openacs-4/packages/assessment/tcl/as-install-procs.tcl 1 Dec 2008 16:57:02 -0000 1.41 @@ -12,13 +12,26 @@ namespace eval as::install {} +ad_proc -public as::install::after_install { +} { + Create content types and implementations +} { + + # Create implementation for notifications of type "inter_item" + inter_item_checks::apm_callback::package_install + + # Create content types and attributes + as::install::assessment_create_install + + # Create implementation for notifications of type "assessment_response" + as::install::notifications +} + ad_proc -public as::install::assessment_create_install { } { Creates the content type and adds in attributes. } { -inter_item_checks::apm_callback::package_install - set value [parameter::get -parameter "AsmForRegisterId" -package_id [subsite::main_site_id]] if {[empty_string_p $value]} { @@ -281,170 +294,154 @@ -spec { 0.08d 0.09d1 { db_transaction { - content::type::attribute::new -content_type {as_sections} -attribute_name {num_items} -datatype {number} -pretty_name {Number of items displayed in this section} -column_spec {integer} - content::type::attribute::new -content_type {as_item_choices} -attribute_name {fixed_position} -datatype {number} -pretty_name {Fixed Position} -column_spec {integer} - set packages [db_list packages {select package_id from apm_packages where package_key = 'assessment'}] - foreach package_id $packages { - set folder_id [as::assessment::folder_id -package_id $package_id] - content::folder::register_content_type -folder_id $folder_id -content_type {image} -include_subtypes t - content::folder::register_content_type -folder_id $folder_id -content_type {content_revision} -include_subtypes t - } + content::type::attribute::new -content_type {as_sections} -attribute_name {num_items} -datatype {number} -pretty_name {Number of items displayed in this section} -column_spec {integer} + content::type::attribute::new -content_type {as_item_choices} -attribute_name {fixed_position} -datatype {number} -pretty_name {Fixed Position} -column_spec {integer} + set packages [db_list packages {select package_id from apm_packages where package_key = 'assessment'}] + foreach package_id $packages { + set folder_id [as::assessment::folder_id -package_id $package_id] + content::folder::register_content_type -folder_id $folder_id -content_type {image} -include_subtypes t + content::folder::register_content_type -folder_id $folder_id -content_type {content_revision} -include_subtypes t + } } } 0.09d1 0.10d1 { - content::type::attribute::new -content_type {as_section_data} -attribute_name {points} -datatype {number} -pretty_name {Points Awarded} -column_spec {integer} + content::type::attribute::new -content_type {as_section_data} -attribute_name {points} -datatype {number} -pretty_name {Points Awarded} -column_spec {integer} } 0.10d1 0.10d2 { - content::type::attribute::new -content_type {as_item_data} -attribute_name {section_id} -datatype {number} -pretty_name {Section ID} -column_spec {integer} + content::type::attribute::new -content_type {as_item_data} -attribute_name {section_id} -datatype {number} -pretty_name {Section ID} -column_spec {integer} } 0.10d2 0.10d3 { - db_transaction { - content::type::attribute::new -content_type {as_section_data} -attribute_name {creation_datetime} -datatype {number} -pretty_name {Creation Date Time} -column_spec {timestamptz} - content::type::attribute::new -content_type {as_section_data} -attribute_name {completed_datetime} -datatype {number} -pretty_name {Final Submission} -column_spec {timestamptz} - content::type::attribute::new -content_type {as_assessments} -attribute_name {ip_mask} -datatype {string} -pretty_name {IP Mask} -column_spec {varchar(100)} - } - } + db_transaction { + content::type::attribute::new -content_type {as_section_data} -attribute_name {creation_datetime} -datatype {number} -pretty_name {Creation Date Time} -column_spec {timestamptz} + content::type::attribute::new -content_type {as_section_data} -attribute_name {completed_datetime} -datatype {number} -pretty_name {Final Submission} -column_spec {timestamptz} + content::type::attribute::new -content_type {as_assessments} -attribute_name {ip_mask} -datatype {string} -pretty_name {IP Mask} -column_spec {varchar(100)} + } + } 0.10d3 0.10d4 { - db_transaction { - set impl_id [acs_sc::impl::new -contract_name NotificationType -name assessment_response_notif_type -owner assessment] - acs_sc::impl::alias::new -contract_name NotificationType -impl_name assessment_response_notif_type -operation GetURL -alias as::notification::get_url -language TCL - acs_sc::impl::alias::new -contract_name NotificationType -impl_name assessment_response_notif_type -operation ProcessReply -alias as::notification::process_reply -language TCL - acs_sc::impl::binding::new -contract_name NotificationType -impl_name assessment_response_notif_type + as::install::notifications + } + 0.10d6 0.10d7 { + as::actions::insert_actions_after_upgrade + } + 0.10d8 0.10d9 { + db_transaction { + content::type::new -content_type {as_session_results} -supertype {content_revision} -pretty_name {Assessment Session Result} -pretty_plural {Assessment Session Results} -table_name {as_session_results} -id_column {result_id} + content::type::attribute::new -content_type {as_session_results} -attribute_name {target_id} -datatype {number} -pretty_name {Target Answer} -column_spec {integer} + content::type::attribute::new -content_type {as_session_results} -attribute_name {points} -datatype {number} -pretty_name {Points} -column_spec {integer} - set type_id [notification::type::new -sc_impl_id $impl_id -short_name assessment_response_notif -pretty_name "Survey Response Notification" -description "Notifications for Assessment"] + set packages [db_list packages {select package_id from apm_packages where package_key = 'assessment'}] + foreach package_id $packages { + set folder_id [as::assessment::folder_id -package_id $package_id] + content::folder::register_content_type -folder_id $folder_id -content_type {as_session_results} -include_subtypes t + } - db_dml insert_intervals { - insert into notification_types_intervals - (type_id, interval_id) - select :type_id as type_id, interval_id - from notification_intervals - where name in ('instant','hourly','daily') - } - db_dml insert_delivery_method { - insert into notification_types_del_methods - (type_id, delivery_method_id) - select :type_id as type_id, delivery_method_id - from notification_delivery_methods - where short_name = 'email' - } - } - } - 0.10d6 0.10d7 { - as::actions::insert_actions_after_upgrade - } - 0.10d8 0.10d9 { - db_transaction { - content::type::new -content_type {as_session_results} -supertype {content_revision} -pretty_name {Assessment Session Result} -pretty_plural {Assessment Session Results} -table_name {as_session_results} -id_column {result_id} - content::type::attribute::new -content_type {as_session_results} -attribute_name {target_id} -datatype {number} -pretty_name {Target Answer} -column_spec {integer} - content::type::attribute::new -content_type {as_session_results} -attribute_name {points} -datatype {number} -pretty_name {Points} -column_spec {integer} + set item_data_list [db_list_of_lists get_all_item_data_ids { + select item_data_id, points + from as_item_data + where points is not null + }] + foreach item_data $item_data_list { + as::session_results::new -target_id [lindex $item_data 0] -points [lindex $item_data 1] + } - set packages [db_list packages {select package_id from apm_packages where package_key = 'assessment'}] - foreach package_id $packages { - set folder_id [as::assessment::folder_id -package_id $package_id] - content::folder::register_content_type -folder_id $folder_id -content_type {as_session_results} -include_subtypes t - } + set section_data_list [db_list_of_lists get_all_section_data_ids { + select section_data_id, points + from as_section_data + where points is not null + }] + foreach section_data $section_data_list { + as::session_results::new -target_id [lindex $section_data 0] -points [lindex $section_data 1] + } - set item_data_list [db_list_of_lists get_all_item_data_ids { - select item_data_id, points - from as_item_data - where points is not null - }] - foreach item_data $item_data_list { - as::session_results::new -target_id [lindex $item_data 0] -points [lindex $item_data 1] - } + set session_list [db_list_of_lists get_all_session_ids { + select session_id, percent_score + from as_sessions + where percent_score is not null + }] + foreach session $session_list { + as::session_results::new -target_id [lindex $session 0] -points [lindex $session 1] + } - set section_data_list [db_list_of_lists get_all_section_data_ids { - select section_data_id, points - from as_section_data - where points is not null - }] - foreach section_data $section_data_list { - as::session_results::new -target_id [lindex $section_data 0] -points [lindex $section_data 1] - } + content::type::attribute::new -content_type {as_assessments} -attribute_name {password} -datatype {string} -pretty_name {Password} -column_spec {varchar(100)} - set session_list [db_list_of_lists get_all_session_ids { - select session_id, percent_score - from as_sessions - where percent_score is not null - }] - foreach session $session_list { - as::session_results::new -target_id [lindex $session 0] -points [lindex $session 1] - } - - content::type::attribute::new -content_type {as_assessments} -attribute_name {password} -datatype {string} -pretty_name {Password} -column_spec {varchar(100)} - - content::type::attribute::new -content_type {as_item_type_oq} -attribute_name {reference_answer} -datatype {text} -pretty_name {Reference Answer} -column_spec {text} - content::type::attribute::new -content_type {as_item_type_oq} -attribute_name {keywords} -datatype {string} -pretty_name {Keywords} -column_spec {varchar(4000)} - } - } - 0.10d9 0.10d10 { - as::actions::update_checks_after_upgrade - } - 0.10d10 0.10d11 { - content::type::attribute::new -content_type {as_assessments} -attribute_name {random_p} -datatype {boolean} -pretty_name {Assessment Allow Random} -column_spec {char(1)} - } - 0.10d11 0.10d12 { - content::type::attribute::new -content_type {as_items} -attribute_name {field_name} -datatype {string} -pretty_name {Item Field Name} -column_spec {varchar(500)} - } - - 0.11 0.12 { - #File Upload new type - content::type::new -content_type {as_item_type_fu} -supertype {content_revision} -pretty_name {Assessment Item Type File Upload} -pretty_plural {Assessment Item Type File Upload} -table_name {as_item_type_fu} -id_column {as_item_type_id} - content::type::new -content_type {as_item_display_f} -supertype {content_revision} -pretty_name {Assessment Item Display File} -pretty_plural {Assessment Item Display File} -table_name {as_item_display_f} -id_column {as_item_display_id} - # File Upload display type - content::type::attribute::new -content_type {as_item_display_f} -attribute_name {html_display_options} -datatype {string} -pretty_name {HTML display Options} -column_spec {varchar(50)} - content::type::attribute::new -content_type {as_item_display_f} -attribute_name {abs_size} -datatype {string} -pretty_name {Abstraction Real Size} -column_spec {varchar(20)} - content::type::attribute::new -content_type {as_item_display_f} -attribute_name {box_orientation} -datatype {string} -pretty_name {Box Orientation} -column_spec {varchar(20)} - - db_foreach packages { select package_id from apm_packages where package_key = 'assessment'} { - set folder_id [as::assessment::folder_id -package_id $package_id] - - # File Upload registration - content::folder::register_content_type -folder_id $folder_id -content_type {as_item_type_fu} -include_subtypes t - content::folder::register_content_type -folder_id $folder_id -content_type {as_item_display_f} -include_subtypes t - } - - } - 0.12 0.13 { - content::type::attribute::new -content_type {as_assessments} -attribute_name {type} -datatype {number} -pretty_name {Type} -column_spec {integer} - - } - 0.13 0.14 { - # update as_param_map table to set the item_id as a cr_item and not a cr_revision id - - db_foreach as_parameter { select cr.item_id, pm.parameter_id from as_param_map pm, cr_revisions cr where cr.revision_id = pm.item_id} { - db_dml update_parameters { update as_param_map set item_id=:item_id where parameter_id=:parameter_id} - } - - } - 0.14 0.15 { - # update as_inter_item_check_id table to set the check_sql condition using the item_id of a choice instead of using the revision_id - - db_foreach check { select inter_item_check_id, check_sql from as_inter_item_checks } { - set cond_list [split $check_sql "="] - set item_id [lindex [split [lindex $cond_list 2] " "] 0] - set choice_id [lindex [split [lindex $cond_list 1] " "] 0] - set condition [db_string get_item_id {select item_id from cr_revisions where revision_id=:choice_id} -default -1] - set check_sql_updated [as::assessment::check::get_sql -item_id $item_id -condition $condition] - if { $condition != -1 } { - db_dml update_check_sql { update as_inter_item_checks set check_sql = :check_sql_updated where inter_item_check_id=:inter_item_check_id} - } - } - - } - 0.15 0.16 { - content::type::attribute::new -content_type {as_item_display_sb} -attribute_name {prepend_empty_p} -datatype {string} -pretty_name {Prepend Empty Item} -column_spec {char(1)} - } - 0.16 0.17 { - content::type::attribute::new -content_type {as_items} -attribute_name {validate_block} -datatype {text} -pretty_name {Validation Block} -column_spec {text} - } + content::type::attribute::new -content_type {as_item_type_oq} -attribute_name {reference_answer} -datatype {text} -pretty_name {Reference Answer} -column_spec {text} + content::type::attribute::new -content_type {as_item_type_oq} -attribute_name {keywords} -datatype {string} -pretty_name {Keywords} -column_spec {varchar(4000)} + } + } + 0.10d9 0.10d10 { + as::actions::update_checks_after_upgrade + } + 0.10d10 0.10d11 { + content::type::attribute::new -content_type {as_assessments} -attribute_name {random_p} -datatype {boolean} -pretty_name {Assessment Allow Random} -column_spec {char(1)} + } + 0.10d11 0.10d12 { + content::type::attribute::new -content_type {as_items} -attribute_name {field_name} -datatype {string} -pretty_name {Item Field Name} -column_spec {varchar(500)} + } + + 0.11 0.12 { + #File Upload new type + content::type::new -content_type {as_item_type_fu} -supertype {content_revision} -pretty_name {Assessment Item Type File Upload} -pretty_plural {Assessment Item Type File Upload} -table_name {as_item_type_fu} -id_column {as_item_type_id} + content::type::new -content_type {as_item_display_f} -supertype {content_revision} -pretty_name {Assessment Item Display File} -pretty_plural {Assessment Item Display File} -table_name {as_item_display_f} -id_column {as_item_display_id} + # File Upload display type + content::type::attribute::new -content_type {as_item_display_f} -attribute_name {html_display_options} -datatype {string} -pretty_name {HTML display Options} -column_spec {varchar(50)} + content::type::attribute::new -content_type {as_item_display_f} -attribute_name {abs_size} -datatype {string} -pretty_name {Abstraction Real Size} -column_spec {varchar(20)} + content::type::attribute::new -content_type {as_item_display_f} -attribute_name {box_orientation} -datatype {string} -pretty_name {Box Orientation} -column_spec {varchar(20)} + + db_foreach packages { select package_id from apm_packages where package_key = 'assessment'} { + set folder_id [as::assessment::folder_id -package_id $package_id] + + # File Upload registration + content::folder::register_content_type -folder_id $folder_id -content_type {as_item_type_fu} -include_subtypes t + content::folder::register_content_type -folder_id $folder_id -content_type {as_item_display_f} -include_subtypes t + } + + } + 0.12 0.13 { + content::type::attribute::new -content_type {as_assessments} -attribute_name {type} -datatype {number} -pretty_name {Type} -column_spec {integer} + + } + 0.13 0.14 { + # update as_param_map table to set the item_id as a cr_item and not a cr_revision id + + db_foreach as_parameter { select cr.item_id, pm.parameter_id from as_param_map pm, cr_revisions cr where cr.revision_id = pm.item_id} { + db_dml update_parameters { update as_param_map set item_id=:item_id where parameter_id=:parameter_id} + } + + } + 0.14 0.15 { + # update as_inter_item_check_id table to set the check_sql condition using the item_id of a choice instead of using the revision_id + + db_foreach check { select inter_item_check_id, check_sql from as_inter_item_checks } { + set cond_list [split $check_sql "="] + set item_id [lindex [split [lindex $cond_list 2] " "] 0] + set choice_id [lindex [split [lindex $cond_list 1] " "] 0] + set condition [db_string get_item_id {select item_id from cr_revisions where revision_id=:choice_id} -default -1] + set check_sql_updated [as::assessment::check::get_sql -item_id $item_id -condition $condition] + if { $condition != -1 } { + db_dml update_check_sql { update as_inter_item_checks set check_sql = :check_sql_updated where inter_item_check_id=:inter_item_check_id} + } + } + + } + 0.15 0.16 { + content::type::attribute::new -content_type {as_item_display_sb} -attribute_name {prepend_empty_p} -datatype {string} -pretty_name {Prepend Empty Item} -column_spec {char(1)} + } + 0.16 0.17 { + content::type::attribute::new -content_type {as_items} -attribute_name {validate_block} -datatype {text} -pretty_name {Validation Block} -column_spec {text} + } 0.22d5 0.22d6 { # upgrade already done in SQL just add the attributes for # completeness content::type::attribute::new -content_type {as_item_data} -attribute_name {as_item_cr_item_id} -datatype {number} -pretty_name {as_item cr_item_id} -column_spec {integer} content::type::attribute::new -content_type {as_item_data} -attribute_name {choice_value} -datatype {text} -pretty_name {Choice Value} } - 0.22d7 0.22d8 { + + 0.22d6 0.22d7 { + if { ![acs_sc_binding_exists_p NotificationType assessment_response_notif_type] } { + as::install::notifications + } + } + 0.22d7 0.22d8 { content::type::attribute::new -content_type {as_sessions} -attribute_name {elapsed_seconds} -datatype {number} -pretty_name {Elapsed Seconds} -column_spec {integer} content::type::attribute::new -content_type {as_item_type_mc} -attribute_name {allow_other_p} -datatype {boolean} -pretty_name {Allow Other?} -column_spec {char(1) default 'f'} } @@ -480,3 +477,33 @@ # reset the RegistrationId parameter as::parameter::reset_parameter -package_id $package_id -node_id $node_id } + +ad_proc -private as::install::notifications { +} { + Create notif implementation for type assessment_response +} { + + db_transaction { + set impl_id [acs_sc::impl::new -contract_name NotificationType -name assessment_response_notif_type -owner assessment] + acs_sc::impl::alias::new -contract_name NotificationType -impl_name assessment_response_notif_type -operation GetURL -alias as::notification::get_url -language TCL + acs_sc::impl::alias::new -contract_name NotificationType -impl_name assessment_response_notif_type -operation ProcessReply -alias as::notification::process_reply -language TCL + acs_sc::impl::binding::new -contract_name NotificationType -impl_name assessment_response_notif_type + + set type_id [notification::type::new -sc_impl_id $impl_id -short_name assessment_response_notif -pretty_name "Survey Response Notification" -description "Notifications for Assessment"] + + db_dml insert_intervals { + insert into notification_types_intervals + (type_id, interval_id) + select :type_id as type_id, interval_id + from notification_intervals + where name in ('instant','hourly','daily') + } + db_dml insert_delivery_method { + insert into notification_types_del_methods + (type_id, delivery_method_id) + select :type_id as type_id, delivery_method_id + from notification_delivery_methods + where short_name = 'email' + } + } +} Index: openacs-4/packages/assessment/www/assessment-consent.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment-consent.adp,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/assessment/www/assessment-consent.adp 12 Jun 2006 02:49:51 -0000 1.4 +++ openacs-4/packages/assessment/www/assessment-consent.adp 1 Dec 2008 16:57:02 -0000 1.5 @@ -2,13 +2,15 @@ @page_title;noquote@@context_bar;noquote@ -
+

@assessment_data.consent_page;noquote@ -

+

+
+
Index: openacs-4/packages/assessment/www/assessment-password.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment-password.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/assessment-password.adp 12 Jun 2006 02:49:51 -0000 1.3 +++ openacs-4/packages/assessment/www/assessment-password.adp 1 Dec 2008 16:57:02 -0000 1.4 @@ -2,6 +2,4 @@ @page_title;noquote@@context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/assessment-section-submit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment-section-submit.adp,v diff -u -N -r1.25 -r1.26 --- openacs-4/packages/assessment/www/assessment-section-submit.adp 2 Sep 2008 17:43:17 -0000 1.25 +++ openacs-4/packages/assessment/www/assessment-section-submit.adp 1 Dec 2008 16:57:02 -0000 1.26 @@ -32,11 +32,11 @@

@items.content;noquote@

@items.question_text;noquote@ * - +
- + @@ -54,7 +54,7 @@ - + @formgroup.widget;noquote@ Index: openacs-4/packages/assessment/www/assessment-single-submit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/assessment-single-submit.adp,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/assessment/www/assessment-single-submit.adp 12 Jun 2006 02:49:51 -0000 1.8 +++ openacs-4/packages/assessment/www/assessment-single-submit.adp 1 Dec 2008 16:57:02 -0000 1.9 @@ -4,7 +4,7 @@
#assessment.Assessment#: @assessment_data.title@
- + Index: openacs-4/packages/assessment/www/finish.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/finish.adp,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/assessment/www/finish.adp 15 May 2007 20:14:17 -0000 1.5 +++ openacs-4/packages/assessment/www/finish.adp 1 Dec 2008 16:57:02 -0000 1.6 @@ -8,5 +8,7 @@ @assessment_data.exit_page;noquote@ +

#assessment.View_results#

+
Index: openacs-4/packages/assessment/www/finish.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/finish.tcl,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/assessment/www/finish.tcl 15 May 2007 20:14:17 -0000 1.8 +++ openacs-4/packages/assessment/www/finish.tcl 1 Dec 2008 16:57:02 -0000 1.9 @@ -27,7 +27,11 @@ as::assessment::data -assessment_id $assessment_id if {$assessment_data(exit_page) eq ""} { - set assessment_data(exit_page) "[_ assessment.lt_default_exit_page]" + if {$user_id == 0} { + set assessment_data(exit_page) "[_ assessment.lt_default_exit_page_anonymous_user]" + } else { + set assessment_data(exit_page) "[_ assessment.lt_default_exit_page]" + } } set page_title "[_ assessment.Response_Submitted]" Index: openacs-4/packages/assessment/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/index.adp,v diff -u -N -r1.14 -r1.15 --- openacs-4/packages/assessment/www/index.adp 18 Apr 2005 12:30:27 -0000 1.14 +++ openacs-4/packages/assessment/www/index.adp 1 Dec 2008 16:57:02 -0000 1.15 @@ -2,7 +2,7 @@ @page_title;noquote@@context_bar;noquote@ -

Administer Assessments

+

#acs-kernel.common_Administration#

Index: openacs-4/packages/assessment/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/index.tcl,v diff -u -N -r1.19 -r1.20 --- openacs-4/packages/assessment/www/index.tcl 22 Feb 2008 23:42:33 -0000 1.19 +++ openacs-4/packages/assessment/www/index.tcl 1 Dec 2008 16:57:02 -0000 1.20 @@ -30,8 +30,6 @@ label "[_ assessment.View_results]" display_template {\#assessment.View_results\#} } - } -main_class { - narrow } # get the information of all open assessments @@ -62,8 +60,6 @@ label "[_ assessment.Sessions]" link_url_eval {[export_vars -base "sessions" {assessment_id}]} } - } -main_class { - narrow } # get the information of all assessments store in the database Index: openacs-4/packages/assessment/www/instructions.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/instructions.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/instructions.adp 7 Oct 2007 22:36:54 -0000 1.3 +++ openacs-4/packages/assessment/www/instructions.adp 1 Dec 2008 16:57:02 -0000 1.4 @@ -11,7 +11,7 @@ #assessment.Resume_Assessment_Title# - + #assessment.Retake_Assessment_Title# Index: openacs-4/packages/assessment/www/instructions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/instructions.tcl,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/instructions.tcl 15 May 2007 20:14:17 -0000 1.2 +++ openacs-4/packages/assessment/www/instructions.tcl 1 Dec 2008 16:57:02 -0000 1.3 @@ -16,6 +16,11 @@ -privilege read as::assessment::data -assessment_id $assessment_id +if { $assessment_data(publish_status) ne "live" } { + ad_return_complaint 1 [_ assessment.Requested_assess_is_no_longer_available] + return +} + if {$assessment_data(instructions) eq ""} { set assessment_data(instructions) "[_ assessment.lt_default_instructions]" } Index: openacs-4/packages/assessment/www/session-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session-oracle.xql,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/session-oracle.xql 24 Feb 2005 09:22:12 -0000 1.2 +++ openacs-4/packages/assessment/www/session-oracle.xql 1 Dec 2008 16:57:02 -0000 1.3 @@ -12,4 +12,19 @@ + + + select * from (select max(o.creation_date), s.session_id + from as_sessions s, + acs_objects o, + cr_revisions cr + where s.subject_id=:user_id + and s.assessment_id in (select revision_id from cr_revisions where item_id= :assessment_id) + and o.object_id = cr.item_id + and s.session_id = cr.revision_id + group by assessment_id, subject_id, session_id) + where rownum=1 + + + Index: openacs-4/packages/assessment/www/session-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session-postgresql.xql,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/www/session-postgresql.xql 21 Feb 2005 14:32:56 -0000 1.1 +++ openacs-4/packages/assessment/www/session-postgresql.xql 1 Dec 2008 16:57:02 -0000 1.2 @@ -12,4 +12,19 @@ + + + select max(o.creation_date), s.session_id + from as_sessions s, + acs_objects o, + cr_revisions cr + where s.subject_id=:user_id + and s.assessment_id in (select revision_id from cr_revisions where item_id= :assessment_id) + and o.object_id = cr.item_id + and s.session_id = cr.revision_id + group by assessment_id, subject_id, session_id + limit 1 + + + Index: openacs-4/packages/assessment/www/session.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.adp,v diff -u -N -r1.32 -r1.33 --- openacs-4/packages/assessment/www/session.adp 19 Dec 2007 11:55:07 -0000 1.32 +++ openacs-4/packages/assessment/www/session.adp 1 Dec 2008 16:57:02 -0000 1.33 @@ -1,4 +1,4 @@ @page_title;noquote@ -@context_bar;noquote@ - +@context;noquote@ + Index: openacs-4/packages/assessment/www/session.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/session.tcl,v diff -u -N -r1.39 -r1.40 --- openacs-4/packages/assessment/www/session.tcl 21 Jan 2008 20:25:35 -0000 1.39 +++ openacs-4/packages/assessment/www/session.tcl 1 Dec 2008 16:57:02 -0000 1.40 @@ -6,15 +6,39 @@ @date 2004-12-24 @cvs-id $Id: } { + {session_id:integer 0} + {assessment_id:integer 0} + {next_url ""} } -properties { - context_bar:onevalue + context:onevalue page_title:onevalue } +set user_id [ad_conn user_id] - set page_title "[_ assessment.View_Results]" - set context_bar [ad_context_bar [list [export_vars -base sessions {assessment_id}] "[_ assessment.Show_Sessions]"] $page_title] +if {$session_id == 0} { + # require assessment_id if session_id is blank + if {$assessment_id == 0} { + ad_return_complaint 1 "Session_id or Assessment_id is required" + } + #find the latest session + if {![db_0or1row get_latest_session "" -column_array latest_session]} { + ad_return_complaint 1 "You have not completed this assessment yet." + } + set session_id $latest_session(session_id) +} +db_1row find_assessment {} + +permission::require_permission -object_id $assessment_id -privilege read + +if {$subject_id != $user_id} { + permission::require_permission -object_id $assessment_id -privilege admin +} + +set page_title "[_ assessment.View_Results]" +set context [list [list [export_vars -base sessions {assessment_id}] "[_ assessment.Show_Sessions]"] $page_title] + template::head::add_css -href "/resources/assessment/assessment.css" ad_return_template Index: openacs-4/packages/assessment/www/admin/asm-action-admin.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-admin.adp,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/assessment/www/admin/asm-action-admin.adp 2 Feb 2008 10:18:46 -0000 1.7 +++ openacs-4/packages/assessment/www/admin/asm-action-admin.adp 1 Dec 2008 16:57:02 -0000 1.8 @@ -2,7 +2,5 @@ #assessment.action_admin# @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/admin/asm-action-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-delete.adp,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/assessment/www/admin/asm-action-delete.adp 12 Jun 2006 02:49:51 -0000 1.5 +++ openacs-4/packages/assessment/www/admin/asm-action-delete.adp 1 Dec 2008 16:57:02 -0000 1.6 @@ -2,6 +2,4 @@ Action Delete @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/admin/asm-action-new.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-new.adp,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/assessment/www/admin/asm-action-new.adp 12 Jun 2006 02:49:51 -0000 1.5 +++ openacs-4/packages/assessment/www/admin/asm-action-new.adp 1 Dec 2008 16:57:02 -0000 1.6 @@ -2,11 +2,9 @@ @page_title@ @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/admin/asm-action-param-admin.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-admin.adp,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/assessment/www/admin/asm-action-param-admin.adp 12 Jun 2006 02:49:51 -0000 1.6 +++ openacs-4/packages/assessment/www/admin/asm-action-param-admin.adp 1 Dec 2008 16:57:02 -0000 1.7 @@ -2,11 +2,9 @@ @page_title@ @context;noquote@ -
-
  -#assessment.return# +

#assessment.return#

Index: openacs-4/packages/assessment/www/admin/asm-action-param-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-delete.adp,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/assessment/www/admin/asm-action-param-delete.adp 12 Jun 2006 02:49:51 -0000 1.5 +++ openacs-4/packages/assessment/www/admin/asm-action-param-delete.adp 1 Dec 2008 16:57:02 -0000 1.6 @@ -2,7 +2,5 @@ Param Delete @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/admin/asm-action-param-list.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/asm-action-param-list.adp,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/assessment/www/admin/asm-action-param-list.adp 14 Feb 2005 23:39:59 -0000 1.4 +++ openacs-4/packages/assessment/www/admin/asm-action-param-list.adp 1 Dec 2008 16:57:02 -0000 1.5 @@ -1,2 +1,4 @@ -#assessment.add_parameter# +

+#assessment.add_parameter# +

\ No newline at end of file Index: openacs-4/packages/assessment/www/admin/set-reg-assessment.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/set-reg-assessment.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/admin/set-reg-assessment.adp 12 Jun 2006 02:49:51 -0000 1.2 +++ openacs-4/packages/assessment/www/admin/set-reg-assessment.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -8,8 +8,5 @@ #acs-subsite.create_asm#

- - +
- - Index: openacs-4/packages/assessment/www/asm-admin/assessment-copy.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-copy.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/assessment-copy.adp 8 Apr 2005 00:48:16 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/assessment-copy.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/assessment-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-delete.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/assessment-delete.adp 8 Apr 2005 00:45:42 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/assessment-delete.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/catalog-browse.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-browse.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/catalog-browse.adp 11 Apr 2005 19:01:55 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/catalog-browse.adp 1 Dec 2008 16:57:02 -0000 1.4 @@ -4,4 +4,4 @@ -#assessment.unhappy_search# #assessment.try_again# \ No newline at end of file +

#assessment.unhappy_search# #assessment.try_again#

\ No newline at end of file Index: openacs-4/packages/assessment/www/asm-admin/catalog-item-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-item-add.adp,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/assessment/www/asm-admin/catalog-item-add.adp 25 Apr 2005 13:40:33 -0000 1.4 +++ openacs-4/packages/assessment/www/asm-admin/catalog-item-add.adp 1 Dec 2008 16:57:02 -0000 1.5 @@ -19,7 +19,7 @@
- @@ -32,7 +32,6 @@ Index: openacs-4/packages/assessment/www/asm-admin/catalog-search.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-search.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/catalog-search.adp 7 Apr 2005 21:37:46 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/catalog-search.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@@context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/catalog-section-add.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-section-add.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/catalog-section-add.adp 11 Apr 2005 19:01:13 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/catalog-section-add.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -21,17 +21,12 @@
@assessment_data.instructions;noquote@
@assessment_data.instructions;noquote@
@@ -37,7 +37,7 @@
@items.content;noquote@
-
+
@items.description;noquote@ @@ -68,7 +68,6 @@

-

@items.rownum@. @items.field_name@ * +@items.rownum@. @items.field_name@ * (#assessment.max_time# @items.max_time_to_complete@) (@items.points@ #assessment.points#)
-
@items.title;noquote@
@items.description;noquote@
@@ -55,11 +54,10 @@
- [i] + [i] @items.subtext@
-
-
@sections.title@ -
-
-
- - + Index: openacs-4/packages/assessment/www/asm-admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/index.adp,v diff -u -N -r1.11 -r1.12 --- openacs-4/packages/assessment/www/asm-admin/index.adp 31 Jan 2008 16:06:26 -0000 1.11 +++ openacs-4/packages/assessment/www/asm-admin/index.adp 1 Dec 2008 16:57:02 -0000 1.12 @@ -1,16 +1,16 @@ @context;noquote@ +

#assessment.admin_categories# | #assessment.admin_actions# | #assessment.admin_requests# | #assessment.permissions# | #assessment.View_Sessions# #assessment.admin_requests# +

-

- -

+ Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-cb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-cb.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-cb.adp 7 Apr 2005 22:22:11 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-cb.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -

-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-f.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-f.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-f.adp 12 Jun 2006 02:49:51 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-f.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-rb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-rb.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-rb.adp 7 Apr 2005 22:26:28 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-rb.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-sa.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-sa.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-sa.adp 7 Apr 2005 22:39:19 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-sa.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.adp 7 Apr 2005 22:24:02 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-sb.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-ta.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-ta.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-ta.adp 7 Apr 2005 22:30:41 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-ta.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-display-tb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-display-tb.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-display-tb.adp 7 Apr 2005 22:14:02 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-display-tb.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-fu.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-fu.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-fu.adp 12 Jun 2006 02:49:51 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-fu.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.adp 7 Apr 2005 22:20:24 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-mc-choices.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-mc-existing.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-mc-existing.adp,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/assessment/www/asm-admin/item-add-mc-existing.adp 12 Jun 2006 02:49:51 -0000 1.4 +++ openacs-4/packages/assessment/www/asm-admin/item-add-mc-existing.adp 1 Dec 2008 16:57:02 -0000 1.5 @@ -2,6 +2,4 @@ @page_title;noquote@ @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-mc.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-mc.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/item-add-mc.adp 7 Apr 2005 22:15:37 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/item-add-mc.adp 1 Dec 2008 16:57:02 -0000 1.4 @@ -2,7 +2,8 @@ @page_title;noquote@ @context;noquote@ -#assessment.add_item_type_mc_existing# -
- -
+

+ #assessment.add_item_type_mc_existing# +

+ + Index: openacs-4/packages/assessment/www/asm-admin/item-add-oq.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-oq.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-oq.adp 7 Apr 2005 22:28:52 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-oq.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-add-sa.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-add-sa.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-add-sa.adp 7 Apr 2005 22:11:28 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-add-sa.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-copy.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-copy.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-copy.adp 28 Apr 2005 18:00:18 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-copy.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-create-2.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-create-2.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-create-2.adp 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-create-2.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -4,7 +4,3 @@ - - - -
\ No newline at end of file Index: openacs-4/packages/assessment/www/asm-admin/item-create.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-create.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/item-create.adp 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/item-create.adp 1 Dec 2008 16:57:02 -0000 1.2 @@ -2,5 +2,3 @@ @context;noquote@ Create a new Item - - \ No newline at end of file Index: openacs-4/packages/assessment/www/asm-admin/item-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-delete.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/item-delete.adp 12 Jun 2006 02:49:51 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/item-delete.adp 1 Dec 2008 16:57:02 -0000 1.4 @@ -2,6 +2,4 @@ @page_title;noquote@ @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-cb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-cb.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-cb.adp 7 Apr 2005 21:52:04 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-cb.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-f.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-f.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-f.adp 12 Jun 2006 02:49:51 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-f.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-rb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-rb.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-rb.adp 7 Apr 2005 21:54:01 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-rb.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-sa.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-sa.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-sa.adp 12 Jun 2006 02:49:51 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-sa.adp 1 Dec 2008 16:57:02 -0000 1.4 @@ -2,6 +2,4 @@ @page_title;noquote@ @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-sb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-sb.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-sb.adp 7 Apr 2005 21:54:50 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-sb.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-ta.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-ta.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-ta.adp 12 Jun 2006 02:49:51 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-ta.adp 1 Dec 2008 16:57:02 -0000 1.4 @@ -2,6 +2,4 @@ @page_title;noquote@ @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-display-tb.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-display-tb.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-edit-display-tb.adp 7 Apr 2005 21:49:54 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-display-tb.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-fu.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-fu.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-edit-fu.adp 12 Jun 2006 02:49:51 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-fu.adp 1 Dec 2008 16:57:02 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.adp,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.adp 29 Aug 2008 19:13:34 -0000 1.4 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.adp 1 Dec 2008 16:57:02 -0000 1.5 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc-existing.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc-existing.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/item-edit-mc-existing.adp 12 Jun 2006 02:49:51 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc-existing.adp 1 Dec 2008 16:57:02 -0000 1.4 @@ -2,6 +2,4 @@ @page_title;noquote@ @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-oq.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-oq.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/item-edit-oq.adp 12 Jun 2006 02:49:51 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-oq.adp 1 Dec 2008 16:57:03 -0000 1.4 @@ -2,6 +2,4 @@ @page_title;noquote@ @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit-sa.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-sa.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-edit-sa.adp 7 Apr 2005 21:48:35 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-edit-sa.adp 1 Dec 2008 16:57:03 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/item-edit.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/item-edit.adp 7 Apr 2005 21:46:16 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/item-edit.adp 1 Dec 2008 16:57:03 -0000 1.4 @@ -2,12 +2,10 @@ @page_title;noquote@ @context;noquote@ -
-
-@assessment_data.title@ +

@assessment_data.title@

Index: openacs-4/packages/assessment/www/asm-admin/item-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/assessment/www/asm-admin/item-edit.tcl 29 Aug 2008 19:13:34 -0000 1.12 +++ openacs-4/packages/assessment/www/asm-admin/item-edit.tcl 1 Dec 2008 16:57:03 -0000 1.13 @@ -58,7 +58,7 @@ if {$object(object_type) eq "content_revision"} { set link_type file } - append links "$object(title)
" + append links "$object(title)
" } ad_form -extend -name item_edit -form { {content:text(inform),optional {label "[_ assessment.item_display_Content]"} {value {$links}} {help_text "[_ assessment.item_Content_help]"}} Index: openacs-4/packages/assessment/www/asm-admin/item-stats.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-stats.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/item-stats.adp 29 Aug 2008 19:11:55 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/item-stats.adp 1 Dec 2008 16:57:03 -0000 1.3 @@ -2,14 +2,13 @@ #assessment.Question_Statistics#

#assessment.Back_to_Sessions#

-

@items.section_title@

@items.rownum@. @items.title;noquote@

-
+

@items.stats;noquote@ -

+

-

+ Index: openacs-4/packages/assessment/www/asm-admin/item-stats.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-stats.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/assessment/www/asm-admin/item-stats.tcl 29 Aug 2008 19:11:55 -0000 1.5 +++ openacs-4/packages/assessment/www/asm-admin/item-stats.tcl 1 Dec 2008 16:57:03 -0000 1.6 @@ -154,7 +154,7 @@ append stats "" if { $r(correct_answer_p) && $assessment_data(type) ne "survey"} { - append stats "" + append stats "" } else { append stats " " } @@ -163,7 +163,7 @@ if { $first_p } { append stats " -[_ assessment.Total_Responses] $total_responses
" +[_ assessment.Total_Responses] $total_responses
" if {$assessment_data(type) ne "survey"} { append stats " [_ assessment.Total_Correct] $total_correct" @@ -239,7 +239,7 @@ append stats " -[_ assessment.Mean] $mean
+[_ assessment.Mean] $mean
[_ assessment.Standard_Deviation] $standard_deviation " Index: openacs-4/packages/assessment/www/asm-admin/one-a.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-a.adp,v diff -u -N -r1.20 -r1.21 --- openacs-4/packages/assessment/www/asm-admin/one-a.adp 31 Jan 2008 16:06:26 -0000 1.20 +++ openacs-4/packages/assessment/www/asm-admin/one-a.adp 1 Dec 2008 16:57:03 -0000 1.21 @@ -18,7 +18,7 @@ - #assessment.reg_asm# + #assessment.reg_asm# Index: openacs-4/packages/assessment/www/asm-admin/one-section.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/one-section.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/one-section.adp 15 May 2007 20:14:18 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/one-section.adp 1 Dec 2008 16:57:03 -0000 1.3 @@ -33,7 +33,6 @@ -
@title@ #assessment.Edit# @@ -47,13 +46,9 @@ #assessment.remove_section# -
- -
-
Index: openacs-4/packages/assessment/www/asm-admin/questions.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/questions.adp,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/assessment/www/asm-admin/questions.adp 5 Sep 2008 16:39:26 -0000 1.5 +++ openacs-4/packages/assessment/www/asm-admin/questions.adp 1 Dec 2008 16:57:03 -0000 1.6 @@ -4,36 +4,31 @@ - -

-#assessment.add_section_first# -
Create a new section -

-
- +
#assessment.add_new_section#
+ -

#assessment.Section_Number#

-
#assessment.Edit# +

#assessment.Section_Number#: @sections.title@

+ #assessment.Edit# - #assessment.add_new_section# - #assessment.Search_Section# - #assessment.edit_section_display# - #assessment.section_preview# + #assessment.add_new_section# + #assessment.Search_Section# + #assessment.edit_section_display# + #assessment.section_preview# - #assessment.Move_Down# + #assessment.Move_Down# - #assessment.Move_Up# + #assessment.Move_Up# - #assessment.remove_section# + #assessment.remove_section# (#assessment.max_time# @sections.max_time_to_complete@) (@sections.points@ #assessment.points#) - #assessment.admin_triggers# - #assessment.add_section_trigger# + #assessment.admin_triggers# + #assessment.add_section_trigger# Index: openacs-4/packages/assessment/www/asm-admin/questions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/questions.tcl,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/questions.tcl 31 Jan 2008 16:06:26 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/questions.tcl 1 Dec 2008 16:57:03 -0000 1.4 @@ -35,8 +35,8 @@ set section_delete_url [export_vars -base section-delete {section_id assessment_id}] set checks_admin_url [export_vars -base checks-admin {assessment_id section_id}] set add_edit_section_check_url [export_vars -base add-edit-section-checks {assessment_id section_id}] - set section_swap_down_url [export_vars -base section-swap {assessment_id section_id {direction down}}] - set section_swap_up_url [export_vars -base section-swap {assessment_id section_id {direction up}}] + set section_swap_down_url [export_vars -base section-swap {assessment_id section_id {direction down} sort_order}] + set section_swap_up_url [export_vars -base section-swap {assessment_id section_id {direction up} sort_order}] } Index: openacs-4/packages/assessment/www/asm-admin/results-export.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-export.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/results-export.adp 15 Apr 2005 17:26:46 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/results-export.adp 1 Dec 2008 16:57:03 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/results-session.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-session.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/assessment/www/asm-admin/results-session.tcl 19 Dec 2007 11:55:07 -0000 1.7 +++ openacs-4/packages/assessment/www/asm-admin/results-session.tcl 1 Dec 2008 16:57:03 -0000 1.8 @@ -63,15 +63,22 @@ set session_score 0 set assessment_score 0 db_multirow sections sections {} { - if {[empty_string_p $points]} { - set points 0 + if {$session_finish ne ""} { + set session_score [db_string get_session_score {} -default ""] + set assessment_score [db_string get_max_points {} -default ""] + #set max_time_to_complete [as::assessment::pretty_time -seconds $assessment_data(max_time_to_complete)] + set max_time_to_complete "" + if {$session_score ne "" && $assessment_score ne "" && $assessment_score > 0} { + set percent_score "[format "%3.2f" [expr {$session_score / ($assessment_score + 0.0) * 100}]]" + } else { + set percent_score "" + } + set showpoints [parameter::get -parameter "ShowPoints" -default 1 ] + } else { + set percent_score "" + set showpoints 0 } - if {[empty_string_p $max_points]} { - set max_points 0 - } - set max_time_to_complete [as::assessment::pretty_time -seconds $max_time_to_complete] - incr session_score $points - incr assessment_score $max_points + } set showpoints [parameter::get -parameter "ShowPoints" -default 1 ] Index: openacs-4/packages/assessment/www/asm-admin/results-session.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-session.xql,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/results-session.xql 21 Feb 2005 14:32:56 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/results-session.xql 1 Dec 2008 16:57:03 -0000 1.2 @@ -40,4 +40,17 @@ + + + select sum(coalesce(points,0)) from as_item_data where session_id=:session_id + + + + + + select sum(coalesce(i.points,0)) from as_items i, as_item_data d + where d.session_id = :session_id and i.as_item_id = d.as_item_id + + + Index: openacs-4/packages/assessment/www/asm-admin/results-users.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-users.tcl,v diff -u -N -r1.12 -r1.13 --- openacs-4/packages/assessment/www/asm-admin/results-users.tcl 31 Jan 2008 16:06:26 -0000 1.12 +++ openacs-4/packages/assessment/www/asm-admin/results-users.tcl 1 Dec 2008 16:57:03 -0000 1.13 @@ -84,7 +84,7 @@ -elements { session_id { label {[_ assessment.View_Results]} - display_template {View} + display_template {View} } subject_name { label {[_ assessment.Name]} @@ -99,7 +99,7 @@ percent_score { label {[_ assessment.Percent_Score]} html {align right style white-space:nowrap} - display_template {@results.percent_score@} + display_template {@results.percent@%} } } -filters { assessment_id { @@ -124,7 +124,7 @@ template::multirow create subjects subject_id subject_url subject_name -db_multirow -extend { result_url subject_url status delete_url } results assessment_results {} { +db_multirow -extend { result_url subject_url status delete_url session_score assessment_score percent } results assessment_results {} { # to display list of users who answered the assessment if anonymous template::multirow append subjects $subject_id [acs_community_member_url -user_id $subject_id] $subject_name @@ -135,10 +135,23 @@ set subject_url [acs_community_member_url -user_id $subject_id] } set result_url [export_vars -base "results-session" {session_id}] - if {$completed_datetime eq ""} { - set status "Incomplete" + if { $completed_datetime eq "" && $session_id eq "" } { + set status [_ assessment.Not_Taken] + } elseif { $completed_datetime eq "" && $session_id ne "" } { + set status [_ assessment.Incomplete] + set session_score "" + set assessment_score "" } else { - set status "Complete" + set status [_ assessment.Complete] + set session_score [db_string get_session_score {} -default ""] + set assessment_score [db_string get_max_points {}] + if { $assessment_score > 0 } { + set percent [format "%3.2f" [expr double([expr double($session_score)*100] / [expr double($assessment_score)])]] + } else { + set percent "" + } + + } set delete_url [export_vars -base session-delete {assessment_id subject_id session_id}] } Index: openacs-4/packages/assessment/www/asm-admin/results-users.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/results-users.xql,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/assessment/www/asm-admin/results-users.xql 7 Oct 2007 22:36:54 -0000 1.4 +++ openacs-4/packages/assessment/www/asm-admin/results-users.xql 1 Dec 2008 16:57:03 -0000 1.5 @@ -22,4 +22,17 @@ + + + select sum(coalesce(points,0)) + from as_item_data where session_id=:session_id + + + + + + select sum(coalesce(i.points,0)) from as_items i, as_item_data d where d.session_id = :session_id and i.as_item_id = d.as_item_id + + + Index: openacs-4/packages/assessment/www/asm-admin/section-copy.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-copy.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/section-copy.adp 12 Jun 2006 02:49:51 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/section-copy.adp 1 Dec 2008 16:57:03 -0000 1.4 @@ -2,6 +2,4 @@ @page_title;noquote@ @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/section-delete.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-delete.adp,v diff -u -N -r1.3 -r1.4 --- openacs-4/packages/assessment/www/asm-admin/section-delete.adp 12 Jun 2006 02:49:51 -0000 1.3 +++ openacs-4/packages/assessment/www/asm-admin/section-delete.adp 1 Dec 2008 16:57:03 -0000 1.4 @@ -2,6 +2,4 @@ @page_title;noquote@ @context_bar;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/section-display-form.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-display-form.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/section-display-form.adp 7 Apr 2005 21:40:45 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/section-display-form.adp 1 Dec 2008 16:57:03 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/section-form.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-form.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/section-form.adp 7 Apr 2005 21:34:45 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/section-form.adp 1 Dec 2008 16:57:03 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@ @context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/section-form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-form.tcl,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/assessment/www/asm-admin/section-form.tcl 7 Oct 2007 22:36:54 -0000 1.8 +++ openacs-4/packages/assessment/www/asm-admin/section-form.tcl 1 Dec 2008 16:57:03 -0000 1.9 @@ -6,7 +6,7 @@ } { assessment_id:integer section_id:integer,optional - after:integer,optional + {after:integer,optional 1} {__new_p 0} } -properties { context:onevalue Index: openacs-4/packages/assessment/www/asm-admin/section-preview.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/section-preview.adp,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/assessment/www/asm-admin/section-preview.adp 31 Jan 2008 16:06:26 -0000 1.5 +++ openacs-4/packages/assessment/www/asm-admin/section-preview.adp 1 Dec 2008 16:57:03 -0000 1.6 @@ -29,10 +29,10 @@ -
+
-
+ Index: openacs-4/packages/assessment/www/asm-admin/send-mail.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/send-mail.adp,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/assessment/www/asm-admin/send-mail.adp 8 Apr 2005 00:50:35 -0000 1.2 +++ openacs-4/packages/assessment/www/asm-admin/send-mail.adp 1 Dec 2008 16:57:03 -0000 1.3 @@ -2,6 +2,4 @@ @page_title;noquote@@context;noquote@ -
-
Index: openacs-4/packages/assessment/www/asm-admin/sessions.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/sessions.tcl,v diff -u -N -r1.5 -r1.6 --- openacs-4/packages/assessment/www/asm-admin/sessions.tcl 31 Jan 2008 16:06:26 -0000 1.5 +++ openacs-4/packages/assessment/www/asm-admin/sessions.tcl 1 Dec 2008 16:57:03 -0000 1.6 @@ -113,7 +113,7 @@ @sessions.percent_score@% - + } hide_p {[expr {[info exists assessment_data(type)] && $assessment_data(type) != "test"}]} Index: openacs-4/packages/assessment/www/asm-admin/unzip-file.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/unzip-file.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/unzip-file.adp 1 Feb 2005 22:00:10 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/unzip-file.adp 1 Dec 2008 16:57:03 -0000 1.2 @@ -1,7 +1,8 @@ Assessment @context;noquote@ +

#assessment.Assessment_Imported_Correctly#
#assessment.Upload_files# - +

Index: openacs-4/packages/assessment/www/asm-admin/view-item-responses.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/view-item-responses.adp,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/assessment/www/asm-admin/view-item-responses.adp 12 Jun 2006 12:14:58 -0000 1.1 +++ openacs-4/packages/assessment/www/asm-admin/view-item-responses.adp 1 Dec 2008 16:57:03 -0000 1.2 @@ -2,6 +2,4 @@ #assessment.Item_Responses#

#assessment.Back_to_Summary#

-

- -

\ No newline at end of file +
@@ -83,7 +83,6 @@
-