Skip to content
Newer
Older
100755 47 lines (35 sloc) 1.28 KB
d0374d0 Initial revision
rangi authored Dec 19, 2000
1 #!/usr/bin/perl
2
3 #simple script to provide basic redirection
4 #used by members section
5
308c8aa Added default case to catch illegal values resulting from over-transl…
acli authored Feb 8, 2003
6 # Allows a single script to handle the addition of either an adult
7 # or a corporate member
1e67687 Added copyright statement to all .pl and .pm files
tonnesen authored Aug 14, 2002
8
308c8aa Added default case to catch illegal values resulting from over-transl…
acli authored Feb 8, 2003
9
10 # Copyright 2000-2003 Katipo Communications
1e67687 Added copyright statement to all .pl and .pm files
tonnesen authored Aug 14, 2002
11 #
12 # This file is part of Koha.
13 #
14 # Koha is free software; you can redistribute it and/or modify it under the
15 # terms of the GNU General Public License as published by the Free Software
16 # Foundation; either version 2 of the License, or (at your option) any later
17 # version.
18 #
19 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
20 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
21 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
22 #
23 # You should have received a copy of the GNU General Public License along with
24 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
25 # Suite 330, Boston, MA 02111-1307 USA
26
d0374d0 Initial revision
rangi authored Dec 19, 2000
27 use CGI;
28 use strict;
29
30 my $input=new CGI;
31
32 my $choice=$input->param('chooseform');
33
34 if ($choice eq 'adult'){
35 print $input->redirect("/cgi-bin/koha/memberentry.pl?type=Add");
36 }
37
38 if ($choice eq 'organisation'){
39 print $input->redirect("/cgi-bin/koha/imemberentry.pl?type=Add");
40 }
308c8aa Added default case to catch illegal values resulting from over-transl…
acli authored Feb 8, 2003
41
42 print <<EOF;
43 Content-Type: text/plain
44
45 Internal error: Invalid chooseform parameter "$choice"
46 EOF
Something went wrong with that request. Please try again.