Changeset 564


Ignore:
Timestamp:
Nov 26, 2004, 2:10:13 PM (17 years ago)
Author:
kake
Message:

Add return_output and return_tt_vars options to delete_node

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides.pm

    r563 r564  
    760760will be displayed.
    761761
     762As with other methods, parameters C<return_tt_vars> and
     763C<return_output> can be used to return these things instead of
     764printing the output to STDOUT.
     765
    762766=cut
    763767
     
    765769    my ($self, %args) = @_;
    766770    my $node = $args{id} or croak "No node ID supplied for deletion";
     771    my $return_tt_vars = $args{return_tt_vars} || 0;
     772    my $return_output = $args{return_output} || 0;
    767773
    768774    my %tt_vars = (
     
    777783    if ($password) {
    778784        if ($password ne $self->config->{_}->{admin_pass}) {
    779             print $self->process_template(
     785            return %tt_vars if $return_tt_vars;
     786            my $output = $self->process_template(
    780787                                     id       => $node,
    781788                                     template => "delete_password_wrong.tt",
    782789                                     tt_vars  => \%tt_vars,
    783790                                   );
     791            return $output if $return_output;
     792            print $output;
    784793        } else {
    785794            $self->wiki->delete_node(
     
    790799            my %check = $self->wiki->retrieve_node( name => $node );
    791800            $tt_vars{other_versions_remain} = 1 if $check{version};
    792             print $self->process_template(
     801            return %tt_vars if $return_tt_vars;
     802            my $output = $self->process_template(
    793803                                     id       => $node,
    794804                                     template => "delete_done.tt",
    795805                                     tt_vars  => \%tt_vars,
    796806                                   );
     807            return $output if $return_output;
     808            print $output;
    797809        }
    798810    } else {
    799         print $self->process_template(
     811        return %tt_vars if $return_tt_vars;
     812        my $output = $self->process_template(
    800813                                 id       => $node,
    801814                                 template => "delete_confirm.tt",
    802815                                 tt_vars  => \%tt_vars,
    803816                               );
     817        return $output if $return_output;
     818        print $output;
    804819    }
    805820}
Note: See TracChangeset for help on using the changeset viewer.