Subversion Repositories gelsvn

Rev

Rev 107 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 107 Rev 217
Line 48... Line 48...
48 
 
 48 
 
49 
sub write_comps {
 49 
sub write_comps {
50 
  my($self) = shift;
 50 
  my($self) = shift;
51 
  my($fh)   = shift;
 51 
  my($fh)   = shift;
52 
  my($crlf) = $self->crlf();
 52 
  my($crlf) = $self->crlf();
53 
  my(@list) = $self->sort_dependencies($self->get_projects());
 - 
 
54 
 
 53 
 
55 
  print $fh "\t<Projects>$crlf";
 54 
  print $fh "\t<Projects>$crlf";
56 
  foreach my $project (@list) {
 55 
  foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) {
57 
    print $fh "\t\t<Project File=\"$project\"/>$crlf";
 56 
    print $fh "\t\t<Project File=\"$project\"/>$crlf";
58 
  }
 57 
  }
59 
  print $fh "\t</Projects>$crlf";
 58 
  print $fh "\t</Projects>$crlf";
60 
}
 59 
}
61 
 
 60