Index: openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-add.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-add.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/ecommerce/www/admin/customer-service/picklist-item-add.tcl	27 Aug 2001 00:06:28 -0000	1.2
@@ -11,8 +11,8 @@
     @author ported by Jerry Asher (jerry@theashergroup.com)
 } {
     picklist_name
-    prev_sort_key
-    next_sort_key
+    prev_sort_key:notnull
+    next_sort_key:notnull
 }
 
 ad_require_permission [ad_conn package_id] admin
@@ -22,11 +22,12 @@
 # (average of prev_sort_key and next_sort_key);
 # otherwise warn them that their form is not up-to-date
 
+set sort_key [expr ($prev_sort_key + $next_sort_key)/2]
 
 set n_conflicts [db_string get_count_items "select count(*)
 from ec_picklist_items
 where picklist_name=:picklist_name
-and sort_key = (:prev_sort_key + :next_sort_key)/2"]
+and sort_key = :sort_key"]
 
 if { $n_conflicts > 0 } {
     ad_return_complaint 1 "<li>The page you came from appears to be out-of-date;
@@ -63,4 +64,4 @@
 "
 
 
-doc_return  200 text/html $doc_body
\ No newline at end of file
+doc_return  200 text/html $doc_body