OpenPKG CVS Repository
http://cvs.openpkg.org/
____________________________________________________________________________
Server: cvs.openpkg.org Name: Thomas Lotterer
Root: /v/openpkg/cvs Email: [EMAIL PROTECTED]
Module: openpkg-registry Date: 27-Nov-2005 00:41:28
Branch: HEAD Handle: 2005112623412800
Modified files:
openpkg-registry registry-ui.pl
Log:
cleanup ase comeback redirection
Summary:
Revision Changes Path
1.36 +5 -14 openpkg-registry/registry-ui.pl
____________________________________________________________________________
patch -p0 <<'@@ .'
Index: openpkg-registry/registry-ui.pl
============================================================================
$ cvs diff -u -r1.35 -r1.36 registry-ui.pl
--- openpkg-registry/registry-ui.pl 26 Nov 2005 23:40:51 -0000 1.35
+++ openpkg-registry/registry-ui.pl 26 Nov 2005 23:41:28 -0000 1.36
@@ -1031,8 +1031,9 @@
sub viewasecomeback()
{
- my ($header, $redirect, $username);
+ my ($redirect, $username);
my $html;
+ my $header = {};
$html = '';
$username = &identifyusername();
@@ -1058,19 +1059,9 @@
}
}
- return $html if ($html ne "");
-
- $header = {};
- $redirect = $cgi->redirect(
- -uri => $myurl
- );
- $header = {
- -redirect => $redirect,
- };
- $html .= $cgi->redirect($header);
- $cgi->delete(-name=>'page');
- $html .= "<div>" . $cgi->hidden(-name=>'page', -value => "association")
. "</div>";
- return $html;
+ return $html if ($html);
+ $header->{redirect} = $cgi->redirect(-uri => "$myurl?page=association");
+ return $cgi->header($header);
}
sub printprettyerror($$)
@@ .
______________________________________________________________________
The OpenPKG Project www.openpkg.org
CVS Repository Commit List openpkg-cvs@openpkg.org
