Subversion Repositories DevTools

Rev

Rev 5590 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5590 Rev 5957
Line 87... Line 87...
87 
   ' report errors if found
 87 
   ' report errors if found
88 
   If NOT This_View_Owner( parView_id, objAccessControl.UserId ) Then
 88 
   If NOT This_View_Owner( parView_id, objAccessControl.UserId ) Then
89 
      Session("reqParam") = ""
 89 
      Session("reqParam") = ""
90 
      Session("ERRlog") = ""
 90 
      Session("ERRlog") = ""
91 
      Session("ERRlogFULL") = ""
 91 
      Session("ERRlogFULL") = ""
- 
 
 92 
      Call Destroy_All_Objects
92 
      Response.Redirect("message.asp?msg=401-4")
 93 
      Response.Redirect("message.asp?msg=401-4")
93 
   End If
 94 
   End If
94 
 
 95 
 
95 
   'COMPLETE THE REQUEST...
 96 
   'COMPLETE THE REQUEST...
96 
   Call Update_View ( parView_id, parViewName, parPubread )
 97 
   Call Update_View ( parView_id, parViewName, parPubread )
97 
   Call Update_View_Definition ( parView_id, parPkgInc )
 98 
   Call Update_View_Definition ( parView_id, parPkgInc )
98 
 
 99 
 
- 
 
 100 
   Call Destroy_All_Objects
99 
   Response.Redirect("members_personal_view.asp")
 101 
   Response.Redirect("members_personal_view.asp")
100 
Else
 102 
Else
101 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 103 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
102 
   Response.write QSTR_FullQuery
 104 
   Response.write QSTR_FullQuery
103 
End If
 105 
End If
104 
%>
 106 
%>
105 
 
 - 
 
106 
<!-- DESTRUCTOR ------->
 107 
<!-- DESTRUCTOR ------->
107 
<!--#include file="common/destructor.asp"-->
 108 
<!--#include file="common/destructor.asp"-->