Index: openacs-4/packages/invoices/www/invoice-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/invoices/www/invoice-search.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/invoices/www/invoice-search.tcl	2 Apr 2006 22:09:09 -0000	1.1
+++ openacs-4/packages/invoices/www/invoice-search.tcl	3 Apr 2006 11:44:22 -0000	1.2
@@ -5,14 +5,16 @@
     @creation-date 2005-06-06
 } {
     invoice_nr
+    {return_url ""}
 }
 
 set match_invoices [db_list get_invoices {}]
 set match_length [llength $match_invoices]
 
 if { [string equal $match_length 0] } {
     # No Match just redirect
-    ad_returnredirect $return_url
+    # ad_returnredirect $return_url
+    ad_return_error "[_ invoices.no_such_invoice_no]" "[_ invoices.lt_no_such_invoice_no]"
 
 } else {
     set invoice_id [lindex [lindex $match_invoices 0] 0]