fix 0 again

diff --git a/snom.pl b/snom.pl
index bbb359d0cd77a626993832af62bdf00ca7caa206..d74e11bf6f20882f5ff62fee8c448cb1d7959552 100755 (executable)
--- a/snom.pl
+++ b/snom.pl
@@ -1,5 +1,5 @@
 #!/bin/sh
 #!/bin/sh

-#$Id: snom.pl,v 1.7 2006-05-21 13:08:52 simigern Exp $
+#$Id: snom.pl,v 1.8 2006-05-21 13:09:23 simigern Exp $

 
 PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
 
 
 PATH=/opt/csw/bin:/opt/local/bin:/usr/bin:/bin exec perl -w -x "$0" "$@"
 


@@ -273,7 +273,7 @@ sub KBDInput
 
        my $keyval = $event->keyval;
 
 
        my $keyval = $event->keyval;
 

-       for (my $i=1; $i<10; $i++) {
+       for (my $i=0; $i<10; $i++) {

                if ($keyval == $Gtk2::Gdk::Keysyms{$i} || $keyval == $Gtk2::Gdk::Keysyms{"KP_${i}"}) {
                        snom_key($i);
                        return TRUE;
                if ($keyval == $Gtk2::Gdk::Keysyms{$i} || $keyval == $Gtk2::Gdk::Keysyms{"KP_${i}"}) {
                        snom_key($i);
                        return TRUE;