oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

very close to having ship driver management working

Browse source
This commit is contained in:
JT Smith 2008-03-08 00:11:09 +00:00
parent fc3ccba4f3
commit e4d76f0b3b
5 changed files with 45 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lib/WebGUI/Shop/ShipDriver.pm
View file

@ -150,8 +150,8 @@ sub definition {
},
);
my %properties = (
name => 'Shipper Driver',
fields => \%fields,
name => 'Shipper Driver',
properties => \%fields,
);
push @{ $definition }, \%properties;
return $definition;
@ -221,7 +221,7 @@ sub getEditForm {
name => 'className',
value => $self->className,
);
$form->dynamicForm($definition, 'fields', $self);
$form->dynamicForm($definition, 'properties', $self);
return $form;
}
@ -333,4 +333,21 @@ a GUID.
=cut
#-------------------------------------------------------------------
=head2 www_edit ( )
Generates an edito form.
=cut
sub www_edit {
my $self = shift;
my $admin = WebGUI::Shop::Admin->new($self->session);
my $i18n = WebGUI::International->new($self->session, "Shop");
return $admin->getAdminConsole->render($self->getEditForm->print, $i18n->get("shipping methods"));
}
1;