summaryrefslogtreecommitdiff
path: root/scripts/admin.pl
diff options
context:
space:
mode:
authoraurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-18 21:16:17 +0000
committeraurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-18 21:16:17 +0000
commit0d4b0b2cf4be896167ff411d22125c378573b762 (patch)
tree3b20fed1e21741a53807e03c64f0e5c176c69b58 /scripts/admin.pl
parent2e513eecb022613bfea6e040a4a21897316d5585 (diff)
Creation of Edit/Create user templates. Addition of a Cancel button to the admin.pl, which take one back to the initial page.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1634 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts/admin.pl')
-rw-r--r--scripts/admin.pl8
1 files changed, 6 insertions, 2 deletions
diff --git a/scripts/admin.pl b/scripts/admin.pl
index 7daf463b..32413d27 100644
--- a/scripts/admin.pl
+++ b/scripts/admin.pl
@@ -126,7 +126,7 @@ sub new_user {
my ($class, $request) = @_;
my $template = LedgerSMB::Template->new( user=>$user,
- template=>'Admin/new_user', language=>$user->{language},
+ template=>'Admin/edit_user', language=>$user->{language},
format=>'HTML', path=>'UI');
$template->render();
@@ -143,6 +143,11 @@ sub new_group {
$template->render();
}
+sub cancel {
+
+ __default(@_);
+}
+
sub __default {
my ($class, $request) = @_;
@@ -154,5 +159,4 @@ sub __default {
format=>'HTML', path=>'UI');
$template->render();
}
-
1; \ No newline at end of file