Attachment #100873 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 2764-2776 CREATE TABLE `aqbooksellers` ( -- information about the vendors listed in acquis Link Here

(-)a/installer/data/mysql/kohastructure.sql (-7 / +1 lines)
2764	`address3` LONGTEXT, -- third line of vendor physical address	2764	`address3` LONGTEXT, -- third line of vendor physical address
2765	`address4` LONGTEXT, -- fourth line of vendor physical address	2765	`address4` LONGTEXT, -- fourth line of vendor physical address
2766	`phone` varchar(30) default NULL, -- vendor phone number	2766	`phone` varchar(30) default NULL, -- vendor phone number
2767	`accountnumber` LONGTEXT, -- unused in Koha	2767	`accountnumber` LONGTEXT, -- vendor account number
2768	`othersupplier` LONGTEXT, -- unused in Koha
2769	`currency` varchar(10) NOT NULL default '', -- unused in Koha
2770	`booksellerfax` LONGTEXT, -- vendor fax number
2771	`notes` LONGTEXT, -- order notes	2768	`notes` LONGTEXT, -- order notes
2772	`bookselleremail` LONGTEXT, -- vendor email
2773	`booksellerurl` LONGTEXT, -- unused in Koha
2774	`postal` LONGTEXT, -- vendor postal address (all lines)	2769	`postal` LONGTEXT, -- vendor postal address (all lines)
2775	`url` varchar(255) default NULL, -- vendor web address	2770	`url` varchar(255) default NULL, -- vendor web address
2776	`active` tinyint(4) default NULL, -- is this vendor active (1 for yes, 0 for no)	2771	`active` tinyint(4) default NULL, -- is this vendor active (1 for yes, 0 for no)
2777	-

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	}