Subversion Repositories DevTools

Rev

Rev 1356 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1356 Rev 1451
Line 166... Line 166...
166 
 
 166 
 
167 
                    my %data;
 167 
                    my %data;
168 
                    $data{pv_id} = $row[0];
 168 
                    $data{pv_id} = $row[0];
169 
                    $data{name} = $row[1];
 169 
                    $data{name} = $row[1];
170 
                    $data{version} = $row[2];
 170 
                    $data{version} = $row[2];
171 
                    $data{label} = $row[3];
 171 
                    $data{label} = $row[3] || '';
172 
                    $data{path} = $row[4];
 172 
                    $data{path} = $row[4];
173 
 
 173 
 
174 
                    $packages{$row[0]} = \%data;
 174 
                    $packages{$row[0]} = \%data;
175 
                }
 175 
                }
176 
            }
 176 
            }
Line 204... Line 204...
204 
    my $name = $entry->{name} . ' ' . $entry->{version};
 204 
    my $name = $entry->{name} . ' ' . $entry->{version};
205 
    my $pname = $entry->{name};
 205 
    my $pname = $entry->{name};
206 
    my $baseurl = $entry->{path};
 206 
    my $baseurl = $entry->{path};
207 
#    return if ( $entry->{path} =~ m~^FRBESA~ );
 207 
#    return if ( $entry->{path} =~ m~^FRBESA~ );
208 
 
 208 
 
209 
    if ( $entry->{label} ne 'N/A' )
 209 
    if ( ($entry->{label} ne 'N/A') and ($entry->{label} ne '') )
210 
    {
 210 
    {
211 
        Verbose2("Already processed: $name");
 211 
        Verbose2("Already processed: $name");
212 
        return;
 212 
        return;
213 
    }
 213 
    }
214 
    Verbose ("Processing: $name, $baseurl");
 214 
    Verbose ("Processing: $name, $baseurl");