simpleredirect.pl

   1 #!/usr/bin/perl
   2
   3 #simple script to provide basic redirection
   4 #used by members section
   5
   6 use CGI;
   7 use strict;
   8
   9 my $input=new CGI;
  10
  11 my $choice=$input->param('chooseform');
  12
  13 if ($choice eq 'adult'){
  14   print $input->redirect("/cgi-bin/koha/memberentry.pl?type=Add");
  15 }
  16
  17 if ($choice eq 'organisation'){
  18   print $input->redirect("/cgi-bin/koha/imemberentry.pl?type=Add");
  19 }