Version 2.95 BETA

Library/BANanoShared.bas

@@ -2975,3 +2975,17 @@ Sub BANanoGetHTMLOnly(id As String) As String
 	Dim xTemplate As String = be.GetHTML
 	Return xTemplate
 End Sub
+
+'remove items in a list containing this property value
+Sub ListRemoveItemsWithProp(olst As List, prop As String, value As String) As List
+	Dim nflds As List
+	nflds.Initialize 
+	For Each fldm As Map In olst
+		Dim ofldname As String = fldm.Get(prop)
+		If ofldname.EqualsIgnoreCase(value) Then
+		Else
+			nflds.Add(fldm)
+		End If
+	Next
+	Return nflds
+End Sub

Library/BANanoVuetifyAD3.b4j

@@ -55,7 +55,7 @@ Version=8.8
 
 Sub Process_Globals
 	Private BANano As BANano 'ignore
-	Public Version As String = "2.92"
+	Public Version As String = "2.95"
 	Public AppName As String = "BANanoVuetifyAD3"
 End Sub
 

Library/BANanoVuetifyAD3.b4j.meta

@@ -34,6 +34,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=VuetifyApp,ShowPrompt,603,6,VueComponent,ShowPrompt,241,1,VueComponent,Initialize,84,5,VueComponent,GetPromptValue,266,0,VueComponent,ShowPrompt1,262,0,VuetifyApp,ShowAlert,655,0,VuetifyApp,getConfirm,660,0,VueComponent,getConfirm,906,0,VueComponent,BANanoGetHTMLAsIs,897,0,VueComponent,ShowDialog,914,0,MySQLCRUD,Class_Globals,7,0
+NavigationStack=BANanoShared,AddCode,60,0,MySQLCRUD,ToString,1602,4,MySQLCRUD,AddComment,1620,0,MySQLCRUD,Diag_AddRadioGroup,590,6,MySQLCRUD,Diag_AddSelect,507,0,MySQLCRUD,Diag_AddComboBox,488,0,MySQLCRUD,Diag_AddAvatar1,539,0,MySQLCRUD,Diag_AddAutoComplete,556,0,MySQLCRUD,Initialize,119,0,MySQLCRUD,Class_Globals,36,0,MySQLCRUD,CreateTableCode,1079,0
 SelectedBuild=0
-VisibleModules=11
+VisibleModules=6