[svk-commit] r2841 - trunk/lib/SVK
nobody at bestpractical.com
nobody at bestpractical.com
Fri May 9 01:09:25 EDT 2008
Author: clsung
Date: Fri May 9 01:09:24 2008
New Revision: 2841
Modified:
trunk/lib/SVK/Project.pm
Log:
- adjust output
Modified: trunk/lib/SVK/Project.pm
==============================================================================
--- trunk/lib/SVK/Project.pm (original)
+++ trunk/lib/SVK/Project.pm Fri May 9 01:09:24 2008
@@ -320,26 +320,23 @@
sub info {
my ($self, $target) = @_;
- $logger->info ( loc("Project name: %1.\n", $self->name));
+ $logger->info ( loc("Project name: %1\n", $self->name));
if ($target) {
- my $where;
+ my $where = "online";
my $bname;
if (dir($self->trunk)->subsumes($target->path)) {
- $where = 'trunk';
$bname = 'trunk';
} elsif (dir($self->branch_location)->subsumes($target->path)) {
- $where = 'branch';
$bname = $target->_to_pclass($target->path)->relative($self->branch_location)->dir_list(0);
} elsif ($self->tag_location and dir($self->tag_location)->subsumes($target->path)) {
- $where = 'tag';
$bname = $target->_to_pclass($target->path)->relative($self->tag_location)->dir_list(0);
} elsif (dir($self->local_root)->subsumes($target->path)) {
- $where = 'local branch';
+ $where = 'offline';
$bname = $target->_to_pclass($target->path)->relative($self->local_root)->dir_list(0);
}
if ($where) {
- $logger->info ( loc("Current Branch: %1 (%2)\n", $bname, $where ));
+ $logger->info ( loc("Branch: %1 (%2)\n", $bname, $where ));
$logger->info ( loc("Depot Path: (%1)\n", $target->depotpath ));
if ($where ne 'trunk') { # project trunk should not have Copied info
for ($target->copy_ancestors) {
More information about the svk-commit
mailing list