koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.32,1.33


From: Owen Leonard
Subject: [Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.32,1.33
Date: Thu, 20 Jan 2005 10:48:17 -0800

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26578/admin

Modified Files:
        marc_subfields_structure.pl 
Log Message:
Changing table row color toggle so that color values can be specified in the 
template instead of the script (requires update to template)

Index: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -r1.32 -r1.33
*** marc_subfields_structure.pl 3 Jan 2005 12:56:30 -0000       1.32
--- marc_subfields_structure.pl 20 Jan 2005 18:48:12 -0000      1.33
***************
*** 154,165 ****
        $sth->execute($tagfield,$frameworkcode);
        my @loop_data = ();
!       my $toggle="white";
        my $i=0;
        while ($data =$sth->fetchrow_hashref) {
                my %row_data;  # get a fresh hash for the row data
!               if ($toggle eq 'white'){
!                       $toggle="#ffffcc";
                } else {
!                       $toggle="white";
                }
                $row_data{tab} = CGI::scrolling_list(-name=>'tab',
--- 154,165 ----
        $sth->execute($tagfield,$frameworkcode);
        my @loop_data = ();
!       my $toggle=1;
        my $i=0;
        while ($data =$sth->fetchrow_hashref) {
                my %row_data;  # get a fresh hash for the row data
!               if ($toggle eq 1){
!                       $toggle=0;
                } else {
!                       $toggle=1;
                }
                $row_data{tab} = CGI::scrolling_list(-name=>'tab',
***************
*** 358,368 ****
        my $env;
        my ($count,$results)=StringSearch($env,$tagfield,$frameworkcode);
!       my $toggle="white";
        my @loop_data = ();
        for (my $i=$offset; $i < 
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
!               if ($toggle eq 'white'){
!                       $toggle="#ffffcc";
                } else {
!                       $toggle="white";
                }
                my %row_data;  # get a fresh hash for the row data
--- 358,368 ----
        my $env;
        my ($count,$results)=StringSearch($env,$tagfield,$frameworkcode);
!       my $toggle=1;
        my @loop_data = ();
        for (my $i=$offset; $i < 
($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
!               if ($toggle eq 1){
!                       $toggle=0;
                } else {
!                       $toggle=1;
                }
                my %row_data;  # get a fresh hash for the row data
***************
*** 382,386 ****
                $row_data{link} = $results->[$i]{'link'};
                $row_data{delete} = 
"$script_name?op=delete_confirm&amp;tagfield=$tagfield&amp;tagsubfield=".$results->[$i]{'tagsubfield'}."&frameworkcode=$frameworkcode";
!               $row_data{bgcolor} = $toggle;
                if ($row_data{tab} eq -1) {
                        $row_data{subfield_ignored} = 1;
--- 382,386 ----
                $row_data{link} = $results->[$i]{'link'};
                $row_data{delete} = 
"$script_name?op=delete_confirm&amp;tagfield=$tagfield&amp;tagsubfield=".$results->[$i]{'tagsubfield'}."&frameworkcode=$frameworkcode";
!               $row_data{toggle} = $toggle;
                if ($row_data{tab} eq -1) {
                        $row_data{subfield_ignored} = 1;




reply via email to

[Prev in Thread] Current Thread [Next in Thread]