Missing fonts report

Question

Dear All,
Please see the code below, I am trying to generate package report. But it is not getting generated.
Please give me some suggestion what to do.
set source_folder to choose folder with prompt "Select folder containing InDesign Documents"
tell application "Finder" to set item_list to every item of source_folder
repeat with this_item in item_list
set doc_kind to get kind of this_item
if doc_kind contains "Indesign" then
tell application "Adobe InDesign CS2"
set user interaction level of script preferences to never interact
open this_item
set DocName to the name of document 1
tell document 1
set myfontprop to properties of every font
set Font_List to {}
repeat with i from 1 to the number of myfontprop
set this_font_item to item i of myfontprop
set myfontname to name of this_font_item as string
set fontstatus to status of this_font_item as string
set Font_List to Font_List & fontstatus
end repeat
if Font_List contains "not available" then
my error_report(source_folder, DocName)
else
close document 1 saving no
end if
end tell
end tell
end if
end repeat
on error_report(source_folder, DocName)
tell application "Finder"
try
set error_folder to (source_folder as string) & DocName & "_ErrorFolder" as alias
on error
tell application "Finder"
make new folder at source_folder with properties {name:DocName & "_ErrorFolder"}
set error_folder to (source_folder as string) & DocName & "_ErrorFolder" as alias
end tell
end try
end tell
tell application "Adobe InDesign CS2"
tell document 1
package to error_folder copying fonts no copying linked graphics no copying profiles no updating graphics no ignore preflight errors no creating report yes including hidden layers no
-- close saving no
end tell
end tell
tell application "Finder"
--try
set text_file to (error_folder as string) & "Instruction.txt" as alias
set the name of text_file to DocName & ".txt"
--end try
end tell
end error_report
thanks in advance....

Answer 1

On 2/8/08 7:39 PM, "rajeevkumar" <[email protected]> wrote:<br /><br />> package to error_folder copying fonts no copying linked graphics no copying<br />> profiles no updating graphics no ignore preflight errors no creating report<br />> yes including hidden layers no<br /><br />All those parameters take boolean values, which in AppleScript means true or<br />false, not yes or no. So you need:<br /><br />    package to error_folder copying fonts false copying linked graphics<br />false copying profiles false updating graphics false ignore preflight errors<br />false creating report true including hidden layers false<br /><br />which, when you compile, will change to:<br /><br />    package to error_folder with creating report without copying fonts,<br />copying linked graphics, copying profiles, updating graphics, ignore<br />preflight errors and including hidden layers<br /><br /><br />-- <br />Shane Stanley <[email protected]>