diff options
Diffstat (limited to 'lib/Multi')
| -rw-r--r-- | lib/Multi/Image.pm | 2 | ||||
| -rw-r--r-- | lib/Multi/RG.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/Multi/Image.pm b/lib/Multi/Image.pm index f9ccd83e..078174a1 100644 --- a/lib/Multi/Image.pm +++ b/lib/Multi/Image.pm @@ -56,7 +56,7 @@ sub cmd_coverimage { sub format { # imgid $_[HEAP]{imgid} = $_[ARG0]; - $_[HEAP]{img} = sprintf '%s/%02d/%d.jpg', $_[HEAP]{imgpath}, $_[ARG0]%50, $_[ARG0]; + $_[HEAP]{img} = sprintf '%s/%02d/%d.jpg', $_[HEAP]{imgpath}, $_[ARG0]%100, $_[ARG0]; $_[KERNEL]->call(core => log => 3, 'Processing image %d', $_[HEAP]{imgid}); $_[HEAP]{im} = Image::Magick->new; diff --git a/lib/Multi/RG.pm b/lib/Multi/RG.pm index bf0ad9f6..4931ef96 100644 --- a/lib/Multi/RG.pm +++ b/lib/Multi/RG.pm @@ -198,8 +198,8 @@ sub buildgraph { my $gid = $Multi::SQL->prepare("SELECT nextval('relgraph_seq')"); $gid->execute; $gid = $gid->fetchrow_arrayref->[0]; - my $gif = sprintf '%s/%02d/%d.gif', $_[HEAP]{imgdir}, $gid % 50, $gid; - my $cmap = sprintf '%s/%02d/%d.cmap', $_[HEAP]{datdir}, $gid % 50, $gid; + my $gif = sprintf '%s/%02d/%d.gif', $_[HEAP]{imgdir}, $gid % 100, $gid; + my $cmap = sprintf '%s/%02d/%d.cmap', $_[HEAP]{datdir}, $gid % 100, $gid; # generate the graph $_[HEAP]{gv}->as_gif($gif); |