/**
  * Delete object (del=1 parameter)
  *
  * @return void
  */
 function doDelete()
 {
     if ($this->_obj->_purge) {
         set_time_limit(120);
         if ($msg = $this->_obj->purge()) {
             CAppUI::setMsg($msg, UI_MSG_ERROR);
             if ($this->redirectError) {
                 $this->redirect =& $this->redirectError;
             }
         } else {
             CValue::setSession($this->objectKey);
             CAppUI::setMsg("msg-purge", UI_MSG_ALERT);
             if ($this->redirectDelete) {
                 $this->redirect =& $this->redirectDelete;
             }
         }
         return;
     }
     if ($msg = $this->_obj->delete()) {
         CAppUI::setMsg($msg, UI_MSG_ERROR);
         if ($this->redirectError) {
             $this->redirect =& $this->redirectError;
         }
     } else {
         CValue::setSession($this->objectKey);
         CAppUI::setMsg($this->deleteMsg, UI_MSG_ALERT);
         if ($this->redirectDelete) {
             $this->redirect =& $this->redirectDelete;
         }
     }
 }