Subversion Repositories DevTools

Rev

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

Rev 147 Rev 159
Line 50... Line 50...
50 
		' Not PERL variable
 50 
		' Not PERL variable
51 
		Quotes = "'"& SSstr & "'"
 51 
		Quotes = "'"& SSstr & "'"
52 
	End If
 52 
	End If
53 
End Function
 53 
End Function
54 
'-----------------------------------------------------------------------------------------------------------------------------
 54 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 55 
Function DoubleQuotes( SSstr )
- 
 
 56 
   DoubleQuotes = """"& SSstr & """"
- 
 
 57 
End Function
- 
 
 58 
'-----------------------------------------------------------------------------------------------------------------------------
55 
Function To_JATS ( SSbt, SSpkg, SSver )
 59 
Function To_JATS ( SSbt, SSpkg, SSver )
56 
	If SSbt = "B" Then
 60 
	If SSbt = "B" Then
57 
		SSbt = "BuildPkgArchive"
 61 
		SSbt = "BuildPkgArchive"
58 
	ElseIf SSbt = "L" Then
 62 
	ElseIf SSbt = "L" Then
59 
		SSbt = "LinkPkgArchive"
 63 
		SSbt = "LinkPkgArchive"