Index: openacs-4/packages/evaluation/www/task-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/task-view.tcl,v diff -u -N -r1.15 -r1.16 --- openacs-4/packages/evaluation/www/task-view.tcl 7 Oct 2007 22:36:59 -0000 1.15 +++ openacs-4/packages/evaluation/www/task-view.tcl 27 Oct 2014 16:41:25 -0000 1.16 @@ -7,8 +7,8 @@ @creation-date Mar 2004 @cvs-id $Id$ } { - grade_id:integer,notnull - task_id:integer,notnull + grade_id:naturalnum,notnull + task_id:naturalnum,notnull {return_url ""} } @@ -33,9 +33,9 @@ } db_1row get_task_info { *SQL* } -if { ![empty_string_p $task_data] } { +if { $task_data ne "" } { - if { [string eq $task_title "link"] } { + if {$task_title eq "link"} { set task_url "$task_data" } else { # we assume it's a file @@ -51,9 +51,9 @@ } } -if { ![empty_string_p $solution_data] } { +if { $solution_data ne "" } { - if { [string eq $solution_title "link"] } { + if {$solution_title eq "link"} { # there is a bug in the template::list, if the url does not has a http://, ftp://, the url is not absolute, # so we have to deal with this case array set community_info [site_node::get -url "[dotlrn_community::get_community_url [dotlrn_community::get_community_id]][evaluation::package_key]"]