|
Lines 32-38
use vars qw(@ISA @EXPORT);
Link Here
|
| 32 |
BEGIN { |
32 |
BEGIN { |
| 33 |
require Exporter; |
33 |
require Exporter; |
| 34 |
@ISA = qw( Exporter ); |
34 |
@ISA = qw( Exporter ); |
| 35 |
push @EXPORT, qw( primary_key_exists foreign_key_exists index_exists column_exists TableExists TransformToNum CheckVersion sanitize_zero_date update get_db_entries ); |
35 |
push @EXPORT, qw( primary_key_exists foreign_key_exists index_exists column_exists TableExists TransformToNum CheckVersion NewVersion SetVersion sanitize_zero_date update get_db_entries ); |
| 36 |
}; |
36 |
}; |
| 37 |
|
37 |
|
| 38 |
=head1 NAME |
38 |
=head1 NAME |
|
Lines 763-769
sub output_version {
Link Here
|
| 763 |
my $DBversion = $db_entry->{version}; |
763 |
my $DBversion = $db_entry->{version}; |
| 764 |
my $bug_number = $db_entry->{bug_number}; |
764 |
my $bug_number = $db_entry->{bug_number}; |
| 765 |
my $time = $db_entry->{time}; |
765 |
my $time = $db_entry->{time}; |
| 766 |
my $done = $db_entry->{done} ? "done" : "failed"; |
766 |
my $done = defined $db_entry->{done} |
|
|
767 |
? $db_entry->{done} |
| 768 |
? " done" |
| 769 |
: " failed" |
| 770 |
: ""; # For old versions, we don't know if we succeed or failed |
| 767 |
|
771 |
|
| 768 |
unless ( ref($descriptions) ) { |
772 |
unless ( ref($descriptions) ) { |
| 769 |
$descriptions = [ $descriptions ]; |
773 |
$descriptions = [ $descriptions ]; |
|
Lines 775-791
sub output_version {
Link Here
|
| 775 |
if ( @$descriptions > 1 ) { |
779 |
if ( @$descriptions > 1 ) { |
| 776 |
if ( $first ) { |
780 |
if ( $first ) { |
| 777 |
unless ( $bug_number ) { |
781 |
unless ( $bug_number ) { |
| 778 |
push @output, sprintf "Upgrade to %s %s [%s]:", $DBversion, $done, $time; |
782 |
push @output, sprintf "Upgrade to %s%s [%s]:", $DBversion, $done, $time; |
| 779 |
} else { |
783 |
} else { |
| 780 |
push @output, sprintf "Upgrade to %s %s [%s]: Bug %5s", $DBversion, $done, $time, $bug_number; |
784 |
push @output, sprintf "Upgrade to %s%s [%s]: Bug %5s", $DBversion, $done, $time, $bug_number; |
| 781 |
} |
785 |
} |
| 782 |
} |
786 |
} |
| 783 |
push @output, sprintf "\t\t\t\t\t\t - %s", $description; |
787 |
push @output, sprintf "\t\t\t\t\t\t - %s", $description; |
| 784 |
} else { |
788 |
} else { |
| 785 |
unless ( $bug_number ) { |
789 |
unless ( $bug_number ) { |
| 786 |
push @output, sprintf "Upgrade to %s %s [%s]: %s", $DBversion, $done, $time, $description; |
790 |
push @output, sprintf "Upgrade to %s%s [%s]: %s", $DBversion, $done, $time, $description; |
| 787 |
} else { |
791 |
} else { |
| 788 |
push @output, sprintf "Upgrade to %s %s [%s]: Bug %5s - %s", $DBversion, $done, $time, $bug_number, $description; |
792 |
push @output, sprintf "Upgrade to %s%s [%s]: Bug %5s - %s", $DBversion, $done, $time, $bug_number, $description; |
| 789 |
} |
793 |
} |
| 790 |
} |
794 |
} |
| 791 |
$first = 0; |
795 |
$first = 0; |
|
Lines 861-868
sub SetVersion {
Link Here
|
| 861 |
C4::Context::clear_syspref_cache(); # invalidate cached preferences |
865 |
C4::Context::clear_syspref_cache(); # invalidate cached preferences |
| 862 |
} |
866 |
} |
| 863 |
|
867 |
|
|
|
868 |
# DEPRECATED Don't use it! |
| 869 |
# Used for compatibility with older versions (from updatedatabase.pl) |
| 864 |
sub NewVersion { |
870 |
sub NewVersion { |
| 865 |
# void FIXME replace me |
871 |
my ( $DBversion, $bug_number, $descriptions ) = @_; |
|
|
872 |
|
| 873 |
SetVersion($DBversion); |
| 874 |
|
| 875 |
unless ( ref($descriptions) ) { |
| 876 |
$descriptions = [ $descriptions ]; |
| 877 |
} |
| 878 |
|
| 879 |
my $output = output_version( { |
| 880 |
bug_number => $bug_number, |
| 881 |
description => $descriptions, |
| 882 |
version => $DBversion, |
| 883 |
time => POSIX::strftime( "%H:%M:%S", localtime ), |
| 884 |
}); |
| 885 |
|
| 886 |
say join "\n", @$output; |
| 887 |
|
| 866 |
} |
888 |
} |
| 867 |
|
889 |
|
| 868 |
=head2 CheckVersion |
890 |
=head2 CheckVersion |