[Koha-cvs] CVS: koha/circ branchtransfers.pl,1.3.2.2,1.3.2.3 circulation.pl,1.23.2.5,1.23.2.6 returns.pl,1.13.2.3,1.13.2.4

[Steve Tonnesen]

Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv13587

Modified Files:
      Tag: rel-1-2
        branchtransfers.pl circulation.pl returns.pl 
Log Message:
Adding cookie-based authentication calls


Index: branchtransfers.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/branchtransfers.pl,v
retrieving revision 1.3.2.2
retrieving revision 1.3.2.3
diff -C2 -r1.3.2.2 -r1.3.2.3
*** branchtransfers.pl  15 Aug 2002 00:46:26 -0000      1.3.2.2
--- branchtransfers.pl  9 Sep 2002 17:41:49 -0000       1.3.2.3
***************
*** 27,30 ****
--- 27,31 ----
  use C4::Output;
  use C4::Reserves2;
+ use C4::Auth;
  
  ###############################################
***************
*** 47,50 ****
--- 48,52 ----
  
  my $query=new CGI;
+ my ($loggedinuser, $sessioncookie, $sessionID) = checkauth($query);
  
  
***************
*** 294,298 ****
  # Make the page .....
  
! print $query->header;
  print startpage;
  #print startmenu('circulation');
--- 296,300 ----
  # Make the page .....
  
! print $query->header(-cookie=>$sessioncookie);
  print startpage;
  #print startmenu('circulation');

Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.23.2.5
retrieving revision 1.23.2.6
diff -C2 -r1.23.2.5 -r1.23.2.6
*** circulation.pl      16 Aug 2002 20:44:42 -0000      1.23.2.5
--- circulation.pl      9 Sep 2002 17:41:49 -0000       1.23.2.6
***************
*** 481,487 ****
  
  if ($branchcookie && $printercookie) {
!     print $query->header(-type=>'text/html',-expires=>'now', 
-cookie=>[$branchcookie,$printercookie]);
  } else {
!     print $query->header();
  }
  
--- 481,487 ----
  
  if ($branchcookie && $printercookie) {
!     print $query->header(-type=>'text/html',-expires=>'now', 
-cookie=>[$branchcookie,$printercookie,$sessioncookie]);
  } else {
!     print $query->header(-cookie=>[$sessioncookie]);
  }
  

Index: returns.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/returns.pl,v
retrieving revision 1.13.2.3
retrieving revision 1.13.2.4
diff -C2 -r1.13.2.3 -r1.13.2.4
*** returns.pl  5 Sep 2002 22:27:12 -0000       1.13.2.3
--- returns.pl  9 Sep 2002 17:41:49 -0000       1.13.2.4
***************
*** 29,32 ****
--- 29,33 ----
  use C4::Print;
  use C4::Reserves2;
+ use C4::Auth;
  
  my %env;
***************
*** 39,42 ****
--- 40,44 ----
  
  my $query=new CGI;
+ my ($loggedinuser, $sessioncookie, $sessionID) = checkauth($query);
  my $branches = getbranches();
  my $printers = getprinters(\%env);
***************
*** 433,437 ****
  
  # actually print the page!
! print $query->header();
  print startpage();
  print startmenu('circulation');
--- 435,439 ----
  
  # actually print the page!
! print $query->header(-cookie => $sessioncookie);
  print startpage();
  print startmenu('circulation');