Index: openacs-4/packages/photo-album/www/album-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/album-delete.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/photo-album/www/album-delete.tcl	6 Sep 2013 17:17:43 -0000	1.6
+++ openacs-4/packages/photo-album/www/album-delete.tcl	14 Oct 2013 17:56:29 -0000	1.7
@@ -34,7 +34,7 @@
 permission::require_permission -object_id $album_id -privilege delete
 permission::require_permission -object_id $parent_folder_id -privilege write
 
-if { [string equal $confirmed_p "t"]  } {
+if {$confirmed_p == "t"} {
     # they have confirmed that they want to delete the album
 
     db_exec_plsql album_delete "