[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed May  6 09:46:23 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates
In directory dev.open-bio.org:/tmp/cvs-serv9211/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates

Modified Files:
	datatype.tt 
Log Message:
bug fix: datatype names with a dash in them resulted in the incorrect name being used in the messaging XML
moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates datatype.tt,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates/datatype.tt,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates/datatype.tt	2008/02/21 00:12:55	1.3
+++ /home/repository/moby/moby-live/Perl/MOSES-MOBY/lib/MOSES/MOBY/Generators/templates/datatype.tt	2009/05/06 13:46:23	1.4
@@ -48,6 +48,17 @@
 	return $self->SUPER::_attr_prop ($attr_name, $prop_name);
     }
 }
+
+# here we ensure that we set the mobyname (used in XML genesis)
+sub init {
+    my ($self) = shift;
+    $self->SUPER::init();
+    [% IF obj.name %]
+    $self->mobyname('[% obj.name %]');
+    [% END %]
+    
+}
+
 [% IF full_source %]
 1;
 __END__