Lines 8012-8017
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
Link Here
|
8012 |
SetVersion($DBversion); |
8012 |
SetVersion($DBversion); |
8013 |
} |
8013 |
} |
8014 |
|
8014 |
|
|
|
8015 |
$DBversion = "3.15.00.XXX"; |
8016 |
if ( CheckVersion($DBversion) ) { |
8017 |
#insert a notice for sharing a list and accepting a share |
8018 |
$dbh->do(" |
8019 |
INSERT INTO letter (module, code, branchcode, name, is_html, title, content) |
8020 |
VALUES ( 'members', 'SHARE_INVITE', '', 'Invitation for sharing a list', '0', 'Share list <<listname>>', 'Dear patron, |
8021 |
|
8022 |
One of our patrons, <<borrowers.firstname>> <<borrowers.surname>>, invites you to share his list <<listname>> in our library catalog. |
8023 |
|
8024 |
To access this shared list, please click on the following URL or copy-and-paste it into your browser address bar. |
8025 |
|
8026 |
<<shareurl>> |
8027 |
|
8028 |
In case you are not a patron in our library or do not want to accept this invitation, please ignore this mail. Note also that this invitation expires within two weeks. |
8029 |
|
8030 |
Thank you. |
8031 |
|
8032 |
Your library.' |
8033 |
)"); |
8034 |
$dbh->do(" |
8035 |
INSERT INTO letter (module, code, branchcode, name, is_html, title, content) |
8036 |
VALUES ( 'members', 'SHARE_ACCEPT', '', 'Notification about an accepted share', '0', 'Share on list <<listname>> accepted', 'Dear patron, |
8037 |
|
8038 |
We want to inform you that <<borrowers.firstname>> <<borrowers.surname>> accepted your invitation to share your list <<listname>> in our library catalog. |
8039 |
|
8040 |
Thank you. |
8041 |
|
8042 |
Your library.' |
8043 |
)"); |
8044 |
print "Upgrade to $DBversion done (Bug 9032: Share a list)\n"; |
8045 |
SetVersion($DBversion); |
8046 |
} |
8047 |
|
8015 |
=head1 FUNCTIONS |
8048 |
=head1 FUNCTIONS |
8016 |
|
8049 |
|
8017 |
=head2 TableExists($table) |
8050 |
=head2 TableExists($table) |
8018 |
- |
|
|