[Koha-cvs] CVS: koha member-password.pl,1.1.2.1,1.1.2.2 member.pl,1.1.1.1.2.1,1.1.1.1.2.2 memberentry.pl,1.6.2.3,1.6.2.4 members-home.pl,1.1.2.1,1.1.2.2

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
	member-password.pl member.pl memberentry.pl members-home.pl 
Log Message:
Beginning flags based authentication.  All of the member*pl scripts now require
the borrower to have either the "borrowers" or "superlibrarian" flags set.


Index: member-password.pl
===================================================================
RCS file: /cvsroot/koha/koha/Attic/member-password.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** member-password.pl	11 Jul 2002 18:05:28 -0000	1.1.2.1
--- member-password.pl	27 Jul 2002 04:33:57 -0000	1.1.2.2
***************
*** 11,14 ****
--- 11,15 ----
  use Digest::MD5 qw(md5_base64);
  use C4::Output;
+ use C4::Auth;
  use C4::Database;
  use C4::Circulation::Circ2;
***************
*** 16,19 ****
--- 17,25 ----
  
  my $input = new CGI;
+ 
+ my $flagsrequired;
+ $flagsrequired->{borrowers}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
+ 
  #print $input->header;
  my $member=$input->param('member');
***************
*** 55,59 ****
      $spellitout=~s/\005/ <b>zero<\/b> /g;
  
!     print $input->header;
      print startpage();
      print startmenu('member');
--- 61,65 ----
      $spellitout=~s/\005/ <b>zero<\/b> /g;
  
!     print $input->header(-cookie => $cookie);
      print startpage();
      print startmenu('member');

Index: member.pl
===================================================================
RCS file: /cvsroot/koha/koha/member.pl,v
retrieving revision 1.1.1.1.2.1
retrieving revision 1.1.1.1.2.2
diff -C2 -r1.1.1.1.2.1 -r1.1.1.1.2.2
*** member.pl	20 Jun 2002 17:23:40 -0000	1.1.1.1.2.1
--- member.pl	27 Jul 2002 04:33:57 -0000	1.1.1.1.2.2
***************
*** 8,17 ****
  use CGI;
  use C4::Search;
  
  
  my $input = new CGI;
  my $member=$input->param('member');
  $member=~ s/\,//g;
! print $input->header;
  #start the page and read in includes
  print startpage();
--- 8,21 ----
  use CGI;
  use C4::Search;
+ use C4::Auth;
  
  
  my $input = new CGI;
+ my $flagsrequired;
+ $flagsrequired->{borrowers}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
  my $member=$input->param('member');
  $member=~ s/\,//g;
! print $input->header(-cookie => $cookie);
  #start the page and read in includes
  print startpage();

Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/memberentry.pl,v
retrieving revision 1.6.2.3
retrieving revision 1.6.2.4
diff -C2 -r1.6.2.3 -r1.6.2.4
*** memberentry.pl	11 Jul 2002 18:05:28 -0000	1.6.2.3
--- memberentry.pl	27 Jul 2002 04:33:57 -0000	1.6.2.4
***************
*** 9,15 ****
--- 9,20 ----
  use C4::Search;
  use C4::Database;
+ use C4::Auth;
  use C4::Koha;
  
  my $input = new CGI;
+ my $flagsrequired;
+ $flagsrequired->{borrowers}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
+ 
  my $member=$input->param('bornum');
  if ($member eq ''){
***************
*** 25,29 ****
    print $input->redirect("/cgi-bin/koha/member-password.pl?member=$member");
  } else {
! print $input->header;
  print startpage();
  print startmenu('member');
--- 30,34 ----
    print $input->redirect("/cgi-bin/koha/member-password.pl?member=$member");
  } else {
! print $input->header(-cookie => $cookie);
  print startpage();
  print startmenu('member');

Index: members-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/Attic/members-home.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** members-home.pl	11 Jul 2002 18:05:28 -0000	1.1.2.1
--- members-home.pl	27 Jul 2002 04:33:57 -0000	1.1.2.2
***************
*** 7,11 ****
  
  my $query = new CGI;
! my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
  
  print $query->header(-cookie => $cookie);
--- 7,13 ----
  
  my $query = new CGI;
! my $flagsrequired;
! $flagsrequired->{borrowers}=1;
! my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 0, $flagsrequired);
  
  print $query->header(-cookie => $cookie);