Attachment #101963 for bug #18177

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




$DBversion = 'XXX'; # will be replaced by the RM
if( CheckVersion( $DBversion ) ) {

    for my $column ( qw(othersupplier booksellerfax booksellerurl bookselleremail currency) ) {
        if( column_exists( 'aqbooksellers', $column ) ) {
            $dbh->do(qq|
                ALTER TABLE aqbooksellers
                DROP COLUMN $column
            |);
        }
    }

    SetVersion( $DBversion );
    print "Upgrade to $DBversion done (Bug 18177 - Remove some unused columns from aqbooksellers)\n";
}




  `address3` LONGTEXT, -- third line of vendor physical address
  `address4` LONGTEXT, -- fourth line of vendor physical address
  `phone` varchar(30) default NULL, -- vendor phone number
  `accountnumber` LONGTEXT, -- vendor account number
  `othersupplier` LONGTEXT,  -- unused in Koha
  `currency` varchar(10) NOT NULL default '', -- unused in Koha
  `booksellerfax` LONGTEXT, -- vendor fax number
  `notes` LONGTEXT, -- order notes
  `bookselleremail` LONGTEXT, -- vendor email
  `booksellerurl` LONGTEXT, -- unused in Koha
  `postal` LONGTEXT, -- vendor postal address (all lines)
  `url` varchar(255) default NULL, -- vendor web address
  `active` tinyint(4) default NULL, -- is this vendor active (1 for yes, 0 for no)
- 

Return to bug 18177

Lines 2783-2795 CREATE TABLE `aqbooksellers` ( -- information about the vendors listed in acquis Link Here

(-)a/installer/data/mysql/kohastructure.sql (-7 / +1 lines)
2783	`address3` LONGTEXT, -- third line of vendor physical address	2783	`address3` LONGTEXT, -- third line of vendor physical address
2784	`address4` LONGTEXT, -- fourth line of vendor physical address	2784	`address4` LONGTEXT, -- fourth line of vendor physical address
2785	`phone` varchar(30) default NULL, -- vendor phone number	2785	`phone` varchar(30) default NULL, -- vendor phone number
2786	`accountnumber` LONGTEXT, -- unused in Koha	2786	`accountnumber` LONGTEXT, -- vendor account number
2787	`othersupplier` LONGTEXT, -- unused in Koha
2788	`currency` varchar(10) NOT NULL default '', -- unused in Koha
2789	`booksellerfax` LONGTEXT, -- vendor fax number
2790	`notes` LONGTEXT, -- order notes	2787	`notes` LONGTEXT, -- order notes
2791	`bookselleremail` LONGTEXT, -- vendor email
2792	`booksellerurl` LONGTEXT, -- unused in Koha
2793	`postal` LONGTEXT, -- vendor postal address (all lines)	2788	`postal` LONGTEXT, -- vendor postal address (all lines)
2794	`url` varchar(255) default NULL, -- vendor web address	2789	`url` varchar(255) default NULL, -- vendor web address
2795	`active` tinyint(4) default NULL, -- is this vendor active (1 for yes, 0 for no)	2790	`active` tinyint(4) default NULL, -- is this vendor active (1 for yes, 0 for no)
2796	-

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_18177.perl (+15 lines)
	1	$DBversion = 'XXX'; # will be replaced by the RM
	2	if( CheckVersion( $DBversion ) ) {
	3
	4	for my $column ( qw(othersupplier booksellerfax booksellerurl bookselleremail currency) ) {
	5	if( column_exists( 'aqbooksellers', $column ) ) {
	6	$dbh->do(qq\|
	7	ALTER TABLE aqbooksellers
	8	DROP COLUMN $column
	9	\|);
	10	}
	11	}
	12
	13	SetVersion( $DBversion );
	14	print "Upgrade to $DBversion done (Bug 18177 - Remove some unused columns from aqbooksellers)\n";
	15	}