gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 38299: [DO NOT PUSH] Test dbrev 

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Emily Lamancusa 2024-11-07 10:20:01 -05:00 committed by Katrin Fischer
parent 70f001d8b8
commit 0be29ed976
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
installer/data/mysql/atomicupdate/dbrev_test.pl Executable file
View File

@ -0,0 +1,44 @@
use Modern::Perl;
use Koha::Installer::Output qw(say_warning say_failure say_success say_info);
return {
bug_number => "BUG_NUMBER",
description => "Test dbrev",
up => sub {
my ($args) = @_;
my ( $dbh, $out ) = @$args{qw(dbh out)};
say_success($out, "Success!");
say_info($out, "Info...");
say_warning($out, "Warning!!");
say_failure($out, "Failure :(");
# Do you stuffs here
$dbh->do(q{CREATE TABLE borrowers});
# Print useful stuff here
# tables
say $out "Added new table 'XXX'";
say $out "Added column 'XXX.YYY'";
# sysprefs
say $out "Added new system preference 'XXX'";
say $out "Updated system preference 'XXX'";
say $out "Removed system preference 'XXX'";
# permissions
say $out "Added new permission 'XXX'";
# letters
say $out "Added new letter 'XXX' (TRANSPORT)";
# HTML customizations
say $out "Added 'XXX' HTML customization";
# Other information
say_failure( $out, "Use red for danger/failure" );
say_success( $out, "Use green for success" );
say_warning( $out, "Use yellow for warning/a call to action" );
say_info( $out, "Use blue for further information" );
},
};