diff --git a/lib/WebGUI/AssetHelper/CopyBranch.pm b/lib/WebGUI/AssetHelper/CopyBranch.pm index 59f398f6a..2257b0c12 100644 --- a/lib/WebGUI/AssetHelper/CopyBranch.pm +++ b/lib/WebGUI/AssetHelper/CopyBranch.pm @@ -4,6 +4,7 @@ use strict; use base qw/WebGUI::AssetHelper/; use Scalar::Util qw{ blessed }; use WebGUI::VersionTag; +use JSON; =head1 LEGAL @@ -61,10 +62,52 @@ sub www_getWith { my $session = $self->session; my $i18n = WebGUI::International->new($session, 'Asset'); - my $f = $self->getForm( 'copy' ); - $f->addField( 'submit', name => 'with', value => 'Children' ); - $f->addField( 'submit', name => 'with', value => 'Descendants' ); - return $f->toHtml; + my $copy_url = $self->getUrl( 'copy' ); # call this URL to start the copy; it returns a forkId + my $url = $self->session->url->page; + + # XXX should probably be in a template + return qq{ + + + + + + + + + + + + + + + +
+ + }; } @@ -91,9 +134,9 @@ sub www_copy { $session, blessed( $self ), 'copyBranch', { childrenOnly => $childrenOnly, assetId => $asset->getId, commit => $commit }, ); - return { + return JSON->new->encode( { forkId => $fork->getId, - }; + } ); } #-------------------------------------------------------------------