Subversion Repositories DevTools

    SC =>  {file => 'PackageConversion_NonSvnPkgs.html'       , title => 'Packages not in Subversion'       , tag => '' },

    print $HTML "Packages that are not currently in Subversion\n";

    print $HTML "<br>Does not include those with known issues - only those that we can migrate\n";

    print $HTML "<br>Packages in Subversion   : ". scalar @{$Repos{SVN}} ."\n";

    print $HTML "<br>Total Packages to convert: ". $totalPackageCount ."\n";

#    print $HTML "<p>" ,anchor("SVN",'SVN');

    $t = new HTML::Table( -border=>1 );

    $t->addRow( 'Package Name','Original Vob Path(s)','Last Build NonBuildadm [ANY]','Comment' );

    foreach my $pkgid ( @PackageOrder )

    {

        next if $PackageData{$pkgid}{isSVN};

        {

            #

            #   Flag packages that are

            #       1) Known to be BAD

            #       2) Held back

            #

            my $comment = '';

            my $flag = '';

            if ( exists $Protected{$PackageData{$pkgid}{name}} )

            {

                $comment = $Protected{$PackageData{$pkgid}{name}}{comment};

                if ( $Protected{$PackageData{$pkgid}{name}}{mode} eq 'Protected' )

                {

                    $flag = ' [P]';

                }

                else

                {

                    $flag = ' [B]';

                    next;

                }

            }

            my $t2 = new HTML::Table( -border=>0,-padding=>0, -spacing=>0, -class=>'paddedTable' );

            foreach my $vob ( keys %{$PackageData{$pkgid}{vobPath}} )

            {

                    if ($PackageData{$pkgid}{isSVN} && $vob !~ m~^/~ )

                    {

                        $vob = svnLink($vob);

                        #$vob = "<span style=\"background-color:#B1FB17\">$vob</span>";

                    }

                    $t2->addRow( $vob );

            }

            my $t2Text = '';

            if ( $t2->getTableRows() )

            {

                $t2->setColClass (1, 'listTitle' );

                $t2Text = $t2->getTable();

            }

            my $youngest = $PackageData{$pkgid}{youngAge};

            my $youngestNonRipple = $PackageData{$pkgid}{youngAgeNonRipple} || 0;

            my $youngestNonBuildadm = $PackageData{$pkgid}{nonBuildadm} || 0;

            $youngest =  int($youngest);

            $youngestNonRipple =  int($youngestNonRipple) || '-';

            $youngestNonBuildadm = int($youngestNonBuildadm) || '-';

            $t->addRow( linkPackageDetails($pkgid) . $flag, $t2Text, "$youngestNonBuildadm [$youngest]", $comment  );

        }

    }

    print $HTML $t->getTable;

    #

    #   Packages with known issues

    #

    $HTML = generateHTMLHeader ('SD');