Code

Fixed sources_list creation.
authorjanw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8>
Wed, 9 Apr 2008 07:10:06 +0000 (07:10 +0000)
committerjanw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8>
Wed, 9 Apr 2008 07:10:06 +0000 (07:10 +0000)
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@10286 594d385d-05f5-0310-b6e9-bd551577e9d8

gosa-si/gosa-si-server

index 9d48dc4ff217c3804045b8075108a3476f52f743..41dd27a5c9cb646c50f8e9f3a4c0a785545ec1a3 100755 (executable)
@@ -1889,11 +1889,13 @@ sub create_sources_list {
                                );
                if($mesg->count) {
                        foreach my $entry(@{$mesg->{'entries'}}) {
-                               my ($server, $tag, $release, $sections)= split /\|/, $entry->get_value('FAIrepository');
-                               my $line = "deb $server $release";
-                               $sections =~ s/,/ /g;
-                               $line.= " $sections";
-                               print $fh $line."\n";
+                               foreach my $value(@{$entry->get_value('FAIrepository', asref => 1)}) {
+                                       my ($server, $tag, $release, $sections)= split /\|/, $value;
+                                       my $line = "deb $server $release";
+                                       $sections =~ s/,/ /g;
+                                       $line.= " $sections";
+                                       print $fh $line."\n";
+                               }
                        }
                }
        }