X-Git-Url: http://Server1/repobrowser/?a=blobdiff_plain;f=cgi-files%2FModules%2FDatabase%2FMySQL5.pm;h=5c1e5d9f2f246901b8147fa2653635721ff1121b;hb=refs%2Fheads%2Fmaster;hp=62a89679bf38a68d86b5205e8d96d263f99aa7c6;hpb=78f6c5e8ed54c22b470764e2b93c42ef1f6644e8;p=kiriwrite%2F.git diff --git a/cgi-files/Modules/Database/MySQL5.pm b/cgi-files/Modules/Database/MySQL5.pm index 62a8967..5c1e5d9 100644 --- a/cgi-files/Modules/Database/MySQL5.pm +++ b/cgi-files/Modules/Database/MySQL5.pm @@ -21,7 +21,7 @@ # Define the package (perl module) name. -package Kiriwrite::Database::MySQL5; +package Modules::Database::MySQL5; # Enable strict and use warnings. @@ -35,7 +35,7 @@ use DBI qw(:sql_types); # Set the following values. -our $VERSION = "0.1.0"; +our $VERSION = "0.5.0"; my ($options, %options); my $database_handle; my $statement_handle; @@ -1683,6 +1683,7 @@ sub getpageinfo{ "PageContent" => $pagedata, "PageSettings" => $pagesettings, "PageLastModified" => $class->dateconvert($pagelastmodified), + # ADD PageLastModifiedInternal ); $page_found = 1; @@ -2533,6 +2534,7 @@ sub addfilter{ priority int(5), findsetting varchar(1024), replacesetting varchar(1024), + enabled varchar(3), notes text ) DEFAULT CHARSET=utf8') or ( $error = "FilterDatabaseError", $errorext = $database_handle->errstr, return ); $statement_handle->execute();