[Koha-cvs] CVS: koha/members memberentry.pl,1.5,1.6

[Owen Leonard]

Update of /cvsroot/koha/koha/members
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1148/members

Modified Files:
        memberentry.pl 
Log Message:
Using destination parameter to return users to circulation if they clicked the 
'edit' link from the circulation screen

Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/members/memberentry.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** memberentry.pl      30 Nov 2004 16:14:04 -0000      1.5
--- memberentry.pl      16 Feb 2005 20:23:58 -0000      1.6
***************
*** 59,62 ****
--- 59,63 ----
  my $op=$input->param('op');
  my $categorycode=$input->param('categorycode');
+ my $destination=$input->param('destination');
  
  my $nok;
***************
*** 122,126 ****
--- 123,132 ----
                        $data{borrowernumber} = &newmember(%data);
                }
+               
+       if($destination eq "circ"){
+               print 
$input->redirect("/cgi-bin/koha/circ/circulation.pl?findborrower=$data{'cardnumber'}");
+       } else {
                print 
$input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$data{'borrowernumber'}");
+               }
        }
  }
***************
*** 229,232 ****
--- 235,239 ----
  
        $template->param(       actionType              => $actionType,
+                               destination => $destination,
                                member          => $member,
                                address         => $data->{'streetaddress'},