Attachment #154002 for bug #34438

View | Details | Raw Unified | Return to bug 34438
Collapse All | Expand All

Lines 441-446 data processing consent Link Here

(-)a/Koha/Schema/Result/BorrowerModification.pm (+8 lines)
441	is_nullable: 1	441	is_nullable: 1
442	size: 45	442	size: 45
443		443
		444	=head2 lang
		445
		446	data_type: 'varchar'
		447	is_nullable: 1
		448	size: 25
		449
444	useful for reporting purposes	450	useful for reporting purposes
445		451
446	=cut	452	=cut
Lines 621-626 __PACKAGE__->add_columns( Link Here
621	},	627	},
622	"primary_contact_method",	628	"primary_contact_method",
623	{ data_type => "varchar", is_nullable => 1, size => 45 },	629	{ data_type => "varchar", is_nullable => 1, size => 45 },
		630	"lang",
		631	{ data_type => "varchar", is_nullable => 1, size => 25 },
624	);	632	);
625		633
626	=head1 PRIMARY KEY	634	=head1 PRIMARY KEY




use Modern::Perl;

return {
    bug_number => "34438",
    description => "Add lang to to the borrower_modifications table",
    up => sub {
        my ($args) = @_;
        my $dbh = $args->{dbh};

        if( !column_exists( 'borrower_modifications', 'lang' ) ) {
            $dbh->do( "ALTER TABLE `borrower_modifications` ADD COLUMN `lang` VARCHAR(25) DEFAULT NULL AFTER `primary_contact_method`" );
        }
    },
}

Return to bug 34438

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_34438.pl (-1 / +14 lines)
0	-	1	use Modern::Perl;
		2
		3	return {
		4	bug_number => "34438",
		5	description => "Add lang to to the borrower_modifications table",
		6	up => sub {
		7	my ($args) = @_;
		8	my $dbh = $args->{dbh};
		9
		10	if( !column_exists( 'borrower_modifications', 'lang' ) ) {
		11	$dbh->do( "ALTER TABLE `borrower_modifications` ADD COLUMN `lang` VARCHAR(25) DEFAULT NULL AFTER `primary_contact_method`" );
		12	}
		13	},
		14	}