From ea09f246085b8616fc66039b7f93ae28debf7dfe Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 16 Mar 2006 02:01:17 +0000
Subject: [PATCH] added explicit locking

---
 docs/changelog/6.x.x.txt         |  1 +
 lib/WebGUI/Asset.pm              |  6 ++++++
 lib/WebGUI/Asset/Post/Thread.pm  |  8 ++++----
 lib/WebGUI/AssetVersioning.pm    | 23 ++++++++++++++++++++++-
 lib/WebGUI/i18n/English/Asset.pm |  6 ++++++
 5 files changed, 39 insertions(+), 5 deletions(-)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index 41bca42f3..687867afe 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -1,4 +1,5 @@
 6.99.0
+ - Addded a lock menu item to explicitly lock an asset from editing.
  - Run on registration and alert on new user have been converted to a single
    workflow.
  - Many changes for better XHTML compliance.
diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 86a68b25a..df3cb9d34 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -866,9 +866,14 @@ sub getToolbar {
 	$toolbar .= $self->session->icon->export('func=export',$self->get("url")) if defined ($self->session->config->get("exportPath"));
 	$self->session->style->setLink($self->session->config->get("extrasURL").'/contextMenu/contextMenu.css', {rel=>"stylesheet",type=>"text/css"});
 	$self->session->style->setScript($self->session->config->get("extrasURL").'/contextMenu/contextMenu.js', {type=>"text/javascript"});
+	my $lock = "";
+	if (!$self->isLocked) {
+		$lock = 'contextMenu.addLink("'.$self->getUrl("func=lock").'","'.$i18n->get("lock").'");';
+	}
 	return '<script type="text/javascript">
 		//<![CDATA[
 		var contextMenu = new contextMenu_createWithImage("'.$self->getIcon(1).'","'.$self->getId.'","'.$self->getName.'");
+		'.$lock.'
 		contextMenu.addLink("'.$self->getUrl("func=editBranch").'","'.$i18n->get("edit branch").'");
 		contextMenu.addLink("'.$self->getUrl("func=promote").'","'.$i18n->get("promote").'");
 		contextMenu.addLink("'.$self->getUrl("func=demote").'","'.$i18n->get("demote").'");
@@ -1024,6 +1029,7 @@ sub manageAssets {
                 contextMenu.addLink("'.$child->getUrl("func=createShortcut;proceed=manageAssets").'","'.$i18n->get("create shortcut").'");
 		contextMenu.addLink("'.$child->getUrl("func=manageRevisions").'","'.$i18n->get("revisions").'");
                 contextMenu.addLink("'.$child->getUrl.'","'.$i18n->get("view").'"); '."\n";
+		$output .= 'contextMenu.addLink("'.$child->getUrl("func=lock;proceed=manageAssets").'","'.$i18n->get("lock").'");' unless ($child->isLocked);
 		my $title = $child->getTitle;
 		$title =~ s/\'/\\\'/g;
 		my $locked;
diff --git a/lib/WebGUI/Asset/Post/Thread.pm b/lib/WebGUI/Asset/Post/Thread.pm
index 7c7392bcf..c4efd5f1b 100644
--- a/lib/WebGUI/Asset/Post/Thread.pm
+++ b/lib/WebGUI/Asset/Post/Thread.pm
@@ -197,7 +197,7 @@ Formats the url to lock a thread.
 
 sub getLockUrl {
 	my $self = shift;
-	$self->getUrl("func=lock");
+	$self->getUrl("func=lockThread");
 }
 
 
@@ -343,7 +343,7 @@ Formats the url to unlock the thread
 
 sub getUnlockUrl {
 	my $self = shift;
-	return $self->getUrl("func=unlock");
+	return $self->getUrl("func=unlockThread");
 }
 
 
@@ -838,7 +838,7 @@ The web method to lock a thread.
 
 =cut
 
-sub www_lock {
+sub www_lockThread {
 	my $self = shift;
 	$self->lock if $self->getParent->canModerate;
 	return $self->www_view;
@@ -914,7 +914,7 @@ The web method to unlock a thread.
 
 =cut
 
-sub www_unlock {
+sub www_unlockThread {
 	my $self = shift;
 	$self->unlock if $self->getParent->canModerate;
 	return $self->www_view;
diff --git a/lib/WebGUI/AssetVersioning.pm b/lib/WebGUI/AssetVersioning.pm
index 836a4ef22..f4b7d2126 100644
--- a/lib/WebGUI/AssetVersioning.pm
+++ b/lib/WebGUI/AssetVersioning.pm
@@ -69,7 +69,7 @@ sub addRevision {
         my $newVersion = WebGUI::Asset->new($self->session,$self->getId, $self->get("className"), $now);
         $newVersion->updateHistory("created revision");
 	$newVersion->update($self->get);
-	$newVersion->{isLockedBy} = $self->session->user->userId;
+	$newVersion->setVersionLock;
 	$properties->{status} = 'pending';
         $newVersion->update($properties);
         return $newVersion;
@@ -225,6 +225,27 @@ sub updateHistory {
 }
 
 
+#-------------------------------------------------------------------
+
+=head2 www_lock () 
+
+This is the same as doing an www_editSave without changing anything. It's here so that users can lock assets if they're planning on working on them, or they're working on some of the content offline.
+
+=cut
+
+sub www_lock {
+	my $self = shift;
+	if (!$self->isLocked && $self->canEdit) {
+		$self = $self->addRevision;
+	}
+	if ($self->session->form->process("proceed") eq "manageAssets") {
+                $self->session->asset($self->getParent);
+                return $self->session->asset->www_manageAssets;
+        }
+        $self->session->asset($self->getContainer);
+        return $self->session->asset->www_view;	
+}
+
 #-------------------------------------------------------------------
 
 =head2 www_manageRevisions ()
diff --git a/lib/WebGUI/i18n/English/Asset.pm b/lib/WebGUI/i18n/English/Asset.pm
index 154d4b43f..0fb9679fe 100644
--- a/lib/WebGUI/i18n/English/Asset.pm
+++ b/lib/WebGUI/i18n/English/Asset.pm
@@ -55,6 +55,12 @@ our $I18N = {
 		context => q|The label for the purge button in the trash manager.|
 	},
 
+	'lock' => {
+		message => q|Lock|,
+		lastUpdated => 0,
+		context => q|A context menu item to lock an asset for editing.|
+	},
+
 	'locked' => {
 		message => q|Locked|,
 		lastUpdated => 0,