# /packages/evaluaiton/www/admin/evaluations/evaluations-edit.tcl
ad_page_contract {
Displays the evaluations of students in order to edit them
@author jopez@galileo.edu
@creation-date Mar 2004
@cvs-id $Id: evaluations-edit.tcl,v 1.16 2017/08/07 23:48:10 gustafn Exp $
} {
task_id:naturalnum,notnull
{return_url [export_vars -base student-list { task_id }]}
grade_id:naturalnum,optional
}
set page_title "[_ evaluation.Edit_Evaluations_]"
set context [list [list "[export_vars -base student-list { task_id }]" "[_ evaluation.Studen_List_]"] "[_ evaluation.Edit_Evaluations_]"]
set simple_p [parameter::get -parameter "SimpleVersion"]
set max_grade [db_string get_task_weight {}]
set elements [list party_name \
[list label "[_ evaluation.Name_]" \
orderby_asc {party_name asc} \
orderby_desc {party_name desc}] \
answer \
[list label "[_ evaluation.Answer_]" \
display_template { @evaluated_students.answer;noquote@ } \
link_url_col answer_url \
link_html { title "View answer" }] \
submission_date_pretty \
[list label "[_ evaluation.Submission_Date_]" \
orderby_asc {submission_date asc} \
orderby_desc {submission_date desc}] \
grade \
[list label "[_ evaluation.Maximun_Grade_] $max_grade" \
display_template {
} ] \
edit_reason \
[list label "[_ evaluation.Edit_Reason_]" \
display_template { } \
] \
show_student_p \
[list label "[_ evaluation.lt_Allow_the_students_br]" \
display_template { Yes No } \
] \
]
template::list::create \
-name evaluated_students \
-multirow evaluated_students \
-key task_id \
-filters { task_id {} } \
-elements $elements
set orderby [template::list::orderby_clause -orderby -name evaluated_students]
if {$orderby eq ""} {
set orderby " order by party_name asc"
}
db_multirow -extend { answer answer_url radio_yes_checked radio_no_checked submission_date_pretty } evaluated_students get_evaluated_students { *SQL* } {
set grade [format %0.2f [expr {$grade*$max_grade/100}]]
if {$online_p == "t"} {
if { [db_0or1row get_answer_info { *SQL* }] } {
# working with answer stuff (if it has a file/url attached)
if { $answer_data eq "" } {
set answer "[_ evaluation.No_response_]"
} elseif {$answer_title eq "link"} {
set answer_url "[export_vars -base "$answer_data" { }]"
set answer "[_ evaluation.View_answer_]"
} else {
# we assume it's a file
set answer_url "[export_vars -base "[ad_conn package_url]view/$answer_title" { revision_id }]"
set answer "[_ evaluation.View_answer_]"
}
if { $answer ne "[_ evaluation.No_response_]" && [db_string compare_evaluation_date { *SQL* } -default 0] } {
set answer " [_ evaluation.View_NEW_answer_]"
}
set submission_date_pretty [lc_time_fmt $submission_date_ansi "%q %r"]
if { [db_string compare_submission_date { *SQL* } -default 0] } {
set submission_date_pretty "$submission_date_pretty [_ evaluation.late__1]"
}
}
}
if {$show_student_p == "t"} {
set radio_yes_checked "checked"
set radio_no_checked ""
} else {
set radio_yes_checked ""
set radio_no_checked "checked"
}
set evaluation_ids($party_id) $evaluation_id
set item_to_edit_ids($party_id) $item_id
}
set grades_sheet_item_id [db_nextval acs_object_id_seq]
set export_vars [export_vars -form { evaluation_ids item_to_edit_ids }]
ad_return_template
# Local variables:
# mode: tcl
# tcl-indent-level: 4
# indent-tabs-mode: nil
# End: