[Koha-cvs] CVS: koha shelves.pl,1.3,1.4

[Steve Tonnesen]

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

Modified Files:
	shelves.pl 
Log Message:
Beginning of authentication api.  Applied to shelves.pl for now as a test case.


Index: shelves.pl
===================================================================
RCS file: /cvsroot/koha/koha/shelves.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** shelves.pl	2 Jul 2002 17:48:06 -0000	1.3
--- shelves.pl	4 Jul 2002 19:21:29 -0000	1.4
***************
*** 11,18 ****
  use C4::BookShelves;
  use C4::Circulation::Circ2;
  
  my $env;
  my $query = new CGI;
! print $query->header;
  my $headerbackgroundcolor='#663266';
  my $circbackgroundcolor='#555555';
--- 11,20 ----
  use C4::BookShelves;
  use C4::Circulation::Circ2;
+ use C4::Auth;
  
  my $env;
  my $query = new CGI;
! my ($userid, $cookie, $sessionID) = checkauth($query);
! print $query->header(-cookie => $cookie);
  my $headerbackgroundcolor='#663266';
  my $circbackgroundcolor='#555555';
***************
*** 25,28 ****
--- 27,31 ----
  
  
+ print "SessionID: $sessionID<br>\n";
  
  
***************
*** 158,162 ****
      <input type=hidden name=modifyshelfcontents value=1>
      <input type=hidden name=viewshelf value=$shelfnumber>
!     <input type=submit value="Modify Shelf List">
      </form>
  EOF
--- 161,165 ----
      <input type=hidden name=modifyshelfcontents value=1>
      <input type=hidden name=viewshelf value=$shelfnumber>
!     <input type=submit value="Remove Selected Items">
      </form>
  EOF
***************
*** 167,172 ****
  #
  # $Log$
! # Revision 1.3  2002/07/02 17:48:06  tonnesen
! # Merged in updates from rel-1-2
  #
  # Revision 1.2.2.1  2002/06/26 20:28:15  tonnesen
--- 170,175 ----
  #
  # $Log$
! # Revision 1.4  2002/07/04 19:21:29  tonnesen
! # Beginning of authentication api.  Applied to shelves.pl for now as a test case.
  #
  # Revision 1.2.2.1  2002/06/26 20:28:15  tonnesen