+++ /dev/null
-#=====================================================================
-# SQL-Ledger Accounting
-# Copyright (c) 2004
-#
-# Author: Dieter Simader
-# Web: http://www.sql-ledger.org
-#
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#======================================================================
-
-
-1;
-# end of main
-
-
-sub getpassword {
- my ($s) = @_;
-
- $form->{endsession} = 1;
- $form->header;
-
- $sessionexpired = qq|<b><font color=red><blink>|.$locale->text('Session expired!').qq|</blink></font></b><p>| if $s;
-
- print qq|
-<script language="JavaScript" type="text/javascript">
-<!--
-function sf(){
- document.pw.password.focus();
-}
-// End -->
-</script>
-
-<body onload="sf()">
-
- $sessionexpired
-
-<form method=post action=$form->{script} name=pw>
-
-<table>
- <tr>
- <th align=right>|.$locale->text('Password').qq|</th>
- <td><input type=password name=password size=30></td>
- <td><input type=submit value="|.$locale->text('Continue').qq|"></td>
- </tr>
-</table>
-
-|;
-
- map { delete $form->{$_} } qw(header script endsession password);
- $form->hide_form;
-
- print qq|
-</form>
-
-</body>
-</html>
-|;
-
-}
-
-