Attachment #164834 for bug #35717

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




use Modern::Perl;

return {
    bug_number => "28844",
    description => "Link orders and suggestions",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};
        unless ( column_exists('suggestions', 'ordernumber') ) {
            $dbh->do(q{
                ALTER TABLE suggestions
                ADD COLUMN `ordernumber` int(10) DEFAULT NULL COMMENT 'links suggestion to an acquisitions order (aqorders.ordernumber)' AFTER biblionumber,
                ADD CONSTRAINT `suggestions_ordernumber` FOREIGN KEY (`ordernumber`) REFERENCES `aqorders` (`ordernumber`) ON DELETE SET NULL ON UPDATE CASCADE
            });
            say $out "Added column 'suggestions.ordernumber'";
        }
    },
};




  `place` varchar(255) DEFAULT NULL COMMENT 'publication place of the suggested item',
  `isbn` varchar(30) DEFAULT NULL COMMENT 'isbn of the suggested item',
  `biblionumber` int(11) DEFAULT NULL COMMENT 'foreign key linking the suggestion to the biblio table after the suggestion has been ordered',
  `ordernumber` int(10) DEFAULT NULL COMMENT 'foreign key linking the suggestion to the acquisitions order after the suggestion has been ordered',
  `reason` mediumtext DEFAULT NULL COMMENT 'reason for accepting or rejecting the suggestion',
  `patronreason` mediumtext DEFAULT NULL COMMENT 'reason for making the suggestion',
  `budgetid` int(11) DEFAULT NULL COMMENT 'foreign key linking the suggested budget to the aqbudgets table',

  CONSTRAINT `suggestions_ibfk_lastmodificationby` FOREIGN KEY (`lastmodificationby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,
  CONSTRAINT `suggestions_ibfk_managedby` FOREIGN KEY (`managedby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,
  CONSTRAINT `suggestions_ibfk_rejectedby` FOREIGN KEY (`rejectedby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,
  CONSTRAINT `suggestions_ibfk_suggestedby` FOREIGN KEY (`suggestedby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,
  CONSTRAINT `suggestions_ordernumber` FOREIGN KEY (`ordernumber`) REFERENCES `aqorders` (`ordernumber`) ON DELETE SET NULL ON UPDATE CASCADE
) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
/*!40101 SET character_set_client = @saved_cs_client */;

- 

Return to bug 35717

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_28844.pl (+18 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "28844",
	5	description => "Link orders and suggestions",
	6	up => sub {
	7	my ($args) = @_;
	8	my ($dbh, $out) = @$args{qw(dbh out)};
	9	unless ( column_exists('suggestions', 'ordernumber') ) {
	10	$dbh->do(q{
	11	ALTER TABLE suggestions
	12	ADD COLUMN `ordernumber` int(10) DEFAULT NULL COMMENT 'links suggestion to an acquisitions order (aqorders.ordernumber)' AFTER biblionumber,
	13	ADD CONSTRAINT `suggestions_ordernumber` FOREIGN KEY (`ordernumber`) REFERENCES `aqorders` (`ordernumber`) ON DELETE SET NULL ON UPDATE CASCADE
	14	});
	15	say $out "Added column 'suggestions.ordernumber'";
	16	}
	17	},
	18	};

Lines 6135-6140 CREATE TABLE `suggestions` ( Link Here

(-)a/installer/data/mysql/kohastructure.sql (-2 / +3 lines)
6135	`place` varchar(255) DEFAULT NULL COMMENT 'publication place of the suggested item',	6135	`place` varchar(255) DEFAULT NULL COMMENT 'publication place of the suggested item',
6136	`isbn` varchar(30) DEFAULT NULL COMMENT 'isbn of the suggested item',	6136	`isbn` varchar(30) DEFAULT NULL COMMENT 'isbn of the suggested item',
6137	`biblionumber` int(11) DEFAULT NULL COMMENT 'foreign key linking the suggestion to the biblio table after the suggestion has been ordered',	6137	`biblionumber` int(11) DEFAULT NULL COMMENT 'foreign key linking the suggestion to the biblio table after the suggestion has been ordered',
		6138	`ordernumber` int(10) DEFAULT NULL COMMENT 'foreign key linking the suggestion to the acquisitions order after the suggestion has been ordered',
6138	`reason` mediumtext DEFAULT NULL COMMENT 'reason for accepting or rejecting the suggestion',	6139	`reason` mediumtext DEFAULT NULL COMMENT 'reason for accepting or rejecting the suggestion',
6139	`patronreason` mediumtext DEFAULT NULL COMMENT 'reason for making the suggestion',	6140	`patronreason` mediumtext DEFAULT NULL COMMENT 'reason for making the suggestion',
6140	`budgetid` int(11) DEFAULT NULL COMMENT 'foreign key linking the suggested budget to the aqbudgets table',	6141	`budgetid` int(11) DEFAULT NULL COMMENT 'foreign key linking the suggested budget to the aqbudgets table',
Lines 6162-6168 CREATE TABLE `suggestions` ( Link Here
6162	CONSTRAINT `suggestions_ibfk_lastmodificationby` FOREIGN KEY (`lastmodificationby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,	6163	CONSTRAINT `suggestions_ibfk_lastmodificationby` FOREIGN KEY (`lastmodificationby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,
6163	CONSTRAINT `suggestions_ibfk_managedby` FOREIGN KEY (`managedby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,	6164	CONSTRAINT `suggestions_ibfk_managedby` FOREIGN KEY (`managedby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,
6164	CONSTRAINT `suggestions_ibfk_rejectedby` FOREIGN KEY (`rejectedby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,	6165	CONSTRAINT `suggestions_ibfk_rejectedby` FOREIGN KEY (`rejectedby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,
6165	CONSTRAINT `suggestions_ibfk_suggestedby` FOREIGN KEY (`suggestedby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE	6166	CONSTRAINT `suggestions_ibfk_suggestedby` FOREIGN KEY (`suggestedby`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE SET NULL ON UPDATE CASCADE,
		6167	CONSTRAINT `suggestions_ordernumber` FOREIGN KEY (`ordernumber`) REFERENCES `aqorders` (`ordernumber`) ON DELETE SET NULL ON UPDATE CASCADE
6166	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;	6168	) ENGINE=InnoDB DEFAULT CHARSET=utf8mb4 COLLATE=utf8mb4_unicode_ci;
6167	/!40101 SET character_set_client = @saved_cs_client /;	6169	/!40101 SET character_set_client = @saved_cs_client /;
6168		6170
6169	-