diff options
| author | khoff <khoff> | 2003-04-21 21:29:35 +0000 |
|---|---|---|
| committer | khoff <khoff> | 2003-04-21 21:29:35 +0000 |
| commit | fcfad3cd469df0df1beb2d54ea990a387915ebe2 (patch) | |
| tree | 4a7f5a66bd110d5dce229b6cb45bf43554627eb8 /httemplate | |
| parent | b938a41859030d3d3a126f39fa1b64b9211145a5 (diff) | |
Navigation fixes.
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/edit/part_router_field.cgi | 7 | ||||
| -rw-r--r-- | httemplate/edit/process/generic.cgi | 5 |
2 files changed, 7 insertions, 5 deletions
diff --git a/httemplate/edit/part_router_field.cgi b/httemplate/edit/part_router_field.cgi index c3e99be..02962b1 100644 --- a/httemplate/edit/part_router_field.cgi +++ b/httemplate/edit/part_router_field.cgi @@ -21,7 +21,10 @@ if ( $cgi->param('error') ) { my $action = $part_router_field->routerfieldpart ? 'Edit' : 'Add'; my $p1 = popurl(1); -print header("$action Router Extended Field Definition", ''); +print header("$action Router Extended Field Definition", + menubar('Main Menu' => $p, + 'View all Extended Fields' => $p. 'browse/generic.cgi?part_router_field') + ); print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'), "</FONT>" @@ -30,8 +33,6 @@ print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'), <FORM ACTION="<%=$p1%>process/generic.cgi" METHOD=POST> <INPUT TYPE="hidden" NAME="table" VALUE="part_router_field"> -<INPUT TYPE="hidden" NAME="redirect_ok" - VALUE="<%=$p1%>part_router_field.cgi"> <INPUT TYPE="hidden" NAME="routerfieldpart" VALUE="<%= $routerfieldpart%>"> Field #<B><%=$routerfieldpart or "(NEW)"%></B><BR><BR> diff --git a/httemplate/edit/process/generic.cgi b/httemplate/edit/process/generic.cgi index 751987f..9c54feb 100644 --- a/httemplate/edit/process/generic.cgi +++ b/httemplate/edit/process/generic.cgi @@ -27,6 +27,7 @@ use DBIx::DBSchema::Table; my $error; my $p2 = popurl(2); +my $p3 = popurl(3); my $table = $cgi->param('table'); my $dbdef = dbdef or die "Cannot fetch dbdef!"; @@ -56,7 +57,7 @@ if($pkey_val and (my $old = qsearchs($table, { $pkey, $pkey_val} ))) { } my $redirect_ok = (($cgi->param('redirect_ok')) ? - $cgi->param('redirect_ok') : $p2."view/$table.cgi"); + $cgi->param('redirect_ok') : $p3."browse/generic.cgi?$table"); my $redirect_error = (($cgi->param('redirect_error')) ? $cgi->param('redirect_error') : $cgi->referer()); @@ -64,6 +65,6 @@ if($error) { $cgi->param('error', $error); print $cgi->redirect($redirect_error . '?' . $cgi->query_string); } else { - print $cgi->redirect($redirect_ok . '?' .$pkey_val); + print $cgi->redirect($redirect_ok); } %> |