%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2001 Sergey Rusakov. All rights reserved. %# This program is free software; you can redistribute it %# and/or modify it under the same terms as Perl itself. %# %# $Revision: 3.1 $ %# $Date: 2003/04/24 05:36:52 $ %# $Header: /home/cvsroot/ePortal/comp_root/login/index.htm,v 3.1 2003/04/24 05:36:52 ras Exp $ %# %#---------------------------------------------------------------------------- <%method onStartRequest><%perl> my $uri = $session{SCRIPT_NAME} || '/'; return $uri;