OpenACS

miguelm
committed
MAIN:miguelm:20051012225600
on 13 Oct 05
removing files
openacs-4/.../jabber/www/edit-user-2.tcl (+1 -1)
126 126                        db_dml remove_old_user_id "UPDATE jb_screens SET user_id = :db_nulling WHERE screen_id = :old_screen_id" 
127 127
128 128                    }
129 129
130 130                      #create a new jb_screen object for the new screen name
131 131                        db_exec_plsql new_screen {}
132 132
133 133                        #now add the new screen to the jabber roster
134 134                        set success [jb_addtransportbuddy $user_screen_name "online-trace" [jb_get_transport_id_from_symbol $service]]
135 135
136 136                    }
137 137
138 138                
139 139             } else {
140 140 ns_log debug "edit-user-2  3.1.2"
141 141
142 142                   #old and new screen name match so do nothing
143 143             }
144 144         } else {
145 145 ns_log debug "edit-user-2  3.2"
146            #we have no old_screen_id for this user_id , so check if we have to fully  create a a new one, or just inserting the old user_id.
  146          #we have no old_screen_id for this user_id, so check if we have to fully create a new one, or just inserting the old user_id.
147 147             if { [db_0or1row check_new_screen_exists "SELECT (screen_id) as new_screen_id 
148 148                                                       FROM jb_screens
149 149                                                       WHERE im_screen_name = :user_screen_name
150 150                                                       AND service = :service"]} {
151 151
152 152  
153 153          #just update the user_id column
154 154           db_dml insert_new_user_id "UPDATE jb_screens SET user_id = :user_id WHERE screen_id = :new_screen_id"      
155 155                
156 156
157 157       } else {
158 158             db_exec_plsql new_screen {}
159 159            
160 160             #now add the new screen to the jabber roster
161 161             set success [jb_addtransportbuddy $user_screen_name "online-trace" [jb_get_transport_id_from_symbol $service]]
162 162       }
163 163         }
164 164     }
165 165 }         
166 166