Forum OpenACS Development: unable to delete picture

I get an error when trying to delete a picture. Here's the message I
get.

what can I do when I get such kind of message?

Thanks.

Request Error
Database operation "0or1row" failed (exception NSDB, "Query was not
a statement returning rows.")
while executing
"ns_pg_bind 0or1row nsdb0 {
    select pa_photo__delete (:photo_id)
}"
("uplevel" body line 1)
invoked from within
"uplevel $ulevel [list ns_pg_bind $type $db $sql"
invoked from within
"db_exec 0or1row $db $full_statement_name $sql"
invoked from within
"if {[regexp -nocase -- {^s*select} $test_sql match]} {
db_qd_log Debug "PLPGSQL: bypassed anon function"
set selection [db_ex..."
("uplevel" body line 6)
invoked from within
"uplevel 1 $code_block "
invoked from within
"db_with_handle db {
# plsql calls that are simple selects bypass the plpgsql
# mechanism for creating anonymous functions (OpenACS - ..."
(procedure "db_exec_plsql" line 13)
invoked from within
"db_exec_plsql drop_image {
    begin
    pa_photo.delete (:photo_id);
    end;
}"
invoked from within
"if { [string equal $confirmed_p "t"] } {
# they have confirmed that they want to delete the photo
# delete pa_photo object which drops all as..."
("uplevel" body line 36)
invoked from within
"uplevel {
      # photo-album/www/photo-delete.tcl

ad_page_contract {
Confirms that user wants to delete a photo and deletes photo

The dele..."
(procedure "code::tcl::/web/coachline/packages/photo-
album/www/photo-del..." line 2)
invoked from within
"code::tcl::$__adp_stub"
invoked from within
"if { [file exists $__adp_stub.tcl] } {

# ensure that data source preparation procedure exists and is
up-to-date
adp_init tcl $__adp_stub
..."
("uplevel" body line 3)
invoked from within
"uplevel {

if { [file exists $__adp_stub.tcl] } {

# ensure that data source preparation procedure exists and is
up-to-date
adp_init t..."
(procedure "adp_prepare" line 3)
invoked from within
"adp_prepare "
(procedure "template::adp_parse" line 30)
invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
(procedure "adp_parse_ad_conn_file" line 7)
invoked from within
"$handler"
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
    $handler
} ad_script_abort val {
    # do nothing
}"
invoked from within
"rp_serve_concrete_file [ad_conn file]"
(procedure "rp_serve_abstract_file" line 60)
invoked from within
"rp_serve_abstract_file "$root/$path""
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
    rp_serve_abstract_file "$root/$path"
    set tcl_url2file([ad_conn url]) [ad_conn file]
    set tcl_url2path_info([ad_conn url]) [ad_conn path_inf..."