Fix count number of Packages.

i-nex · Jul 24, 2014 · f89cd7f · f89cd7f
1 parent b48bbf0
commit f89cd7f
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/I-Nex/i-nex/.src/Finfosys.class b/I-Nex/i-nex/.src/Finfosys.class
@@ -773,8 +773,12 @@ End
 Public Sub Button7_Click()
   Dim packages As String
   Shell "grep \"^Status: install ok installed\" /var/lib/dpkg/status | wc -l" Wait To packages
+  If ChkPrm.ChkExec("rpm") = True And IsNull(packages) = True Then
   Shell "rpm -qa | wc -l" Wait To packages
+  Endif 
+  If ChkPrm.ChkExec("pacman") = True Then
   Shell "pacman -Q|wc -l" Wait To packages
+  Endif
   TextLabel21.Visible = True
 
   TextLabel21.Text = packages & " Packages are installed "