installer/data/mysql/atomicupdate/0004-Add_Some_Missing_fields_to_suggestions.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4 use C4::Context;
   5 my $dbh=C4::Context->dbh;
   6 $dbh->do(<<SUGGESTIONS);
   7 ALTER table suggestions
   8     ADD budgetid INT(11),
   9     ADD branchcode VARCHAR(10) default NULL,
  10     ADD acceptedby INT(11) default NULL,
  11     ADD acceptedon date default NULL,
  12     ADD suggestedon date default NULL,
  13     ADD managedon date default NULL,
  14     ADD rejectedby INT(11) default NULL,
  15     ADD rejectedon date default NULL,
  16     ADD collectiontitle text default NULL,
  17     ADD itemtype VARCHAR(30) default NULL,
  18     ADD sort1 VARCHAR(80) default NULL,
  19     ADD sort2 VARCHAR(80) default NULL
  20     ;
  21 SUGGESTIONS
  22 print "Add some fields to suggestions";