[Koha-cvs] CVS: koha/admin categorie.pl,1.9,1.10 categoryitem.pl,1.6,1.7 currency.pl,1.6,1.7 printers.pl,1.7,1.8 stopwords.pl,1.8,1.9 z3950servers.pl,1.5,1.6

[Mike Hansen]

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

Modified Files:
	categorie.pl categoryitem.pl currency.pl printers.pl 
	stopwords.pl z3950servers.pl 
Log Message:
Added "toggle" color functionality to the templates


Index: categorie.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/categorie.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** categorie.pl	4 Apr 2003 23:38:43 -0000	1.9
--- categorie.pl	5 Apr 2003 03:35:09 -0000	1.10
***************
*** 183,186 ****
--- 183,187 ----
  	my @loop;
  	my ($count,$results)=StringSearch($env,$searchfield,'web');
+ 	my $toggle='white';
  	for (my $i=0; $i < $count; $i++){
  		my %row = (categorycode => $results->[$i]{'categorycode'},
***************
*** 194,199 ****
  				overduenoticerequired => $results->[$i]{'overduenoticerequired'},
  				issuelimit => $results->[$i]{'issuelimit'},
! 				reservefee => $results->[$i]{'reservefee'} );	
  		push @loop, \%row;
  	}
  	$template->param(loop => \@loop);
--- 195,209 ----
  				overduenoticerequired => $results->[$i]{'overduenoticerequired'},
  				issuelimit => $results->[$i]{'issuelimit'},
! 				reservefee => $results->[$i]{'reservefee'},
! 				toggle = $toggle );	
  		push @loop, \%row;
+ 		if ( $toggle eq 'white' )
+ 		{
+ 			$toggle = '#ffffcc';
+ 		}
+ 		else
+ 		{
+ 			$toggle = 'white';
+ 		}
  	}
  	$template->param(loop => \@loop);

Index: categoryitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/categoryitem.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** categoryitem.pl	5 Apr 2003 00:51:57 -0000	1.6
--- categoryitem.pl	5 Apr 2003 03:35:09 -0000	1.7
***************
*** 184,187 ****
--- 184,188 ----
          my @loop;
          my ($count,$results)=StringSearch($env,$searchfield,'web');
+ 	my $toggle = 'white';
          for (my $i=0; $i < $count; $i++){
                  my %row = (categorycode => $results->[$i]{'categorycode'},
***************
*** 195,200 ****
                                  overduenoticerequired => $results->[$i]{'overduenoticerequired'},
                                  issuelimit => $results->[$i]{'issuelimit'},
!                                 reservefee => $results->[$i]{'reservefee'} );
                  push @loop, \%row;
          }
          $template->param(loop => \@loop);
--- 196,211 ----
                                  overduenoticerequired => $results->[$i]{'overduenoticerequired'},
                                  issuelimit => $results->[$i]{'issuelimit'},
!                                 reservefee => $results->[$i]{'reservefee'},
! 				toggle = $toggle );
                  push @loop, \%row;
+                 if ( $toggle eq 'white' )
+                 {
+                         $toggle = '#ffffcc';
+                 }
+                 else
+                 {
+                         $toggle = 'white';
+                 }
+ 
          }
          $template->param(loop => \@loop);

Index: currency.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/currency.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** currency.pl	5 Apr 2003 00:12:43 -0000	1.6
--- currency.pl	5 Apr 2003 03:35:09 -0000	1.7
***************
*** 158,165 ****
  	my ($count,$results)=StringSearch($env,$searchfield,'web');
  	my @loop;
  	for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
  		my %row = ( currency => $results->[$i]{'currency'},
! 			    rate => $results->[$i]{'rate'});
  		push @loop, \%row;
  	}
  	$template->param(loop => \@loop);
--- 158,176 ----
  	my ($count,$results)=StringSearch($env,$searchfield,'web');
  	my @loop;
+ 	my $toggle = 'white';
  	for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
  		my %row = ( currency => $results->[$i]{'currency'},
! 			    rate => $results->[$i]{'rate'},
! 			    toggle => $toggle);
  		push @loop, \%row;
+ 
+                 if ( $toggle eq 'white' )
+                 {
+                         $toggle = '#ffffcc';
+                 }
+                 else
+                 {
+                         $toggle = 'white';
+                 }
  	}
  	$template->param(loop => \@loop);

Index: printers.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/printers.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** printers.pl	4 Apr 2003 23:38:44 -0000	1.7
--- printers.pl	5 Apr 2003 03:35:09 -0000	1.8
***************
*** 158,163 ****
  		my %row = ( printername => $results->[$i]{'printername'},
  			    printqueue  => $results->[$i]{'printqueue'},
! 			    printtype   => $results->[$i]{'printtype'});
  		push @loop, \%row;
  	}
  	
--- 158,173 ----
  		my %row = ( printername => $results->[$i]{'printername'},
  			    printqueue  => $results->[$i]{'printqueue'},
! 			    printtype   => $results->[$i]{'printtype'},
! 			    toggle      => $toggle);
  		push @loop, \%row;
+ 
+                 if ( $toggle eq 'white' )
+                 {
+                         $toggle = '#ffffcc';
+                 }
+                 else
+                 {
+                         $toggle = 'white';
+                 }
  	}
  	

Index: stopwords.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/stopwords.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** stopwords.pl	5 Apr 2003 00:35:37 -0000	1.8
--- stopwords.pl	5 Apr 2003 03:35:09 -0000	1.9
***************
*** 144,150 ****
  	my ($count,$results)=StringSearch($env,$searchfield,'web');
  	my @loop;
  	for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
! 		my %row = (word => $results->[$i]{'word'});
  		push @loop, \%row;
  	}
  	$template->param(loop => \@loop);
--- 144,161 ----
  	my ($count,$results)=StringSearch($env,$searchfield,'web');
  	my @loop;
+ 	my $toggle = 'white';
  	for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
! 		my %row = (word => $results->[$i]{'word'},
! 			   toggle => $toggle);
  		push @loop, \%row;
+ 
+                 if ( $toggle eq 'white' )
+                 {
+                         $toggle = '#ffffcc';
+                 }
+                 else
+                 {
+                         $toggle = 'white';
+                 }
  	}
  	$template->param(loop => \@loop);

Index: z3950servers.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/z3950servers.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** z3950servers.pl	5 Apr 2003 01:36:06 -0000	1.5
--- z3950servers.pl	5 Apr 2003 03:35:09 -0000	1.6
***************
*** 166,169 ****
--- 166,170 ----
  	my ($count,$results)=StringSearch($env,$searchfield,'web');
  	my @loop;
+ 	my $toggle = 'white';
  	for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
  			
***************
*** 177,182 ****
  			password => ($results->[$i]{'password'}) ? ('#######') : ('&nbsp;'),
  			checked => $results->[$i]{'checked'},
! 			rank => $results->[$i]{'rank'});
  		push @loop, \%row;
  	}
  	$template->param(loop => \@loop);
--- 178,194 ----
  			password => ($results->[$i]{'password'}) ? ('#######') : ('&nbsp;'),
  			checked => $results->[$i]{'checked'},
! 			rank => $results->[$i]{'rank'},
! 			toggle => $toggle);
  		push @loop, \%row;
+ 
+                 if ( $toggle eq 'white' )
+                 {
+                         $toggle = '#ffffcc';
+                 }
+                 else
+                 {
+                         $toggle = 'white';
+                 }
+ 
  	}
  	$template->param(loop => \@loop);