Index: openacs-4/packages/dotlrn-homework/www/toggle-homework-alert.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/toggle-homework-alert.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-homework/www/toggle-homework-alert.tcl	30 Oct 2003 12:21:44 -0000	1.3
+++ openacs-4/packages/dotlrn-homework/www/toggle-homework-alert.tcl	27 Oct 2014 16:41:21 -0000	1.4
@@ -16,7 +16,7 @@
     return_url:notnull
 } -validate {
     valid_folder -requires {folder_id:integer} {
-	if ![fs_folder_p $folder_id] {
+	if {![fs_folder_p $folder_id]} {
 	    ad_complain "[_ dotlrn-homework.lt_spec_parent]"
 	}
     }
@@ -37,8 +37,8 @@
     }
 
     # The get routines return a list of name/id pairs so extract the ids
-    set interval_id [lindex [lindex $intervals 0] 1]
-    set delivery_method_id [lindex [lindex $delivery_methods 0] 1]
+    set interval_id [lindex $intervals 0 1]
+    set delivery_method_id [lindex $delivery_methods 0 1]
 
     # Add the alert
     notification::request::new -type_id $type_id -user_id [ad_conn user_id] -object_id $folder_id \