- Added "Save and Commit" option for environments where the appearance of

workflow is unwanted.

lib/WebGUI/Asset.pm

@@ -603,6 +603,9 @@ sub getEditForm {
 	my $uiLevelOverride = $self->get("className");
 	$uiLevelOverride =~ s/\:\:/_/g;
 	my $tabform = WebGUI::TabForm->new($self->session,undef,undef,$self->getUrl(),$uiLevelOverride);
+	if ($self->session->config->get("enableSaveAndCommit")) {
+		$tabform->submitAppend(WebGUI::Form::submit($self->session, {name=>"saveAndCommit", value=>$i18n->get("save and commit")}));
+	}
 	$tabform->hidden({
 		name=>"func",
 		value=>"editSave"
@@ -1963,6 +1966,10 @@ sub www_editSave {
 	}
 
 	$object->updateHistory("edited");
+	if ($self->session->form->process("saveAndCommit") ne "") {
+		$self->session->http->setRedirect($self->getUrl("op=commitVersionTag;tagId=".WebGUI::VersionTag->getWorking($self->session)->getId));
+		return "1";
+	}
 	if ($self->session->form->process("proceed") eq "manageAssets") {
 		$self->session->asset($object->getParent);
 		return $self->session->asset->www_manageAssets;

lib/WebGUI/TabForm.pm

@@ -280,6 +280,19 @@ sub submit {
 	$self->{_submit} = WebGUI::Form::Submit($self->session,$submit);
 }
 
+#-------------------------------------------------------------------
+
+=head2 submitAppend ( html )
+
+Appends some HTML to the submit button.
+
+=cut
+
+sub submitAppend {
+	my $self = shift;
+	my $html = shift;
+	$self->{_submit} .= $html;
+}
 
 1;
 

lib/WebGUI/i18n/English/Asset.pm

@@ -1,6 +1,12 @@
 package WebGUI::i18n::English::Asset;
 
 our $I18N = {
+	'save and commit' => {
+		message => q|save & commit|,
+		lastUpdated => 0,
+		context => q|A button added to all asset properties pages when save and commit mode is enabled.|
+	},
+
 	'add the missing page' => {
 		message => q|Add the missing page.|,
 		lastUpdated => 0,