Subversion Repositories DevTools

Rev

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

Rev 1376 Rev 3959
Line 68... Line 68...
68 
   objEH.CatchORA ( OraSession )
 68 
   objEH.CatchORA ( OraSession )
69 
 
 69 
 
70 
   ReturnCode = OraDatabase.Parameters("RETURN_CODE").Value
 70 
   ReturnCode = OraDatabase.Parameters("RETURN_CODE").Value
71 
 
 71 
 
72 
   If ( ReturnCode <> 0 )  AND (Request("btn") <> "YES") Then
 72 
   If ( ReturnCode <> 0 )  AND (Request("btn") <> "YES") Then
73 
      'If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then
 - 
 
74 
         ' Admin and System Admin users
 - 
 
75 
         Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& "_remove_package.asp")
 73 
         Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& "_remove_package.asp")
76 
 
 - 
 
77 
      'Else
 - 
 
78 
      '   ' Other users
 - 
 
79 
      '   Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
 - 
 
80 
      '
 - 
 
81 
      'End If
 - 
 
82 
   End If
 74 
   End If
83 
 
 75 
 
84 
   OraDatabase.Parameters.Remove "PV_ID_LIST"
 76 
   OraDatabase.Parameters.Remove "PV_ID_LIST"
85 
   OraDatabase.Parameters.Remove "RTAG_ID"
 77 
   OraDatabase.Parameters.Remove "RTAG_ID"
86 
   OraDatabase.Parameters.Remove "USER_ID"
 78 
   OraDatabase.Parameters.Remove "USER_ID"