Changeset 478

Timestamp:

2007-12-18 12:58:34 (1 year ago)

Author:

tdb01r

Message:

• UI to unlock a repository
  

Files:

• trunk/celestial-2/lib/Celestial/Handler/repository.pm (modified) (2 diffs)

trunk/celestial-2/lib/Celestial/Handler/repository.pm

@@ -95 +95 @@
-sub _status {
-        my( $self, $body, $CGI, $repo ) = @_;
+
+        if( $CGI->action eq 'unlock' and $CGI->authorised )
+        {
+                $repo->unlock;
+        }
-
-        my $ds = $repo->getLock;
@@ -110 +115 @@
-        } else {
-                $tr->appendChild( dataElement( 'td', $CGI->cross, {class=>'state failed'}));
+
+                if( $CGI->authorised )
+                {
+                        $body->appendChild( my $p = dataElement( 'p' ));
+                        my $url = $CGI->as_link('repository', repository=>$repo->id, action=>'unlock');
+                        $p->appendChild( dataElement( 'a', $CGI->msg( 'repository.status.unlock' ), { href => $url } ));
+                }
-        }
-}