First of all, thanks for the great explanation.
Stupid me, just inserted your code at the end of index.tcl and it works. Seems to me as if this is just luck.
Now I tried to insert the code the way (I understood your explanation) it is supposed to be.
I added
admin_p:onevalue
to that properties area that is already there.
And set
set package_id [ad_conn package_id]
set admin_p [ad_permission_p $package_id admin]
just there where other "set"s are done. Saving and trying that freaks out heavily. It says something about that something called "w" cannot be found. Sounds like certain crap to me.
Have I added in the right places, or did I get it wrong?
Don't say you are new to this, if there's folks like me out there ;)