I am actually working on this:

API method in VersionTag.pm:

#-------------------------------------------------------------------

=head2 quitWorking ( )

Quits the current working tag and returns the user to the page as it is

=cut

sub quitWorking {
    my $self = shift;
    $self->session->scratch->delete("versionTag");

}

extra link in the adminbar:

 my $working = WebGUI::VersionTag->getWorking($session, 1);
     my $workingId = "";
     my @tags = ();
     if ($working) {
      $workingId = $working->getId;
      my $commitUrl = "";
     if ($session->setting->get("skipCommitComments")) {
          $session->url->page("op=commitVersionTagConfirm;tagId=".$workingId);
   }
     else {
         $session->url->page("op=commitVersionTag;tagId=".$workingId);
     }
     push(@tags, {
        url=>$session->url->page("op=commitVersionTag;tagId=".$workingId),
        title=>$i18n->get("commit my changes"),
        icon=>$session->url->extras('adminConsole/small/versionTags.gif')
     });
     push(@tags, {
        url=>$session->url->page("op=leaveVersionTag"),
        title=>$i18n->get("leave version tag"),
        icon=>$session->url->extras('adminConsole/small/picture.gif')   #some icon should be existing here
     });
 }

Now I'm going to look how to couple the operation to the API call. Hey, it's all new to me, but if anyone got comment, feel free :)

for the operation (/data/WebGUI/lib/WebGUI/Operation/VersionTag.pm it's something like:

#-------------------------------------------------------------------

=head2 www_leaveVersionTag ( session )

this will take the user out of the version tag

=head3 session

A reference to the current session.

=cut

sub www_eaveWorkingVersionTag {
    my $session = shift;
    my $tag = WebGUI::Session->get(versionTag );
    if ($tag) {
      $tag->quitWorking();
    }
    if ($session->form->param("backToSite")) {
      return undef;
    }
    return www_manageVersions($session);
}

ok, except testing, debugging and stuff, I should add it in getOperations:

'leaveVersionTag' => 'VersionTag',

Gonna find out whther we need more, probably some adding in the adminconsole, but that's only applying the script...

By the way this starts to be mainly a kinda blog for me what the status is, my excuses for that.

 Hi Bart,

My visual debugger threw up a couple of compilation errors:

• www_eaveWorkingVersionTag should be www_leaveWorkingVersionTag
• my $tag = WebGUI::Session->get(versionTag ); should be my $tag = WebGUI::Session->get( "versionTag" );

A general comment, you've used two different words for API methods that more or less mean the same thing: "quit" and "leave". I'd suggesting sticking to one to be consistent.

The VersionTag API already has a function called clearWorking that makes it so that the version tag is not the version tag for any user. I'd suggest that rather than implementing your new API method quitWorking, you enhance clearWorking so that it accepts an optional argument, a single userId (or a list of userIds) and only clears the working tag for those users. Keeping the API surface area as small as possible is a good design principle, and this seems like a natural extension for an existing method.

Hope that helps :)

Patrick