[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 => address@hidden);
--- 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 => address@hidden);

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 => address@hidden);
--- 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 => address@hidden);

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 => address@hidden);
--- 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 => address@hidden);

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 => address@hidden);
--- 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 => address@hidden);

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 => address@hidden);
--- 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 => address@hidden);