[Koha-cvs] CVS: koha shelves.pl,1.10,1.11

[Ambrose Li]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv4471

Modified Files:
        shelves.pl 
Log Message:
Fixed a few minor errors to make it run
Noted correct tab size


Index: shelves.pl
===================================================================
RCS file: /cvsroot/koha/koha/shelves.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** shelves.pl  2 Feb 2003 07:18:37 -0000       1.10
--- shelves.pl  5 Feb 2003 09:23:03 -0000       1.11
***************
*** 1,4 ****
--- 1,5 ----
  #!/usr/bin/perl
  #script to provide bookshelf management
+ # WARNING: This file uses 4-character tabs!
  #
  # $Header$
***************
*** 30,38 ****
  use C4::Circulation::Circ2;
  use C4::Auth;
  use HTML::Template;
  
  my $env;
  my $query = new CGI;
- my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
  #print $query->header(-cookie => $cookie);
  my $headerbackgroundcolor='#663266';
--- 31,39 ----
  use C4::Circulation::Circ2;
  use C4::Auth;
+ use C4::Interface::CGI::Output;
  use HTML::Template;
  
  my $env;
  my $query = new CGI;
  #print $query->header(-cookie => $cookie);
  my $headerbackgroundcolor='#663266';
***************
*** 41,45 ****
  my $linecolor1='#bbbbbb';
  my $linecolor2='#dddddd';
! my $template=gettemplate("shelves.tmpl");
  #print startpage();
  #print startmenu('catalogue');
--- 42,52 ----
  my $linecolor1='#bbbbbb';
  my $linecolor2='#dddddd';
! my ($template, $loggedinuser, $cookie)
!     = get_template_and_user({template_name => "shelves.tmpl",
!                                                       query => $query,
!                             type => "intranet",
!                             authnotrequired => 0,
!                             flagsrequired => {parameters => 1},
!                          });
  #print startpage();
  #print startmenu('catalogue');
***************
*** 66,70 ****
                                                                        
viewshelf => $query->param('viewshelf'),
                                                                        shelves 
=> $query->param('shelves'),
!                                                                       
headerbackground => $headerbackground,
                                                                        
circbackgroundcolor => $circbackgroundcolor);
      if ($query->param('viewshelf')) {  viewshelf($query->param('viewshelf')); 
last SWITCH;}
--- 73,77 ----
                                                                        
viewshelf => $query->param('viewshelf'),
                                                                        shelves 
=> $query->param('shelves'),
!                                                                       
headerbackgroundcolor => $headerbackgroundcolor,
                                                                        
circbackgroundcolor => $circbackgroundcolor);
      if ($query->param('viewshelf')) {  viewshelf($query->param('viewshelf')); 
last SWITCH;}
***************
*** 72,76 ****
        my $color='';
        my @shelvesloop;
!     foreach $element (sort keys %$shelflist) {
                my %line;
                ($color eq $linecolor1) ? ($color=$linecolor2) : 
($color=$linecolor1);
--- 79,83 ----
        my $color='';
        my @shelvesloop;
!     foreach my $element (sort keys %$shelflist) {
                my %line;
                ($color eq $linecolor1) ? ($color=$linecolor2) : 
($color=$linecolor1);
***************
*** 112,116 ****
      my $color='';
        my @shelvesloop;
!     foreach $element (sort keys %$shelflist) {
                my %line;
                ($color eq $linecolor1) ? ($color=$linecolor2) : 
($color=$linecolor1);
--- 119,123 ----
      my $color='';
        my @shelvesloop;
!     foreach my $element (sort keys %$shelflist) {
                my %line;
                ($color eq $linecolor1) ? ($color=$linecolor2) : 
($color=$linecolor1);
***************
*** 152,155 ****
--- 159,166 ----
  #
  # $Log$
+ # Revision 1.11  2003/02/05 09:23:03  acli
+ # Fixed a few minor errors to make it run
+ # Noted correct tab size
+ #
  # Revision 1.10  2003/02/02 07:18:37  acli
  # Moved C4/Charset.pm to C4/Interface/CGI/Output.pm
***************
*** 193,194 ****
--- 204,209 ----
  
  
+ 
+ # Local Variables:
+ # tab-width: 4
+ # End: