Remove Debug lsusb

i-nex · Feb 2, 2012 · d15c8fe · d15c8fe
1 parent daf3a58
commit d15c8fe
Showing 1 changed file with 7 additions and 9 deletions.
diff --git a/src/i-nex/.src/USB_Drives.module b/src/i-nex/.src/USB_Drives.module
@@ -10,20 +10,19 @@ Public idVendor As String
 Public lsusb As String
 
 Public Sub _init()
-
- Dim ListAllDiscs, risultato As String
-Dim righe As New String[]
+  Dim ListAllDiscs, risultato As String
+  Dim righe As New String[]
   Dim count As Integer
   Dim riga As New String[]
   Dim lista As New String[]
-Debug "Add Drives to ComboBox.."
-Shell "ls /sys/bus/usb/devices/*/* | grep 'product' | grep [0-9] | cut -d '/' -f 6" To ListAllDiscs
-righe = Split(ListAllDiscs, "\n", "%%", True)
-For count = 0 To righe.Max
+  Debug "Add Drives to ComboBox.."
+  Shell "ls /sys/bus/usb/devices/*/* | grep 'product' | grep [0-9] | cut -d '/' -f 6" To ListAllDiscs
+  righe = Split(ListAllDiscs, "\n", "%%", True)
+  For count = 0 To righe.Max
   riga = Split(righe[count], " ", "%%", True)
   risultato = Replace(riga[0], " ", "")
   lista.add(risultato)
-Next
+  Next
   Finfosys.ComboBox5.List = lista
   Finfosys.ComboBox5.Index = 0
 End
@@ -37,7 +36,6 @@ Public Sub get_informations()
  Shell "cat /sys/bus/usb/devices/" & Finfosys.ComboBox5.Text & "/idProduct" Wait To idProduct
  Shell "cat /sys/bus/usb/devices/" & Finfosys.ComboBox5.Text & "/idVendor" Wait To idVendor
  Shell "lsusb -d " & idVendor & ":" & idProduct & "" Wait To lsusb
- Debug lsusb
  export_informations()
 End