set primary page

bin/autodoc_process.pl

@@ -18,6 +18,7 @@ my $queuedir    = $conf->{path}{global}.'/'.$conf->{path}{queue};
 my $originaldir = $conf->{path}{global}.'/'.$conf->{path}{original};
 
 my %langid;
+my %primary;
 my $q = sqlquery($dbh, "SELECT id,short FROM lang");
 while(my($id,$short)=$q->fetchrow_array()) { $langid{$short}=$id; }
 
@@ -51,6 +52,12 @@ foreach my $file ( readdir(Q) ) {
 				print "new page id $pageid\n";
 				update_page_status($pageid, 'inprogress');
 
+				if ( !exists $primary{$docid} ) {
+					$primary{$docid}=undef;
+					sqlquery($dbh, "CALL set_primary_page(?)",$pageid);
+				}
+
+
 				print "create original page jpeg $pageid.jpeg";
 				system(sprintf("pdftoppm -f %s -l %s -r 300 -jpeg -singlefile %s/%s %s/%s", $page+1, $page+1, $queuedir, $file, $originaldir, $pageid));
 				system(sprintf("mv %s/%s.jpg %s/%s.jpeg",