X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXXml.pm;h=9d0a59698170c153a5db6ec4ab77ac124012c878;hb=4b96a6a5b956fcbdff1029e63947dfd57bf92d01;hp=c40e3be041ff91c9f468dae81eae238e63b38aba;hpb=f9bdcabf8dab37e3b7b6beb91752e54b4910df99;p=spider.git

diff --git a/perl/DXXml.pm b/perl/DXXml.pm
index c40e3be0..9d0a5969 100644
--- a/perl/DXXml.pm
+++ b/perl/DXXml.pm
@@ -190,7 +190,7 @@ sub toxml
 
 	unless (exists $self->{'-xml'}) {
 		$self->{o} ||= $main::mycall;
-		$self->{t} ||= IsoTime::dayminsec();
+		$self->{t} ||= IsoTime::hourminsec();
 		$self->{id} ||= nextid();
 		
 		my ($name) = (ref $self) =~ /::(\w+)$/;