Some updates.

[kiriwrite/.git] / cgi-files / Modules / Database / SQLite.pm

diff --git a/cgi-files/Modules/Database/SQLite.pm b/cgi-files/Modules/Database/SQLite.pm
index 31d0dee..28c7cba 100644 (file)
--- a/cgi-files/Modules/Database/SQLite.pm
+++ b/cgi-files/Modules/Database/SQLite.pm
@@ -1184,6 +1184,8 @@ sub getpageinfo{
 # options      Specifies the following options in any order.                   #
 #                                                                              #
 # PageFilename Specifies the page filename to get the page information from.   #
+# Reduced      Specifies if the reduced version of the page information should #
+#              be retrieved.                                                   #
 #################################################################################
 
        $error = "";
@@ -1200,39 +1202,76 @@ sub getpageinfo{
        # Get the page from the database.
 
        my $page_filename       = $passedoptions->{"PageFilename"};
+       my $page_reduced        = $passedoptions->{"Reduced"};
 
-       $string_handle  = $database_handle->prepare('SELECT filename, pagename, pagedescription, pagesection, pagetemplate, pagedata, pagesettings, lastmodified FROM kiriwrite_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
-       $string_handle->execute();
+       if ($page_reduced eq 1){
 
-       # Check if the page exists in the database.
+               $string_handle  = $database_handle->prepare('SELECT filename, pagename, pagedescription, lastmodified FROM kiriwrite_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 
-       while (@data_page = $string_handle->fetchrow_array()){
+               $string_handle->execute();
 
-               # Get the values from the array.
+               # Check if the page exists in the database.
 
-               $pagefilename           = $data_page[0];
-               $pagename               = $data_page[1];
-               $pagedescription        = $data_page[2];
-               $pagesection            = $data_page[3];
-               $pagetemplate           = $data_page[4];
-               $pagedata               = $data_page[5];
-               $pagesettings           = $data_page[6];
-               $pagelastmodified       = $data_page[7];
+               while (@data_page = $string_handle->fetchrow_array()){
+       
+                       # Get the values from the array.
+       
+                       $pagefilename           = $data_page[0];
+                       $pagename               = $data_page[1];
+                       $pagedescription        = $data_page[2];
+                       $pagelastmodified       = $data_page[3];
+       
+                       # Put the values into the page hash.
+       
+                       %database_page = (
+                               "PageFilename"          => $pagefilename,
+                               "PageName"              => $pagename,
+                               "PageDescription"       => $pagedescription,
+                               "PageLastModified"      => $class->dateconvert($pagelastmodified),
+                       );
+       
+                       $page_found = 1;
+       
+               }
 
-               # Put the values into the page hash.
 
-               %database_page = (
-                       "PageFilename"          => $pagefilename,
-                       "PageName"              => $pagename,
-                       "PageDescription"       => $pagedescription,
-                       "PageSection"           => $pagesection,
-                       "PageTemplate"          => $pagetemplate,
-                       "PageContent"           => $pagedata,
-                       "PageSettings"          => $pagesettings,
-                       "PageLastModified"      => $class->dateconvert($pagelastmodified),
-               );
+       } else {
+               
+               $string_handle  = $database_handle->prepare('SELECT filename, pagename, pagedescription, pagesection, pagetemplate, pagedata, pagesettings, lastmodified FROM kiriwrite_database_pages WHERE filename = \'' . $class->convert($page_filename) . '\' LIMIT 1') or ( $error = "DatabaseError", $errorext = $database_handle->errstr, return );
 
-               $page_found = 1;
+               $string_handle->execute();
+
+               # Check if the page exists in the database.
+
+               while (@data_page = $string_handle->fetchrow_array()){
+       
+                       # Get the values from the array.
+       
+                       $pagefilename           = $data_page[0];
+                       $pagename               = $data_page[1];
+                       $pagedescription        = $data_page[2];
+                       $pagesection            = $data_page[3];
+                       $pagetemplate           = $data_page[4];
+                       $pagedata               = $data_page[5];
+                       $pagesettings           = $data_page[6];
+                       $pagelastmodified       = $data_page[7];
+       
+                       # Put the values into the page hash.
+       
+                       %database_page = (
+                               "PageFilename"          => $pagefilename,
+                               "PageName"              => $pagename,
+                               "PageDescription"       => $pagedescription,
+                               "PageSection"           => $pagesection,
+                               "PageTemplate"          => $pagetemplate,
+                               "PageContent"           => $pagedata,
+                               "PageSettings"          => $pagesettings,
+                               "PageLastModified"      => $class->dateconvert($pagelastmodified),
+                       );
+       
+                       $page_found = 1;
+       
+               }
 
        }
        
@@ -2609,17 +2648,17 @@ sub addtemplate{
 
                # Create a template table.
 
-       my $directory_permissions = main::kiriwrite_filepermissions(".", 1, 1, 0);
+               my $directory_permissions = main::kiriwrite_filepermissions(".", 1, 1, 0);
 
-       if ($directory_permissions eq 1){
+               if ($directory_permissions eq 1){
 
-               # The template database cannot be created because of invalid directory
-               # permissions so return an error.
+                       # The template database cannot be created because of invalid directory
+                       # permissions so return an error.
 
-               $error = "TemplateDatabaseFileUncreateable";
-               return;
+                       $error = "TemplateDatabaseFileUncreateable";
+                       return;
 
-       }
+               }
 
                $template_string_handle = $template_database_handle->prepare('create table kiriwrite_templates(
                        filename varchar(256) primary key,