); # and tagsubfield='$tagsubfield'");
$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{defaultvalue} = $data->{defaultvalue};
$row_data{tab} = CGI::scrolling_list(
-name => 'tab',
-label => ''
);
$row_data{row} = $i;
- $row_data{toggle} = $toggle;
$row_data{link} = CGI::escapeHTML( $data->{'link'} );
push( @loop_data, \%row_data );
$i++;
-multiple => 0,
);
$row_data{link} = CGI::escapeHTML( $data->{'link'} );
- $row_data{toggle} = $toggle;
$row_data{row} = $j;
push( @loop_data, \%row_data );
- use Data::Dumper;
}
$template->param( 'use-heading-flags-p' => 1 );
$template->param( 'heading-edit-subfields-p' => 1 );
}
else { # DEFAULT
my ( $count, $results ) = string_search( $tagfield, $frameworkcode );
- my $toggle = 1;
my @loop_data = ();
for (
my $i = $offset ;
$i++
)
{
- if ( $toggle eq 1 ) {
- $toggle = 0;
- }
- else {
- $toggle = 1;
- }
my %row_data; # get a fresh hash for the row data
$row_data{tagfield} = $results->[$i]{'tagfield'};
$row_data{tagsubfield} = $results->[$i]{'tagsubfield'};
"$script_name?op=delete_confirm&tagfield=$tagfield&tagsubfield="
. $results->[$i]{'tagsubfield'}
. "&frameworkcode=$frameworkcode";
- $row_data{toggle} = $toggle;
if ( $row_data{tab} eq -1 ) {
$row_data{subfield_ignored} = 1;