X-Git-Url: http://Server1/repobrowser/?p=kiriwrite%2F.git;a=blobdiff_plain;f=cgi-files%2Fkiriwrite.cgi;h=bd59725a3bea2102446ca0d70fd0bc816f009f22;hp=85d6a2d921a18dfd0693d2bf1bdaec38e1371a03;hb=9379933d4d112578e469053a691dfbb4873384f7;hpb=1553f195cb1ca50f1409afec52b29002e03b4511

diff --git a/cgi-files/kiriwrite.cgi b/cgi-files/kiriwrite.cgi
index 85d6a2d..bd59725 100755
--- 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.