From: minima <minima>
Date: Mon, 8 Jan 2007 00:18:40 +0000 (+0000)
Subject: make sure multiple PC92 have the correct TS on them (!)
X-Git-Tag: 1.54~64
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4e9daf652dc564582a7c4d663de9764f3e79ae9b;p=spider.git

make sure multiple PC92 have the correct TS on them (!)
---

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index fc05280a..59c1351c 100644
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1342,7 +1342,7 @@ sub gen_pc9x_t
 		return $_last_time - $main::systime_daystart;
 	} else {
 		$_last_occurs++;
-		return sprintf "$_last_time.%02d", $_last_occurs;
+		return sprintf "%d.%02d", $_last_time - $main::systime_daystart, $_last_occurs;
 	}
 }
 
@@ -1395,8 +1395,7 @@ sub handle_92
 		return;
 	}
 
-	my $parent = check_pc9x_t($pcall, $t, 92, 1);
-	return unless $parent;
+	my $parent = check_pc9x_t($pcall, $t, 92, 1) || return;
 	
 	$parent->lastid->{92} = $t;
 	$parent->do_pc92(1);