jake/dbpc
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

aded a pop function to the pages to help prevent short or blank pages.

Browse Source
This commit is contained in:
Jacob Haddon 2024-11-09 18:34:35 -05:00
parent f918b39f5a
commit 86f6396bdb
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
books.pl
View File

@ -206,6 +206,9 @@ for ( my $l; $l < $number_of_pages; $l++){
# pull out a random chapter from that book
my $chapter_select = int(rand($chapter_list));
# pop off the last page, as it may be blank, or short
pop @{$books[$book_list]{'pages'}[$chapter_select]};
# get the number of pages in the chapter
my $page_list = @{$books[$book_list]{'pages'}[$chapter_select]};
# pull out a random page from the chapter