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 suggestedby INT(11) default NULL,
  13     ADD suggestedon date default NULL,
  14     ADD managedby INT(11) default NULL,
  15     ADD managedon date default NULL,
  16     ADD rejectedby INT(11) default NULL,
  17     ADD rejectedon date default NULL,
  18     ADD collectiontitle text default NULL,
  19     ADD itemtype VARCHAR(30) default NULL,
  20     ADD biblionumber INT(11) default NULL,
  21     ADD sort1 VARCHAR(80) default NULL,
  22     ADD sort2 VARCHAR(80) default NULL
  23     ;
  24 SUGGESTIONS
  25 print "Add some fields to suggestions";