make just the time the default.

[spider.git] / perl / DXXml.pm

diff --git a/perl/DXXml.pm b/perl/DXXml.pm
index c40e3be041ff91c9f468dae81eae238e63b38aba..9d0a59698170c153a5db6ec4ab77ac124012c878 100644 (file)
--- 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+)$/;