[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Thu Feb 26 16:50:29 EST 2009
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async
In directory dev.open-bio.org:/tmp/cvs-serv13091/Perl/MOBY-Server/lib/MOBY/Async

Modified Files:
	LSAE.pm 
Log Message:
initialized a few variables so that we dont get the "Use of uninitialized value in concatenation (.) or string" warning 
moby-live/Perl/MOBY-Server/lib/MOBY/Async LSAE.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/LSAE.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/LSAE.pm	2008/09/02 13:10:26	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/LSAE.pm	2009/02/26 21:50:29	1.4
@@ -471,11 +471,14 @@
 	$self->{steps_completed} = $self->steps_completed;
 	$self->{remaining} = $self->remaining;
 	
-	my $id = " id=\"".$self->{id}."\"" if defined $self->{id};
-	my $timestamp = " timestamp=\"".$self->{timestamp}."\"" if defined $self->{timestamp};
+	my $id = "";
+	my $timestamp = "";
+	my $message = "";
+	$id = " id=\"".$self->{id}."\"" if defined $self->{id};
+	$timestamp = " timestamp=\"".$self->{timestamp}."\"" if defined $self->{timestamp};
 	my $header = "<analysis_event$id$timestamp xmlns=''>";
 	my $footer = "</analysis_event>";
-	my $message = "<message>".$self->{message}."</message>" if defined $self->{message};
+	$message = "<message>".$self->{message}."</message>" if defined $self->{message};
 	
 	if ($self->{type} == MOBY::Async::LSAE::LSAE_BASE_EVENT) {