[ActiveLock-Development] CVS: activelock/src ActiveLock.cls,1.7,1.8 Globals.cls,1.3,1.4

[Thanh H. T. <th...@us...>]

Update of /cvsroot/activelock/activelock/src
In directory sc8-pr-cvs1:/tmp/cvs-serv8226

Modified Files:
	ActiveLock.cls Globals.cls 
Log Message:
- Added ActiveLockErrCodeConstants.alerrNotImplemented
- corrected some vbdox errors

Index: ActiveLock.cls
===================================================================
RCS file: /cvsroot/activelock/activelock/src/ActiveLock.cls,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- ActiveLock.cls	3 Nov 2003 07:25:06 -0000	1.7
+++ ActiveLock.cls	4 Nov 2003 07:41:19 -0000	1.8
@@ -83,6 +83,7 @@
 ' 10.13.03 - th2tran       - Fixed bug: If ValidateValue event was not handled by the client, then we ended up
 '                            hashing an empty string.
 ' 11.02.03 - th2tran       - alcrypto.dll now resides in the Windows System directory
+'                          - IActiveLock_Transfer raise alerrNotImplemented error until we get this implemented
 ' </pre>
 
 '  ///////////////////////////////////////////////////////////////////////
@@ -404,6 +405,7 @@
 
 Private Function IActiveLock_Transfer(OtherSoftwareCode As String) As String
     ' TODO: Implement me!
+    Err.Raise ActiveLockErrCodeConstants.alerrNotImplemented, "IActiveLock_Transfer", "Operation not implemented"
 End Function
 
 Private Property Get IActiveLock_UsedDays() As Long

Index: Globals.cls
===================================================================
RCS file: /cvsroot/activelock/activelock/src/Globals.cls,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Globals.cls	3 Nov 2003 06:30:42 -0000	1.3
+++ Globals.cls	4 Nov 2003 07:41:19 -0000	1.4
@@ -74,6 +74,7 @@
 '   08.03.03 - th2tran       - VBDox&#39;ed this class.
 '   10.13.03 - th2tran       - Corrections to ActiveLockErrCodeConstants vbdox errors.
 '                            - Added VB descriptions for VB Object Browser's sake.
+'   11.02.03 - th2tran       - Added ActiveLockErrCodeConstants.alerrNotImplemented
 ' </pre>
 '  ///////////////////////////////////////////////////////////////////////
 '  /                MODULE CODE BEGINS BELOW THIS LINE                   /
@@ -93,6 +94,7 @@
 ' @param alerrKeyStoreInvalid   Key Store Provider has not been initialized yet.
 ' @param alerrFileTampered      ActiveLock DLL file has been tampered.
 ' @param alerrNotInitialized    ActiveLock has not been initialized yet.
+' @param alerrNotImplemented    An ActiveLock operation has not been implemented.
 Public Enum ActiveLockErrCodeConstants
     alerrOK = 0   ' successful
     alerrNoLicense = &H80040001         ' vbObjectError (&H80040000) + 1
@@ -103,6 +105,7 @@
     alerrKeyStoreInvalid = &H80040010
     alerrFileTampered = &H80040011
     alerrNotInitialized = &H80040012
+    alerrNotImplemented = &H80040013
 End Enum
 
 ''
@@ -128,13 +131,14 @@
 ' @param Name           Product/Software Name
 ' @param Code           Product/Software Code
 ' @param Ver            Product version
-' @param Licclass       License class
+' @param Flags          License Flags
 ' @param LicType        License type
 ' @param Licensee       Registered party for which the license has been issued
 ' @param Expiration     Expiration date
 ' @param LicKey         License key
 ' @param RegisteredDate Date on which the product is registered
 ' @param Hash1          Hash-1 code
+' @param MaxUsers       Maximum number of users allowed to use this license
 '
 ' @return   License object.
 Public Function CreateProductLicense(ByVal Name As String, _
@@ -151,14 +155,14 @@
                                      ) As ProductLicense
     Dim NewLic As New ProductLicense
     With NewLic
-        .ProductName = Name
+        .ProductName = name
         .ProductKey = Code
         .ProductVer = Ver
         .LicenseClass = GetClassString(Flags)
         .LicenseType = LicType
         .Licensee = Licensee
         .MaxCount = MaxUsers
-        ' ignore exipration date if license type is "permanent"
+        ' ignore expiration date if license type is "permanent"
         If LicType <> allicPermanent Then
             .Expiration = Expiration
         End If