clueless

ad_page_contract {} -query {} -properties {}set user_id [ad_conn user_id]set package_id [ad_conn package_id]# maybe style package_id is better choice for object_idpermission::require_permission -object_id $package_id -privilege "read"set item_of_interest_count 0db_multirow \  -extend {del_link} \  items_of_interest get_items_of_interest {    select       s.style_name,      s.style_item_id,      rel.rel_id    from       styles s,      cr_items i,       cr_revisions r,      acs_rels rel,      acs_permission__permission_p(rel.rel_id, :user_id, 'delete')        as del_p    where         s.style_item_id = interest_rel__content_item_of_interest(rel.rel_id)      and        i.live_revision = r.revision_id      and        rel.rel_type = 'interest_rel'      and        interest_rel__interested_party(rel.rel_id) = :user_id      and        interest_rel__content_item_of_interest(rel.rel_id) = i.item_id  } {      set del_link [export_vars -base rm-ir {rel_id}]      incr item_of_interest_count  }set item_not_of_interest_count 0db_multirow \  -extend {add_link} \  items_not_of_interest get_items_not_of_interest {    select       s.style_name,      i.item_id    from       cr_items i,       cr_revisions r,      styles s    where         i.live_revision = r.revision_id      and        s.style_item_id = r.item_id      and        s.style_revision_id = r.revision_id      and        not exists          (            select               rel.rel_id            from acs_rels rel            where                rel.rel_type = 'interest_rel'              and                interest_rel__interested_party(rel.rel_id) = :user_id              and                interest_rel__content_item_of_interest(rel.rel_id) =                   i.item_id          )  } {      set add_link [export_vars -base mk-ir {user_id item_id}]      incr item_not_of_interest_count  }