Some updates.

[kiriwrite/.git] / cgi-files / kiriwrite.cgi

diff --git a/cgi-files/kiriwrite.cgi b/cgi-files/kiriwrite.cgi
index 85d6a2d..bd59725 100755 (executable)
--- a/cgi-files/kiriwrite.cgi
+++ b/cgi-files/kiriwrite.cgi
@@ -4649,7 +4649,7 @@ sub kiriwrite_page_list{
        } else {
 
                my %database_info;
-               my %template_info;
+               my %page_info;
                my @database_pages;
                my $pagemultioptions    = "";
                my $db_name             = "";
@@ -4665,7 +4665,7 @@ sub kiriwrite_page_list{
                my $db_file_notblank    = 0;
 
                tie(%database_info, 'Tie::IxHash');
-               tie(%template_info, 'Tie::IxHash');
+               tie(%page_info, 'Tie::IxHash');
 
                # The database_file variable is not blank, so print out a list of pages from
                # the selected database.
@@ -4792,7 +4792,7 @@ sub kiriwrite_page_list{
 
                        foreach $page_filename (@database_pages){
 
-                               %template_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page_filename });
+                               %page_info = $kiriwrite_dbmodule->getpageinfo({ PageFilename => $page_filename, Reduced => 1 });
 
                                # Check if any errors have occured.
 
@@ -4813,10 +4813,10 @@ sub kiriwrite_page_list{
 
                                $page_count++;
 
-                               $page_filename          = $template_info{"PageFilename"};
-                               $page_name              = $template_info{"PageName"};
-                               $page_description       = $template_info{"PageDescription"};
-                               $page_modified          = $template_info{"PageLastModified"};
+                               $page_filename          = $page_info{"PageFilename"};
+                               $page_name              = $page_info{"PageName"};
+                               $page_description       = $page_info{"PageDescription"};
+                               $page_modified          = $page_info{"PageLastModified"};
 
                                # Set the table cell style.