diff options
author | Zeus Panchenko <zeus@camb.us> | 2008-06-18 09:09:29 +0000 |
---|---|---|
committer | Zeus Panchenko <zeus@camb.us> | 2008-06-18 09:09:29 +0000 |
commit | 7f2d5d062182d9ee48c978fc1804db9ee2975da0 (patch) | |
tree | 17fa2584f190cd123833ade3b0d023afc35c7f89 | |
parent | 2c5ddda4c98dadfd2ea7ac3561adfb224311dc2e (diff) | |
download | renrot-7f2d5d062182d9ee48c978fc1804db9ee2975da0.tar.gz renrot-7f2d5d062182d9ee48c978fc1804db9ee2975da0.tar.bz2 |
function name thmbgen changed to thm_gen_stub
git-svn-id: file:///svnroot/renrot/trunk@532 fe2816f4-e837-0410-b10a-f608c9d244a1
-rwxr-xr-x | renrot | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1277,7 +1277,7 @@ sub contactSheetGenerator { } elsif ($contactSheetThm == 0 and not defined ${$$info{ThumbnailImage}}) { procmsg ("WARNING: $filefull has no ThumbnailImage tag. Stub thumbnail image'll be used.\n"); if (not -f $workdir . "thmbstub.jpg") { - thmbgen ($workdir, "thmbstub.jpg"); + thm_gen_stub ($workdir, "thmbstub.jpg"); procmsg ("Stub thumbnail image've been created.\n"); } copy ($workdir . "thmbstub.jpg", $workdir . $file); @@ -1514,15 +1514,15 @@ sub contactSheetGenerator { } ######################################################################################## -# Usage : thmbgen($wrkdir, $thmbname); +# Usage : thm_gen_stub($wrkdir, $thmbname); # Purpose : thumbnail stub generator # Returns : none # Parameters : $wrkdir str - the directory, thumbnailes are kept # : $thmbname str - thumbnail image name # Throws : no exceptions -# Comments : sie of the generated thumbnail is fixed and is 160x120 +# Comments : none # See Also : contactSheetGenerator(); -sub thmbgen { +sub thm_gen_stub { my $workdir = shift; my $thmbname = shift; $thmbname = $workdir . $thmbname; |