#_perl_

=pod dump_ss_classification.pl

This simply prints tab separated text of the subsystem classifications, which you can then redirect to a text file. Open and save it in excel format, and send it to Sveta, and she will update the classification for you. Then run load_ss_classification to add them back

=author

Rob Edwards. 2004-2008, various versions

=cut



use strict;
use FIG;
my $fig=new FIG;

foreach my $ss ($fig->all_subsystems) {
	print join("\t", $ss, @{$fig->subsystem_classification($ss)}), "\n";
}