my @all_scripts = map { $_->{applied} = 0; $_ } $self->sort_dbupdate_controls;
my $query = qq|SELECT tag FROM | . $self->{schema} . qq|schema_info|;
my @all_scripts = map { $_->{applied} = 0; $_ } $self->sort_dbupdate_controls;
my $query = qq|SELECT tag FROM | . $self->{schema} . qq|schema_info|;
sub apply_admin_dbupgrade_scripts {
my ($self, $called_from_admin) = @_;
sub apply_admin_dbupgrade_scripts {
my ($self, $called_from_admin) = @_;
my $db_charset = $main::dbcharset || Common::DEFAULT_CHARSET;
$self->{form}->{login} ||= 'admin';
map { $_->{description} = SL::Iconv::convert($_->{charset}, $db_charset, $_->{description}) } values %{ $self->{all_controls} };
my $db_charset = $main::dbcharset || Common::DEFAULT_CHARSET;
$self->{form}->{login} ||= 'admin';
map { $_->{description} = SL::Iconv::convert($_->{charset}, $db_charset, $_->{description}) } values %{ $self->{all_controls} };
print $self->{form}->parse_html_template("dbupgrade/header", { dbname => $::auth->{DB_config}->{db} });
foreach my $control (@unapplied_scripts) {
print $self->{form}->parse_html_template("dbupgrade/header", { dbname => $::auth->{DB_config}->{db} });
foreach my $control (@unapplied_scripts) {
$self->process_file($dbh, "sql/$self->{dbdriver}-upgrade2-auth/$control->{file}", $control, $db_charset);
}
$self->process_file($dbh, "sql/$self->{dbdriver}-upgrade2-auth/$control->{file}", $control, $db_charset);
}