Compare commits

...

2 Commits

Author SHA1 Message Date
85d43851d1
Fix substring initial offset value
Remove only the leading comma character.
2024-10-08 21:49:58 -04:00
8b277607cf
Fix guard for unitialized variable
The original guard was preventing an id with value of
zero from being processed correctly.
2024-10-08 17:37:48 -04:00

View File

@ -290,11 +290,8 @@ sub parse_page_arg {
# Split page name from page ids if available. # Split page name from page ids if available.
my ($page, $ids) = split(/=/, $page_arg); my ($page, $ids) = split(/=/, $page_arg);
my @ids; my @ids;
$ids = "" unless defined $ids;
if(!$ids) {
$ids = "";
}
else {
# Parse the page ids and push them onto @ids array # Parse the page ids and push them onto @ids array
my @ids_by_comma = split(/\,/, $ids); my @ids_by_comma = split(/\,/, $ids);
foreach my $id_by_comma (@ids_by_comma) { foreach my $id_by_comma (@ids_by_comma) {
@ -309,7 +306,7 @@ sub parse_page_arg {
verbose (1, "\nWarning: Page $page id range $id_by_comma could not be parsed."); verbose (1, "\nWarning: Page $page id range $id_by_comma could not be parsed.");
} }
} }
}
return ('page' => $page, 'ids' => [@ids]); return ('page' => $page, 'ids' => [@ids]);
} }
@ -326,7 +323,7 @@ sub get_ids_from_db {
|| die $tt->error(), "\n"; || die $tt->error(), "\n";
# Starts with a newline and comma # Starts with a newline and comma
return split(/,/, substr($selected_ids, 2)); return split(/,/, substr($selected_ids, 1));
} }
sub get_filename { sub get_filename {