installer/data/mysql/atomicupdate/bug_12224-add_CHECKINSLIP_notice.perl

   1 $DBversion = 'XXX';
   2 if( CheckVersion( $DBversion ) ) {
   3     $dbh->do(q{ INSERT IGNORE INTO letter (module, code, branchcode, name, is_html, title, content, message_transport_type) VALUES
   4         ('circulation','CHECKINSLIP','','Checkin slip',1,'Checkin slip',
   5 "<h3>[% branch.branchname %]</h3>
   6 Checked in items for [% borrower.title %] [% borrower.firstname %] [% borrower.initials %] [% borrower.surname %] <br />
   7 ([% borrower.cardnumber %]) <br />
   8
   9 [% today %]<br />
  10
  11 <h4>Checked in today</h4>
  12 [% FOREACH checkin IN old_checkouts %]
  13 [% SET item = checkin.item %]
  14 <p>
  15 [% item.biblio.title %] <br />
  16 Barcode: [% item.barcode %] <br />
  17 </p>
  18 [% END %]",
  19         'print')
  20     });
  21
  22     NewVersion( $DBversion, 12224, "Add CHECKINSLIP notice" );
  23 }