Subversion Repositories DevTools

Rev

Rev 5590 | Rev 5671 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5590 Rev 5648
Line 103... Line 103...
103 
      'update fields
 103 
      'update fields
104 
      rsTemp.Edit()
 104 
      rsTemp.Edit()
105 
      rsTemp.Fields("ripple_field").Value = selectedRippleType
 105 
      rsTemp.Fields("ripple_field").Value = selectedRippleType
106 
      rsTemp.Update()
 106 
      rsTemp.Update()
107 
 
 107 
 
108 
      Dim anotherQry
 108 
      Dim selectedRippleName, selectedRippleState
109 
      Set anotherQry = OraDatabase.DbCreateDynaset( "SELECT state_name from ripple_field_states WHERE state_acronym ='"& selectedRippleType &"'", cint(0))
 109 
      selectedRippleName = rippleFieldName(selectedRippleType, selectedRippleState)
110 
 
 110 
 
111 
      '/* Log Action */
 111 
      '/* Log Action */
112 
      Call Log_Action ( Request("pv_id"), "ripple_type_update", anotherQry.Fields("state_name").Value )
 112 
      Call Log_Action ( Request("pv_id"), "ripple_type_update", selectedRippleName)
113 
      anotherQry.Close()
 - 
 
114 
      Set anotherQry = nothing
 - 
 
115 
   End If
 113 
   End If
116 
 
 114 
 
117 
   If ( storedMajorLimit <> enteredMajorLimit ) Then
 115 
   If ( storedMajorLimit <> enteredMajorLimit ) Then
118 
 
 116 
 
119 
      'update fields
 117 
      'update fields