@@ -2776,40 +2776,12 @@ sub www_addSave {
2776
2776
return $self -> session-> style-> userStyle($i18n -> get(" over max assets" )) if ($self -> session-> config-> get(" maximumAssets" ) <= $count );
2777
2777
}
2778
2778
2779
- # Determine what version tag we should use
2780
- my $autoCommitId = $self -> getAutoCommitWorkflowId();
2781
-
2782
- my ($workingTag , $oldWorking );
2783
- if ( $autoCommitId ) {
2784
- $workingTag
2785
- = WebGUI::VersionTag-> create( $session , {
2786
- groupToUse => ' 12' , # Turn Admin On (for lack of something better)
2787
- workflowId => $autoCommitId ,
2788
- } );
2789
- }
2790
- else {
2791
- my $parentAsset ;
2792
- if ( not defined ( $parentAsset = $self -> getParent ) ) {
2793
- $parentAsset = WebGUI::Asset-> newPending( $session , $self -> parentId );
2794
- }
2795
- if ( $parentAsset -> hasBeenCommitted ) {
2796
- $workingTag = WebGUI::VersionTag-> getWorking( $session );
2797
- }
2798
- else {
2799
- $oldWorking = WebGUI::VersionTag-> getWorking($session , ' noCreate' );
2800
- $workingTag = WebGUI::VersionTag-> new( $session , $parentAsset -> tagId );
2801
- $workingTag -> setWorking();
2802
- }
2803
- }
2804
-
2805
2779
# Add the new asset
2806
2780
my $object ;
2807
2781
my $className = $form -> process(' className' ,' className' ) || $form -> process(' class' ,' className' );
2808
2782
$object = $self -> addChild({
2809
2783
className => $className ,
2810
2784
revisedBy => $session -> user-> userId,
2811
- tagId => $workingTag -> getId,
2812
- status => " pending" ,
2813
2785
});
2814
2786
if ( !defined $object ) {
2815
2787
my $url = $session -> url-> page;
@@ -2819,11 +2791,6 @@ sub www_addSave {
2819
2791
$object -> {_parent } = $self ;
2820
2792
$object -> url(undef );
2821
2793
2822
- # More version tag stuff
2823
- $object -> setVersionLock;
2824
- $object -> setAutoCommitTag($workingTag ) if (defined $autoCommitId );
2825
- $oldWorking -> setWorking if $oldWorking ;
2826
-
2827
2794
# Process properties from form post
2828
2795
my $errors = $object -> processEditForm;
2829
2796
if (ref $errors eq ' ARRAY' ) {
@@ -2924,43 +2891,8 @@ sub www_editSave {
2924
2891
return $session -> privilege-> locked() unless $self -> canEditIfLocked;
2925
2892
return $session -> privilege-> insufficient() unless $self -> canEdit;
2926
2893
2927
- # Determine what version tag we should use
2928
- my $autoCommitId = $self -> getAutoCommitWorkflowId();
2929
-
2930
- my ($workingTag , $oldWorking );
2931
- if ( $autoCommitId ) {
2932
- $workingTag
2933
- = WebGUI::VersionTag-> create( $session , {
2934
- groupToUse => ' 12' , # Turn Admin On (for lack of something better)
2935
- workflowId => $autoCommitId ,
2936
- } );
2937
- }
2938
- else {
2939
- my $parentAsset ;
2940
- if ( not defined ( $parentAsset = $self -> getParent ) ) {
2941
- $parentAsset = WebGUI::Asset-> newPending( $session , $self -> parentId );
2942
- }
2943
- if ( $parentAsset -> hasBeenCommitted ) {
2944
- $workingTag = WebGUI::VersionTag-> getWorking( $session );
2945
- }
2946
- else {
2947
- $oldWorking = WebGUI::VersionTag-> getWorking($session , ' noCreate' );
2948
- $workingTag = WebGUI::VersionTag-> new( $session , $parentAsset -> tagId );
2949
- $workingTag -> setWorking();
2950
- }
2951
- }
2952
-
2953
2894
# Add the new revision
2954
- my $object = $self -> addRevision({
2955
- revisedBy => $session -> user-> userId,
2956
- tagId => $workingTag -> getId,
2957
- status => " pending" ,
2958
- });
2959
-
2960
- # More version tag stuff
2961
- $object -> setVersionLock;
2962
- $object -> setAutoCommitTag($workingTag ) if (defined $autoCommitId );
2963
- $oldWorking -> setWorking if $oldWorking ;
2895
+ my $object = $self -> addRevision();
2964
2896
2965
2897
# Process properties from form post
2966
2898
my $errors = $object -> processEditForm;
0 commit comments