Zooflow: CheckInOut

Modules.EDMIAPI/Modules/IDB/CheckInFile.vb

@@ -20,12 +20,12 @@ Namespace Modules.IDB
                     .Language = pOptions.Language,
                     .UserName = pOptions.Username
                 },
-                .Action = CheckInOutFileAction.CheckOut,
+                .Action = CheckInOutFileAction.CheckIn,
                 .ObjectId = pObjectId
             })
 
             If oCheckInFileResponse.OK = False Then
-                Throw New ApplicationException("Could not Import File Contents!")
+                Throw New ApplicationException(oCheckInFileResponse.ErrorMessage)
             End If
 
             Return oCheckInFileResponse.ObjectId