<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== ' Lock Release ' --- PROCESS FORM --- '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% ' Set rfile parameter. This is a return page after Login Call objPMod.StoreParameter ( "rfile", "dependencies.asp" ) '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parMsgFlag '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parMsgFlag = QStrPar("msgflag") '---------------------------------------------- %> <% Sub LockRelease ( NNrtag_id ) ' Update package_versions table objEH.TryORA ( OraSession ) On Error Resume Next ' Update release_tags table OraDatabase.ExecuteSQL _ " UPDATE release_tags"&_ " SET official = 'Y', official_stamp = "& ORA_SYSDATE &", releasor_id = "& objAccessControl.UserId &_ " WHERE rtag_id = "& NNrtag_id objEH.CatchORA ( OraSession ) End Sub %> <% '----------------------- MAIN LINE --------------------------- '--- Process submition --- If (parRtag_id <> "") Then 'COMPLETE THE REQUEST... Call LockRelease ( parRtag_id ) Call RaiseMsg ( enum_MSG_RELEASE_IS_NOW_LOCKED, parRtag_id ) Else Response.write "Some mandatory parameters are missing!" & "
" 'TODO Response.write QSTR_All End If %>