<%@ Language=VBScript   %>
<%	Option Explicit 	%>
<%
	'-------------------------------------------------------------------------
	' quota_prop.asp: change quota entry properties
	'
	' Copyright (c) Microsoft Corporation.  All rights reserved.
	'
	' Date			Description
	' 17-Jan-01		Creation date
	' 15-Mar-01     Ported to 2.0
	'-------------------------------------------------------------------------
%>
	<!-- #include virtual = "/admin/inc_framework.asp" -->
	<!-- #include file="loc_quotas.asp" -->
	<!-- #include file="inc_quotas.asp" -->
<%
	'-------------------------------------------------------------------------
	' Global Variables
	'-------------------------------------------------------------------------
	Dim G_nRadioChecked	 ' to set radioButton values - contains 1 or 2 only

	Dim SOURCE_FILE      ' the source file name used while Tracing
	SOURCE_FILE = SA_GetScriptFileName()

	Dim L_QUOTAUSERNOTFOUND_ERRORMESSAGE
	Dim arrVarReplacementStrings(1)	

	'-------------------------------------------------------------------------
	' Global Form Variables
	'-------------------------------------------------------------------------
	Dim F_strVolName        ' Volume Name
	Dim F_strUsername       ' to display user Name
	Dim F_ThresholdSize     ' the warning level set for the user - textBox value
	Dim F_ThresholdUnits    ' the units for the warning level set - comboBox Value
	Dim F_LimitSize         ' Disk limit size
	Dim F_LimitUnits        ' Disk limit size units
	Dim F_bIsAdmin			' Whether user is in Administrators group

	'======================================================
	' Entry point
	'======================================================
	Dim page
	DIM L_TASKTITLE_QUOTAPROPERTY_TEXT

	' get the user name to be appended to the title
	Call getUserName()
	
	' append the user name to the title	
	arrVarReplacementStrings(0) = F_strUserName
	
	' check if the user is in admin group
	F_bIsAdmin = IsUserInAdministratorsGroup(F_strUserName)	

	L_TASKTITLE_QUOTAPROPERTY_TEXT = SA_GetLocString("diskmsg.dll", "403E0097", arrVarReplacementStrings)
	
	Dim aPageTitle(2)

	aPageTitle(0) = L_BROWSERCAPTION_QUOTAPROPERTY_TEXT
	aPageTitle(1) = L_TASKTITLE_QUOTAPROPERTY_TEXT

	'
	' Create a Property Page
	Call SA_CreatePage( aPageTitle, "", PT_PROPERTY, page )

	'
	' Serve the page
	Call SA_ShowPage( page )
	
	'======================================================
	' Web Framework Event Handlers
	'======================================================

	'---------------------------------------------------------------------
	' Function name:    OnInitPage
	' Description:      Called to signal first time processing for this page
	' Input Variables:  Out: PageIn 
	'                   Out: EventArg
	' Output Variables:	None
	' Return Values:    TRUE to indicate initialization was successful.
	'                   FALSE to indicate errors. Returning FALSE will 
	'                   cause the page to be abandoned.
	' Global Variables: None
	' Functions Called: getValuesForUser
	'
	' Get ALL the initial form field settings
	'---------------------------------------------------------------------
	Public Function OnInitPage(ByRef PageIn, ByRef EventArg)
		Call SA_TraceOut(SOURCE_FILE, "OnInitPage")

		Dim sValue       ' to get the parent selection
		
		' get the volume name from the parent OTS
		Call OTS_GetTableSelection("", 1, sValue )
			
		F_strVolName = sValue

		' Call the function to get other the default values
		OnInitPage = getValuesForUser    ' True /False
	End Function
	
	'---------------------------------------------------------------------
	' Function name:    OnServePropertyPage
	' Description:      Called when the page needs to be served 
	' Input Variables:	Out: PageIn 
	'                   Out: EventArg
	' Output Variables:	None
	' Return Values:    TRUE to indicate no problems occured. FALSE to 
	'                   indicate errors. Returning FALSE will cause the 
	'                   page to be abandoned.
	' Global Variables: In: F_(*) - Form field values
	'                   In: L_(*) - Text display strings
	'                   In: G_nRadioChecked - radio to be selected
	' Functions Called: (i)ServeCommonJavaScript, (ii)setUnits
	'
	' The UI is served here.
	'---------------------------------------------------------------------
	Public Function OnServePropertyPage(ByRef PageIn, ByRef EventArg)
		Call SA_TraceOut(SOURCE_FILE, "OnServePropertyPage")
	
		'
		' Emit Javascript functions required by Web Framework
		Call ServeCommonJavaScript()

%>
	<table border="0" cellspacing="0" cellpadding="0">
		<tr>
			<td nowrap colspan="2" class="TasksBody">
				<%If F_bIsAdmin Then%>
					<input type="radio" class="FormRadioButton" name="donotlimit" value="1" <% If G_nRadioChecked = 1 Then Response.Write "CHECKED" Else Response.write "UNCHECKED" End If %> onClick="JavaScript:DisableWarnLevel(warndisksize,warndisksizeunits); DisableLimitLevelForAdmin(limitdisksize,limitdisksizeunits)">&nbsp;<% =L_DONOTLIMITDISKUSAGE_TEXT %>
				<%Else%>
					<input type="radio" class="FormRadioButton" name="donotlimit" value="1" <% If G_nRadioChecked = 1 Then Response.Write "CHECKED" Else Response.write "UNCHECKED" End If %> onClick="JavaScript:DisableWarnLevel(warndisksize,warndisksizeunits); DisableLimitLevel(limitdisksize,limitdisksizeunits)">&nbsp;<% =L_DONOTLIMITDISKUSAGE_TEXT %>
				<%End If%>
			</td>
		</tr>

		<tr>		
			<td nowrap class="TasksBody">
			
			<%If F_bIsAdmin Then%>
			
				<input type="radio" class="FormRadioButton" name="donotlimit" value="2" <% If G_nRadioChecked = 2 Then Response.Write "CHECKED" Else Response.write "UNCHECKED" End If %> onClick="JavaScript:EnableWarnDiskSpace(warndisksize,warndisksizeunits)">&nbsp;<% =L_SETLIMITDISKSPACE_TEXT %>
				
			<%Else%>	
			
				<input type="radio" class="FormRadioButton" name="donotlimit" value="2" <% If G_nRadioChecked = 2 Then Response.Write "CHECKED" Else Response.write "UNCHECKED" End If %> onClick="JavaScript:EnableWarnDiskSpace(warndisksize,warndisksizeunits); EnableLimitDiskSpace(limitdisksize,limitdisksizeunits) ">&nbsp;<% =L_SETLIMITDISKSPACE_TEXT %>
			
			<%End If%>
			</td>
			<td nowrap class="TasksBody">
			
			<%If F_bIsAdmin Then%>
				<input disabled type="text" name="limitdisksize" value="<% =server.HTMLEncode(SA_EscapeQuotes(F_LimitSize)) %>" size="14" maxlength = "11" class="FormField" onFocus="this.select()" onKeyPress="allownumbers( this )" onChange="validatedisklimit( this, document.frmTask.limitdisksizeunits.value )" >
				<select disabled name="limitdisksizeunits" size="1" class="FormField" onChange="ClearErr();validatedisklimit( document.frmTask.limitdisksize, this.value )">	
						<%	setUnits(F_LimitUnits)	%>		
				</select>
			<%Else%>		
				<input type="text" name="limitdisksize" value="<% =server.HTMLEncode(SA_EscapeQuotes(F_LimitSize)) %>" size="14" maxlength = "11" class="FormField" onFocus="this.select()" onKeyPress="allownumbers( this )" onChange="validatedisklimit( this, document.frmTask.limitdisksizeunits.value )" >
				<select name="limitdisksizeunits" size="1" class="FormField" onChange="ClearErr();validatedisklimit( document.frmTask.limitdisksize, this.value )">	
						<%	setUnits(F_LimitUnits)	%>		
				</select>
			
			<%End If%>	
			</td>		
		</tr>
		<tr>	
			<td nowrap class="TasksBody">			
				&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<% =L_SETWARNINGLEVEL_TEXT %>
			</td>
			<td nowrap class="TasksBody">
				<input type="text" name="warndisksize" value="<% =server.HTMLEncode(SA_EscapeQuotes(F_ThresholdSize)) %>" size="14" maxlength = "11" class="FormField" onFocus="this.select()" onKeyPress="allownumbers( this )" onChange="validatedisklimit( this, document.frmTask.warndisksizeunits.value )" >
				<select name="warndisksizeunits" size="1" class="FormField" onChange="ClearErr();validatedisklimit(document.frmTask.warndisksize, this.value)">
						<%	setUnits(F_ThresholdUnits)	%>
				</select>
			</td>
		</tr>
	</table>

	<input name="user" type="hidden"  value="<% =F_strUsername %>">
	<input name="volume" type="hidden"  value="<% =F_strVolName %>">

<%
		OnServePropertyPage = TRUE
	End Function

	'---------------------------------------------------------------------
	' Function name:	OnPostBackPage
	' Description:		Called to signal that the page has been posted-back
	' Input Variables:	Out: PageIn 
	'                   Out: EventArg
	' Output Variables:	None
	' Return Values:	TRUE to indicate success. FALSE to indicate errors.
	'                   Returning FALSE will cause the page to be abandoned.
	' Global Variables: Out: F_(*) - Form values
	'                   Out: G_nRadioChecked - the selected radio value
	'
	' Collect the form data vales.
	'---------------------------------------------------------------------
	Public Function OnPostBackPage(ByRef PageIn, ByRef EventArg)
		Call SA_TraceOut(SOURCE_FILE, "OnPostBackPage")
		
		' Get form data value
		F_strVolName = Request.Form("volume")
		F_strUsername = Request.Form("user")

		' radioButton selected
		G_nRadioChecked	= Request.Form("donotlimit")

		' get the DiskLimit size and its units
		F_LimitSize  = Request.Form("limitdisksize")
		F_LimitUnits = Request.Form("limitdisksizeunits")

		' get the WarningLimit size and its units
		F_ThresholdSize	 = Request.Form("warndisksize")
		F_ThresholdUnits = Request.Form("warndisksizeunits")

		If Len(Trim(F_strVolName)) = 0 OR Len(Trim(F_strUsername)) = 0 Then
			' volume or user info not obtained. Cannot process further.
			OnPostBackPage = FALSE
		Else
			OnPostBackPage = TRUE
		End If 
		
	End Function

	'---------------------------------------------------------------------
	' Function name:	OnSubmitPage
	' Description:		To process the submit request
	' Input Variables:	Out: PageIn
	'                   Out: EventArg
	' Output Variables:	None
	' Return Values:	TRUE if the submit was successful, FALSE to indicate error(s).
	'                   Returning FALSE will cause the page to be served again using
	'                   a call to OnServePropertyPage.
	'					Returning FALSE will display error message.
	' Global Variables: None
	' Functions Called: updateValuesForUser
	'
	' Updates the Quota Properties for the given user
	'---------------------------------------------------------------------
	Public Function OnSubmitPage(ByRef PageIn, ByRef EventArg)
		Call SA_TraceOut(SOURCE_FILE, "OnSubmitPage")
		
		' Call updateValuesForUser to update the values.
		' If any error occurs,the error message is set in the function.
		OnSubmitPage = updateValuesForUser 'returns: True/ False
	End Function
	
	'---------------------------------------------------------------------
	' Function name:	OnClosePage
	' Description:		to perform clean-up processing
	' Input Variables:	Out: PageIn
	'                   Out: EventArg
	' Output Variables:	None
	' Return Values:	TRUE to allow close, FALSE to prevent close. Returning FALSE
	'                   will result in a call to OnServePropertyPage.
	' Global Variables: None
	'
	' Called when the page is about to be closed.
	'---------------------------------------------------------------------
	Public Function OnClosePage(ByRef PageIn, ByRef EventArg)
		Call SA_TraceOut(SOURCE_FILE, "OnClosePage")
		
		' no processing required here. Return True
		OnClosePage = TRUE
	End Function


	'======================================================
	' Private Functions
	'======================================================
	
	'---------------------------------------------------------------------
	' Function name:	ServeCommonJavaScript
	' Description:		Serve JavaScript that is required for this page type
	' Input Variables:	None
	' Output Variables:	None
	' Return Values:	None
	' Global Variables: L_(*) - Error messages displayed on the client side
	'
	' This contains the Client-Side script required for the page.
	'---------------------------------------------------------------------
	Function ServeCommonJavaScript()
	%>
		<script language="JavaScript" src="<%=m_VirtualRoot%>inc_global.js">
		</script>
		<script language="JavaScript" src="inc_quotas.js">
		</script>
		
		<script language="JavaScript">
		//
		// Microsoft Server Appliance Web Framework Support Functions
		// Copyright (c) Microsoft Corporation.  All rights reserved.
		//

		// to perform first time initialization. 
		function Init()
		{
			// enable cancel in case of any server side error  
			EnableCancel() ;
				
			if ( document.frmTask.donotlimit[0].checked )
			{
				document.frmTask.warndisksize.disabled          = true;
				document.frmTask.limitdisksize.disabled         = true;
				document.frmTask.warndisksizeunits.disabled     = true;
				document.frmTask.limitdisksizeunits.disabled    = true;
			}
			else
			{
				if ( document.frmTask.donotlimit[1].checked )
				{
					document.frmTask.limitdisksize.select()
				}	
				else
				{
					// disable all except cancel button
					DisableOK() ;
					document.frmTask.donotlimit[0].disabled         = true;
					document.frmTask.donotlimit[1].disabled         = true;
					document.frmTask.warndisksize.disabled         	= true;
					document.frmTask.limitdisksize.disabled         = true;
					document.frmTask.warndisksizeunits.disabled     = true;
					document.frmTask.limitdisksizeunits.disabled    = true;

				}
			}		

		} // end of Init()

	    // to validate user input. Returning false will cause the submit to abort. 
	    // Returns: True if the page is OK, false if error(s) exist. 
		function ValidatePage()
		{
		
			var objlimitSize	= document.frmTask.limitdisksize ;
			var objwarnSize	  = document.frmTask.warndisksize ;
			var objlimitUnits	= document.frmTask.limitdisksizeunits ;
			var objwarnUnits  = document.frmTask.warndisksizeunits ;
		
			if ( document.frmTask.donotlimit[1].checked )
			{
				if( !objlimitSize.disabled)			
				{
					// validate the LimitSize value
					if(!isSizeValidDataType(objlimitSize.value) )
					{
		
						SA_DisplayErr('<% =Server.HTMLEncode(SA_EscapeQuotes(L_INVALIDDATATYPE_ERRORMESSAGE))%>');
						document.frmTask.onkeypress = ClearErr;
						selectFocus( objlimitSize );
						return false;
					}				
				
					// validate the LimitSize and its Units
					if (!checkSizeAndUnits(objlimitSize.value, objlimitUnits.value) )
					{	
						SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_SIZEOUTOFBOUND_ERRORMESSAGE))%>');
						document.frmTask.onkeypress = ClearErr;
						selectFocus( objlimitSize );
						return false;
					} 
				}
				
				// validate the WarningLimit size value
				if(!isSizeValidDataType(objwarnSize.value) )
				{	
					SA_DisplayErr('<% =Server.HTMLEncode(SA_EscapeQuotes(L_INVALIDDATATYPE_ERRORMESSAGE))%>');
					document.frmTask.onkeypress = ClearErr;
					selectFocus(objwarnSize);
					return false;
				}
				

				// validate the WarningLimit size and its units
				if (!checkSizeAndUnits(objwarnSize.value, objwarnUnits.value) )
				{
					SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_SIZEOUTOFBOUND_ERRORMESSAGE))%>');
					document.frmTask.onkeypress = ClearErr;
					selectFocus( objwarnSize );
					return false;
				} 

				if( !objlimitSize.disabled)			
				{
					// verify the warning level. Must be less than limit.
					if(isWarningMoreThanLimit(objlimitSize,objlimitUnits,objwarnSize,objwarnUnits))
					{
						SA_DisplayErr('<%=Server.HTMLEncode(SA_EscapeQuotes(L_WARNING_MORETHAN_LIMIT_ERRORMESSAGE))%>');
						document.frmTask.onkeypress = ClearErr;
						selectFocus( objwarnSize );
						return false;
					}
				}

			}
			
			// if the Limit values are Less than 1 KB, set them to 1 KB
			validatedisklimit( objlimitSize,objlimitUnits.value);
			validatedisklimit( objwarnSize,objwarnUnits.value);

			return true;
		}

		// to modify hidden form fields.
		function SetData()
		{
			// no updations required here
		}

	</script>

	<%
	End Function

	'---------------------------------------------------------------------
	' Function Name:    getValuesForUser
	' Description:      gets the Default Quota entry values for the User
	' Input Variables:  None
	' Output Variables: None
	' Returns:          None
	' Global Variables: In: F_strVolName       - the volume quota is on
	'                   In: F_strUserName      - the quota user
	'                   Out: F_ThresholdSize   - the warning limit set
	'                   Out: F_ThresholdUnits  - the warning limit Units
	'                   Out: F_LimitSize       - the disk Limit
	'                   Out: F_LimitUnits      - the disk Limit Units
	'                   Out: G_nRadioChecked   - the radio selected
	'                   In: L_(*)              - localization content
	' Functions Called: 
	' (i)  getQuotaLimitRadioForUser   (iv) getLimitSizeForUser
	' (ii) getThresholdSizeForUser     (v)  getLimitUnitsForUser
	' (iii)getThresholdSizeUnitsForUser
	'---------------------------------------------------------------------
	Function getValuesForUser
		On Error Resume Next
		Err.Clear

		Dim objQuotas    ' the quotas object
		Dim objUser      ' the user for which quota is updated
		Dim blnUserFound ' to verify if the user is found

		' create the quota object and initialize for the required Volume
		Set objQuotas = CreateObject("Microsoft.DiskQuota.1")			
		objQuotas.Initialize F_strVolName & "\", 1			
		objQuotas.UserNameResolution = 1   'wait for names
		If Err.number <> 0 Then
			' cannot proceed. Display failure page.
			Call SA_ServeFailurePage(L_OBJECTNOTCREATED_ERRORMESSAGE)		
		End If

		' check if user already has an entry
		blnUserFound = False
		For Each objUser In objQuotas
			If LCase(Trim(F_strUsername)) = LCase(Trim(objUser.LogonName)) Then
				' user found
				blnUserFound = True
			End If
		Next

		If NOT blnUserFound Then
			arrVarReplacementStrings(0) = F_strUsername
			L_QUOTAUSERNOTFOUND_ERRORMESSAGE = SA_GetLocString("diskmsg.dll", "C03E0069", arrVarReplacementStrings)
			' user entry NOT found. display error message and exit
			SA_SetErrMsg L_QUOTAUSERNOTFOUND_ERRORMESSAGE
			getValuesForUser = False
			Exit Function
		End If

		' get the user quota object
		Set objUser = objQuotas.FindUser( F_strUserName )

		' get the radio button to be selected - 1 or 2
		G_nRadioChecked = getQuotaLimitRadioForUser(objUser)

		' Compute user Warning Limit and its units (say, 1 KB)
		F_ThresholdSize  = getThresholdSizeForUser(objUser)
		F_ThresholdUnits = getThresholdSizeUnitsForUser(objUser)

		' Compute user Disk Limit and its units (say, 1 KB)
		F_LimitSize  = getLimitSizeForUser(objUser)
		F_LimitUnits = getLimitUnitsForUser(objUser)

		If Err.number <> 0 Then
			' an error has occured
			getValuesForUser = False
		Else
			getValuesForUser = True
		End If

		' clean up
		Set objUser   = Nothing
		Set objQuotas = Nothing

	End Function

	'---------------------------------------------------------------------
	' Function Name:    updateValuesForUser
	' Description:      Set the quota values for the given user
	' Input Variables:  None
	' Output Variables: None
	' Returns:          True  - if the values are updated
	'                   False - if values could not be updated
	' Global Variables: In: F_strVolName       - the volume quota is on
	'                   In: F_strUserName      - the quota user
	'                   In: F_ThresholdSize    - the warning limit set
	'                   In: F_ThresholdUnits   - the warning limit Units
	'                   In: F_LimitSize        - the disk Limit
	'                   In: F_LimitUnits       - the disk Limit Units
	'                   In: G_nRadioChecked    - the radio selected
	'                   In: L_(*)              - localization content
	' Functions Called: (i)  setUserQuotaLimit
	'                   (ii) setUserThreshold
	'---------------------------------------------------------------------
	Function updateValuesForUser
		On Error Resume Next

		Dim objQuotas     ' the quota object
		Dim objUser       ' the user for which the quota is updated
		Dim blnUserFound  ' to verify if the user is found

		' create the quota object and initialize for the required Volume
		Set objQuotas = CreateObject("Microsoft.DiskQuota.1")	
		objQuotas.Initialize F_strVolName & "\", 1			
		objQuotas.UserNameResolution = 1   'wait for names
		If Err.number <> 0 Then
			' cannot proceed. Display failure page.
			Call SA_ServeFailurePage(L_OBJECTNOTCREATED_ERRORMESSAGE)		
		End If

		' check if user exists
		blnUserFound = False
		For Each objUser In objQuotas
			If LCase(Trim(F_strUsername)) = LCase(Trim(objUser.LogonName)) Then
				' user found
				blnUserFound = True
			End If
		Next
		
		If NOT blnUserFound Then
			arrVarReplacementStrings(0) = F_strUsername
			L_QUOTAUSERNOTFOUND_ERRORMESSAGE = SA_GetLocString("diskmsg.dll", "C03E0069", arrVarReplacementStrings)
			' user not found. display error message and exit
			SA_SetErrMsg L_QUOTAUSERNOTFOUND_ERRORMESSAGE
			updateValuesForUser = False
			Exit Function
		End If
		
		' get the user
		Set objUser = objQuotas.FindUser( F_strUserName )

		' verify the limit settings
		If CInt(G_nRadioChecked) = CInt(CONST_RADIO_DONOT_LIMIT_DISKUSAGE) Then
			' "Do not limit disk usage" - radio is checked. Set the DiskLimit
			' and WarningLimit values to "No Limit"
			F_LimitSize  = CONST_NO_LIMIT
			F_ThresholdSize = CONST_NO_LIMIT
		End If

		'Disable Admin
		If Not F_bIsAdmin Then
			' set the quota limit by calling the function
			If NOT setUserQuotaLimit(objUser, F_LimitSize, F_LimitUnits) then
				' quota limit could not be set. Display error message and exit
				SA_SetErrMsg L_MAXLIMITNOTSET_ERRORMESSAGE & " ( " & Hex(Err.number) & " )"
				Err.Clear  ' stop the error propagation
				updateValuesForUser = False
				Exit Function
			End If 				
		End If
		
		' set the warning limit for the user, by calling the function
		If NOT setUserThreshold(objUser, F_ThresholdSize, F_ThresholdUnits) Then
			' warning limit could not be set. display error and exit
			SA_SetErrMsg L_WARNINGLIMITNOTSET_ERRORMESSAGE & " ( " & Hex(Err.number) & " )"
			Err.Clear  ' stop the error propagation
			updateValuesForUser = False
			Exit Function
		End If 

		' all values updated. return true
		updateValuesForUser	 = True

		' clean up
		Set objUser   = Nothing
		Set objQuotas = Nothing

	End Function	
	
	'---------------------------------------------------------------------
	' Function name:    getQuotaLimitRadioForUser
	' Description:      to get QuotaLimit settings for the user
	' Input Variables:  objQuotasUser - the quota user object
	' Output Variables: None
	' Returns:          1 - if disk limit is NOT set
	'                   2 - if some limit is set for disk usage
	' Global Variables: None
	'
	' The return value corresponds to radio button in the gui
	'---------------------------------------------------------------------
	Function getQuotaLimitRadioForUser(objQuotasUser)
		On Error Resume Next
		Err.Clear 
			
		Dim nRadioToCheck   ' the radio button to be CHECKED
				
		If ((objQuotasUser.QuotaThreshold = CONST_NO_LIMIT) AND (objQuotasUser.QuotaLimit = CONST_NO_LIMIT)) Then
			' DiskLimit and WarningLimit is NOT set. Select the first radio
			nRadioToCheck = 1
		Else
			' some limit is set. Select the second radio
			nRadioToCheck = 2
		End If
		
		' return the selected radio value
		getQuotaLimitRadioForUser = nRadioToCheck

	End Function

	'---------------------------------------------------------------------
	' Function name:    getThresholdSizeForUser
	' Description:      to get default Warning Limit for the user quota
	' Input Variables:  objQuotasUser - the user quota object
	' Output Variables: None
	' Returns:          Default thresholdSize for the user quota
	' Global Variables: None
	' Functions Called: getLimitFromText
	'
	' This returns the WarningLimit set for the user quota
	'---------------------------------------------------------------------
	Function getThresholdSizeForUser(objQuotasUser)
		On Error Resume Next
		Err.Clear

		Dim nThresholdSize    ' the WarningLimit to be returned
		Dim strTemp
		
		If objQuotasUser.QuotaThreshold = CONST_NO_LIMIT Then
			' No Warning Limit is set. The text contains "No Limit"
			nThresholdSize = L_NOLIMIT_TEXT
		Else
			' some limit is set(say, 1 KB). Get the size part from this(say, 1)
			' Following will not localize
			'nThresholdSize = getLimitFromText(objQuotasUser.QuotaThresholdText)
			
			' first convert bytes to text.
			strTemp = ChangeToText(objQuotasUser.QuotaThreshold)
			' get the size (number) portion
			nThresholdSize = getLimitFromText(strTemp)
			
		End If

		' return the Warning Limit
		getThresholdSizeForUser = nThresholdSize
			
	End Function

	'---------------------------------------------------------------------
	' Function name:    getThresholdSizeUnitsForUser
	' Description:      to get default WarningLimit Units for the user quota
	' Input Variables:  objQuotasUser - the user quota object
	' Output Variables: None
	' Returns:          Default thresholdSize Units for the user quota
	' Global Variables: None
	' Functions Called: getUnitsFromText
	'
	' This returns the default WarningLimit Units for the user quota.
	'---------------------------------------------------------------------
	Function getThresholdSizeUnitsForUser(objQuotasUser)
		On Error Resume Next
		Err.Clear
			
		Dim strThresholdUnits    ' the thresholdSize Units to return
		Dim strTemp
		
		If objQuotasUser.QuotaThreshold = CONST_NO_LIMIT Then
			' No warning limit is set. Return KB for default display
			strThresholdUnits = L_TEXT_KB
		Else
			' some limit is set(say, 1 KB). Get the units part from this(say, KB)
			' Following will not localize
			'strThresholdUnits = getUnitsFromText(objQuotasUser.QuotaThresholdText)
			
			' first convert bytes to text.
			strTemp = ChangeToText(objQuotasUser.QuotaThreshold)
			' get the units portion
			strThresholdUnits = getUnitsFromText(strTemp)

			
		End If					
		
		' return the WarningLimit units	
		getThresholdSizeUnitsForUser = strThresholdUnits
			
	End Function

	'---------------------------------------------------------------------m
	' Function name:    getLimitSizeForUser
	' Description:      to get Quota Limit for the user quota
	' Input Variables:  objQuotasUser - the user quota object
	' Output Variables: None
	' Returns:          Default QuotaLimit for the user quota
	' Global Variables: None
	' Functions Called: getLimitFromText, ChangeToText
	'
	' This returns the QuotaLimit set for the user quota
	'---------------------------------------------------------------------
	Function getLimitSizeForUser(objQuotasUser)
		On Error Resume Next
		Err.Clear

		Dim nLimitSize    ' the quota limit to return
		Dim strTemp

		If objQuotasUser.QuotaLimit = CONST_NO_LIMIT Then
			' No Quota Limit is set. The text contains "No Limit"
			nLimitSize = L_NOLIMIT_TEXT
		Else
			' some limit is set(say, 1 KB). Get the size part from this(say, 1)
			strTemp = ChangeToText(objQuotasUser.QuotaLimit)
			nLimitSize = getLimitFromText(strTemp)
		End If

		' return the QuotaLimit
		getLimitSizeForUser = nLimitSize
		
	End Function

	'---------------------------------------------------------------------
	' Function name:    getLimitUnitsForUser
	' Description:      to get QuotaLimit Units for the user quota
	' Input Variables:  objQuotasUser - the user quota object
	' Output Variables: None
	' Returns:          Default QuotaLimitSize Units for the user quota
	' Global Variables: None
	' Functions Called: getUnitsFromText
	'
	' This returns the QuotaLimit Units for the user quota.
	'---------------------------------------------------------------------
	Function getLimitUnitsForUser(objQuotasUser)
		On Error Resume Next
		Err.Clear

		Dim strLimitUnits      ' the limit units to be returned
		Dim strTemp
		
		If objQuotasUser.QuotaLimit = CONST_NO_LIMIT Then
			' No QuotaLimit is set. Return KB for default display
			strLimitUnits = L_KB_TEXT
		Else
			' some limit is set(say, 1 KB). Get the units part from this(say, KB)
			'strLimitUnits = getUnitsFromText(objQuotasUser.QuotaLimitText)
			
			' first convert bytes to text.
			strTemp = ChangeToText(objQuotasUser.QuotaLimit)
			' get the units portion
			strLimitUnits = getUnitsFromText(strTemp)
			
		End If

		' return the QuotaLimit units
		getLimitUnitsForUser = strLimitUnits

	End Function
	
	'---------------------------------------------------------------------
	' Procedure name:   getUserName
	' Description:      to get the user name for display in the title
	' Input Variables:  None
	' Output Variables: None
	' Returns:          None
	' Global Variables: F_strUserName - the QuotaUser name
	'---------------------------------------------------------------------
	Sub getUserName()

		Dim i
		Dim iCount
		Dim sValue

		iCount = OTS_GetTableSelectionCount("QuotaUsers")
		For i = 1 to iCount
			Call OTS_GetTableSelection("QuotaUsers", i, sValue )
		Next
		F_strUserName = UnescapeChars(sValue)

	End Sub	
	

	
%>