olivier.massot 9 роки тому
батько
коміт
adaca185b4

BIN
OpenAccess.zip


+ 1 - 1
source/modules/OA_Utils.bas

@@ -46,7 +46,7 @@ End Function
 Public Function oa_param(ByVal key As String, Optional ByVal default_value As String = "") As String
     oa_param = default_value
     On Error GoTo err_oa_table
-    oa_param = DFirst("val", "ztbl_oa", "[key]='" & key & "'")
+    oa_param = DFirst("val", "ztbl_openaccess", "[key]='" & key & "'")
 err_oa_table:
 End Function
 

+ 5 - 0
source/tables/USysRegInfo.txt

@@ -0,0 +1,5 @@
+Subkey	Type	ValName	Value
+HKEY_CURRENT_ACCESS_PROFILE\\Menu Add-ins\\OpenAccess	0		
+HKEY_CURRENT_ACCESS_PROFILE\\Menu Add-ins\\OpenAccess	1	Expression	=main()
+HKEY_CURRENT_ACCESS_PROFILE\\Menu Add-ins\\OpenAccess	1	Library	|ACCDIR\\openaccess.accda
+HKEY_CURRENT_ACCESS_PROFILE\\Menu Add-ins\\OpenAccess	1	Version	3

+ 4 - 0
source/tables/tbl_commands.txt

@@ -0,0 +1,4 @@
+cmd_name	function	description	order	with_args
+configure_git_repo	config_git_repo	Configure an existing Git repository to be used with VCS	3	Faux
+make_sources	make_sources	Makes the source-code files from the current project (-f to force a complete export)	1	Vrai
+update_from_sources	update_from_sources	Update the current project within the source-code files (-f to force a complete export)	2	Vrai

+ 3 - 0
source/tables/ztbl_openaccess.txt

@@ -0,0 +1,3 @@
+key	val
+include_tables	ztbl_openaccess,tbl_commands,USysRegInfo
+sources_date	07/11/2016 14:09:52