X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=lib%2FClearcase%2FUCM%2FProject.pm;h=350df522bfda41b34800c644116dc137debfa89e;hb=6cf0d2cda8a454c46c0cd44fc2edd2093cd8c83a;hp=8db0f865eb03fd7e799b9449ce0207e8c0f8ad68;hpb=d895bcfa1f515422ffde513f7fbe55a728d9c85c;p=clearscm.git

diff --git a/lib/Clearcase/UCM/Project.pm b/lib/Clearcase/UCM/Project.pm
index 8db0f86..350df52 100644
--- a/lib/Clearcase/UCM/Project.pm
+++ b/lib/Clearcase/UCM/Project.pm
@@ -270,8 +270,55 @@ Ouput from cleartool
 =cut
 
   return $Clearcase::CC->execute 
-    ('rmproject -f ' . $self->{name} . "\@" . $self->{pvob}->name);
-} # rmProject
+    ('rmproject -f ' . $self->{name} . "\@" . $self->{pvob}->tag);
+} # remove
+
+sub change($) {
+  my ($self, $opts) = @_;
+
+=pod
+
+=head2 change
+
+Changes UCM Project
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item opts
+
+Options
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item $status
+
+Status from cleartool
+
+=item @output
+
+Ouput from cleartool
+
+=back
+
+=for html </blockquote>
+
+=cut
+
+  $opts ||= '';
+
+  return $Clearcase::CC->execute 
+    ("chproject $opts " . $self->{name} . "\@" . $self->{pvob}->name);
+} # change
 
 sub exists() {
   my ($self) = @_;