From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 28 Jan 2017 15:16:15 +0000 (+0100)
Subject: RFID first time user test improvements in web steps
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=929cc4c82a207868b487d0497fad5e92aca51e32;p=koha.git

RFID first time user test improvements in web steps
---

diff --git a/ffzg/rfid/download.pl b/ffzg/rfid/download.pl
index 13059dd1d1..69ead70845 100755
--- a/ffzg/rfid/download.pl
+++ b/ffzg/rfid/download.pl
@@ -76,10 +76,11 @@ if ( $remote_host !~ m/^10\.60\./ ) {
 	}
 
 } else {
+#} elsif ( ! $exists ) {
 
-	print qq{<b>Using exists port $serial_port on $server_name for configuration</b>} if $exists;
 
 	print qq{
+
 <h2>Create rfid directory</h2>
 <h2>Download files to the rfid directory</h2>
 <ol>
@@ -88,9 +89,21 @@ if ( $remote_host !~ m/^10\.60\./ ) {
 </ol>
 <h2>Create shortcut to rfid.bat on desktop<h2>
 <h2>Run shortcut rfid.bat</h2>
+
+	};
+
+#} elsif ( $exists ) {
+	print qq{<b>Using exists port $serial_port on $server_name for configuration</b>};
+
+	if ( IO::Socket::INET->new("$server_name:$json_port") ) {
+		print qq{
+
 <h2>Chceck if readedr works and create shortcut on computer to it</h2>
 <a href="$koha_url" target="koha">$koha_url</a>
 
-	};
+		};
+	} else {
+		print qq{<form><input type=submit name="reload" value="Check connection to RFID reader"></form>};
+	}
 
 }