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 |