| Line 310... |
Line 310... |
| 310 |
" pkg.PKG_NAME, ". #[1]
|
310 |
" pkg.PKG_NAME, ". #[1]
|
| 311 |
" pv.PKG_VERSION, ". #[2]
|
311 |
" pv.PKG_VERSION, ". #[2]
|
| 312 |
" pv.DLOCKED," . #[3]
|
312 |
" pv.DLOCKED," . #[3]
|
| 313 |
" release_manager.PK_RMAPI.return_vcs_tag(pv.PV_ID), ". #[4]
|
313 |
" release_manager.PK_RMAPI.return_vcs_tag(pv.PV_ID), ". #[4]
|
| 314 |
" pv.PKG_ID," . #[5]
|
314 |
" pv.PKG_ID," . #[5]
|
| 315 |
" pv.MODIFIED_STAMP ". #[6]
|
315 |
" pv.MODIFIED_STAMP, ". #[6]
|
| - |
|
316 |
" pv.CREATOR_ID ". #[7]
|
| 316 |
" FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv,".
|
317 |
" FROM RELEASE_MANAGER.PACKAGE_VERSIONS pv,".
|
| 317 |
" RELEASE_MANAGER.PACKAGES pkg ".
|
318 |
" RELEASE_MANAGER.PACKAGES pkg ".
|
| 318 |
" WHERE pv.PV_ID = \'$pv_id\' ".
|
319 |
" WHERE pv.PV_ID = \'$pv_id\' ".
|
| 319 |
" AND pv.PKG_ID = pkg.PKG_ID" ;
|
320 |
" AND pv.PKG_ID = pkg.PKG_ID" ;
|
| 320 |
my $sth = $RM_DB->prepare($m_sqlstr);
|
321 |
my $sth = $RM_DB->prepare($m_sqlstr);
|
| Line 339... |
Line 340... |
| 339 |
$Packages{$pvid}{pkgid} = $row[5];
|
340 |
$Packages{$pvid}{pkgid} = $row[5];
|
| 340 |
# $Packages{$pvid}{tlp} = 1;
|
341 |
# $Packages{$pvid}{tlp} = 1;
|
| 341 |
($Packages{$pvid}{suffix}, $Packages{$pvid}{fullVersion},$Packages{$pvid}{isaRipple} ) = massageVersion( $Packages{$pvid}{version}, $Packages{$pvid}{name} );
|
342 |
($Packages{$pvid}{suffix}, $Packages{$pvid}{fullVersion},$Packages{$pvid}{isaRipple} ) = massageVersion( $Packages{$pvid}{version}, $Packages{$pvid}{name} );
|
| 342 |
$Suffixes{$Packages{$pvid}{suffix}}++;
|
343 |
$Suffixes{$Packages{$pvid}{suffix}}++;
|
| 343 |
$Packages{$pvid}{Age} = ($now - str2time( $row[6] )) / (60 * 60 * 24);
|
344 |
$Packages{$pvid}{Age} = ($now - str2time( $row[6] )) / (60 * 60 * 24);
|
| - |
|
345 |
$Packages{$pvid}{Creator} = $row[7];
|
| 344 |
}
|
346 |
}
|
| 345 |
}
|
347 |
}
|
| 346 |
# print "--- Finish\n";
|
348 |
# print "--- Finish\n";
|
| 347 |
$sth->finish();
|
349 |
$sth->finish();
|
| 348 |
}
|
350 |
}
|
| Line 393... |
Line 395... |
| 393 |
"release_manager.PK_RMAPI.return_vcs_tag(pv.PV_ID), " . #[4]
|
395 |
"release_manager.PK_RMAPI.return_vcs_tag(pv.PV_ID), " . #[4]
|
| 394 |
"pv.PKG_ID," . #[5]
|
396 |
"pv.PKG_ID," . #[5]
|
| 395 |
"rt.RTAG_ID, " . #[6]
|
397 |
"rt.RTAG_ID, " . #[6]
|
| 396 |
"rmv.VIEW_NAME, " . #[7]
|
398 |
"rmv.VIEW_NAME, " . #[7]
|
| 397 |
"pv.MODIFIED_STAMP, " . #[8]
|
399 |
"pv.MODIFIED_STAMP, " . #[8]
|
| 398 |
"prj.PROJ_ID " . #[9]
|
400 |
"prj.PROJ_ID, " . #[9]
|
| - |
|
401 |
"pv.CREATOR_ID " . #[10]
|
| 399 |
" FROM RELEASE_MANAGER.RELEASE_CONTENT rc, RELEASE_MANAGER.PACKAGE_VERSIONS pv,".
|
402 |
" FROM RELEASE_MANAGER.RELEASE_CONTENT rc, RELEASE_MANAGER.PACKAGE_VERSIONS pv,".
|
| 400 |
" RELEASE_MANAGER.PACKAGES pkg, release_manager.release_tags rt, release_manager.projects prj" .
|
403 |
" RELEASE_MANAGER.PACKAGES pkg, release_manager.release_tags rt, release_manager.projects prj" .
|
| 401 |
" , release_manager.views rmv" .
|
404 |
" , release_manager.views rmv" .
|
| 402 |
" WHERE rc.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID" .
|
405 |
" WHERE rc.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID" .
|
| 403 |
" AND rmv.VIEW_ID = rc.BASE_VIEW_ID" .
|
406 |
" AND rmv.VIEW_ID = rc.BASE_VIEW_ID" .
|
| Line 437... |
Line 440... |
| 437 |
my $rtag_id = $row[6];
|
440 |
my $rtag_id = $row[6];
|
| 438 |
push @{$Packages{$pvid}{release}}, $rtag_id;
|
441 |
push @{$Packages{$pvid}{release}}, $rtag_id;
|
| 439 |
$Packages{$pvid}{view}{$row[7]}++ if ( $row[7] );
|
442 |
$Packages{$pvid}{view}{$row[7]}++ if ( $row[7] );
|
| 440 |
|
443 |
|
| 441 |
$Packages{$pvid}{Age} = ($now - str2time( $row[8] )) / (60 * 60 * 24);
|
444 |
$Packages{$pvid}{Age} = ($now - str2time( $row[8] )) / (60 * 60 * 24);
|
| - |
|
445 |
$Packages{$pvid}{Creator} = $row[10];
|
| 442 |
|
446 |
|
| 443 |
my $proj_id = $row[9];
|
447 |
my $proj_id = $row[9];
|
| 444 |
push @{$Packages{$pvid}{projects}}, $proj_id
|
448 |
push @{$Packages{$pvid}{projects}}, $proj_id
|
| 445 |
unless (grep {$_ eq $proj_id} @{$Packages{$pvid}{projects}});
|
449 |
unless (grep {$_ eq $proj_id} @{$Packages{$pvid}{projects}});
|
| 446 |
|
450 |
|