Subversion Repositories DevTools

Rev

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

Rev 129 Rev 1376
Line 79... Line 79...
79 
<%
 79 
<%
80 
'-----------------------  MAIN LINE  ---------------------------
 80 
'-----------------------  MAIN LINE  ---------------------------
81 
 
 81 
 
82 
'--- Process submition ---
 82 
'--- Process submition ---
83 
If (parView_id <> "") AND (parViewName <> "") Then
 83 
If (parView_id <> "") AND (parViewName <> "") Then
84 
   ' All mendatory parameters FOUND
 84 
   ' All mandatory parameters FOUND
85 
 
 85 
 
86 
   ' report errors if found
 86 
   ' report errors if found
87 
   If NOT This_View_Owner( parView_id, objAccessControl.UserId ) Then
 87 
   If NOT This_View_Owner( parView_id, objAccessControl.UserId ) Then
88 
      Session("reqParam") = ""
 88 
      Session("reqParam") = ""
89 
      Session("ERRlog") = ""
 89 
      Session("ERRlog") = ""
Line 95... Line 95...
95 
   Call Update_View ( parView_id, parViewName, parPubread )
 95 
   Call Update_View ( parView_id, parViewName, parPubread )
96 
   Call Update_View_Definition ( parView_id, parPkgInc )
 96 
   Call Update_View_Definition ( parView_id, parPkgInc )
97 
 
 97 
 
98 
   Response.Redirect("members_personal_view.asp")
 98 
   Response.Redirect("members_personal_view.asp")
99 
Else
 99 
Else
100 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 100 
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
101 
   Response.write QSTR_All
 101 
   Response.write QSTR_All
102 
End If
 102 
End If
103 
%>
 103 
%>
104 
 
 104 
 
105 
<!-- DESTRUCTOR ------->
 105 
<!-- DESTRUCTOR ------->