getting closer to bucket output

This commit is contained in:
JT Smith 2006-01-30 00:14:22 +00:00
parent deb6b353d6
commit 268947c1d5
8 changed files with 192 additions and 42 deletions

View file

@ -861,6 +861,7 @@ Returns a toolbar with a set of icons that hyperlink to functions that delete, e
sub getToolbar {
my $self = shift;
return $self->{_toolbar} if (exists $self->{_toolbar});
my $i18n = WebGUI::International->new($self->session, "Asset");
my $toolbar = $self->session->icon->delete('func=delete',$self->get("url"),$i18n->get(43));
my $commit;
@ -1441,6 +1442,19 @@ sub newByUrl {
#-------------------------------------------------------------------
=head2 prepareView ( )
Executes what is necessary to make the view() method work with content streaming. This includes things like processing template head tags.
=cut
sub prepareView {
my $self = shift;
$self->{_toolbar} = $self->getToolbar;
}
#-------------------------------------------------------------------
=head2 processPropertiesFromFormPost ( )
Updates current Asset with data from Form.