save the product tier on ordering

[bse.git] / site / cgi-bin / modules / BSE / DB / Mysql.pm

diff --git a/site/cgi-bin/modules/BSE/DB/Mysql.pm b/site/cgi-bin/modules/BSE/DB/Mysql.pm
index 3c573eb377e956cf5b7c9d20351d4cccc0f45da1..755da7b618d454b3507f848deaca153ddff8c62a 100644 (file)
--- a/site/cgi-bin/modules/BSE/DB/Mysql.pm
+++ b/site/cgi-bin/modules/BSE/DB/Mysql.pm
@@ -5,11 +5,9 @@ use vars qw/@ISA/;
 use Carp 'confess';
 @ISA = qw(BSE::DB);
 
-our $VERSION = "1.010";
+our $VERSION = "1.014";
 
-use vars qw($VERSION $MAX_CONNECTION_AGE);
-
-use Constants 0.1 qw/$DSN $UN $PW $DBOPTS/;
+use vars qw($MAX_CONNECTION_AGE);
 
 use Carp;
 
@@ -91,6 +89,7 @@ SQL
    addProduct => 'insert product values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
    getProductByPkey => 'select article.*, product.* from article, product where id=? and articleId = id',
    getProductByProduct_code => 'select article.*, product.* from article, product where product_code=? and articleId = id',
+   getProductByLinkAlias => 'select article.*, product.* from article, product where linkAlias=? and articleId = id',
    replaceProduct => 'replace product values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
    'Products.stepProducts' => <<EOS,
 select ar.*, pr.* from article ar, product pr, other_parents op
@@ -148,8 +147,8 @@ SQL
    getOrderItemByOrderId => 'select * from order_item where orderId = ?',
    #addOrder => 'insert orders values(null,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
    #replaceOrder => 'replace orders values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
-   addOrderItem => 'insert order_item values(null,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
-   replaceOrderItem => 'replace order_item values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
+   #addOrderItem => 'insert order_item values(null,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
+   #replaceOrderItem => 'replace order_item values(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
    #getOrderByUserId => 'select * from orders where userId = ?',
    deleteOrdersItems => 'delete from order_item where orderId = ?',
 
@@ -288,9 +287,15 @@ SQL
 select bs.*, us.* from admin_base bs, admin_users us
   where bs.id = us.base_id and bs.id = ?
 SQL
-   addAdminUser => 'insert into admin_users values(?,?,?,?,?,?)',
-   replaceAdminUser => 'replace into admin_users values(?,?,?,?,?,?)',
+   addAdminUser => 'insert into admin_users values(?,?,?,?,?,?,?)',
+   replaceAdminUser => 'replace into admin_users values(?,?,?,?,?,?,?)',
    deleteAdminUser => 'delete from admin_users where base_id = ?',
+   "AdminUsers.group_members" => <<SQL,
+select bs.*, us.*
+  from admin_base bs, admin_users us, admin_membership am
+  where bs.id = us.base_id && am.group_id = ? and am.user_id = bs.id
+  order by logon
+SQL
    adminUsersGroups => <<SQL,
 select bs.*, gr.*
   from admin_base bs, admin_groups gr, admin_membership am
@@ -305,12 +310,6 @@ select bs.*, gr.*
   from admin_base bs, admin_groups gr
   where bs.id = gr.base_id
   order by name
-SQL
-   adminGroupsUsers => <<SQL,
-select bs.*, us.*
-  from admin_base bs, admin_users us, admin_membership am
-  where bs.id = us.base_id && am.group_id = ? and am.user_id = bs.id
-  order by logon
 SQL
    getAdminGroupByName => <<SQL,
 select bs.*, gr.* from admin_base bs, admin_groups gr
@@ -324,6 +323,12 @@ SQL
    replaceAdminGroup => 'replace into admin_groups values(?,?,?,?,?)',
    deleteAdminGroup => 'delete from admin_groups where base_id = ?',
    groupUsers => 'select * from admin_membership where group_id = ?',
+   bseAdminGroupMember => <<SQL,
+select 1
+from admin_membership
+where group_id = ?
+  and user_id = ?
+SQL
    'AdminGroups.userPermissionGroups' => <<SQL,
 select bs.*, ag.* from admin_base bs, admin_groups ag, admin_membership am
 where bs.id = ag.base_id