Sure, no problem. Here's the edited script:
(*
You can rename this script to whatever you want
but please keep this information intact. Thanks.
"Long Description to Description" for iTunes
written by Doug Adams
dougscripts@mac.com
v1.0 oct 10, 2010
-- initial release
Get more free AppleScripts and info on writing your own
at Doug's AppleScripts for iTunes
dougscripts.com
This program is free software released "as-is"; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
Get a copy of the GNU General Public License by writing to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
or visit http://www.gnu.org/copyleft/gpl.html
*)
property my_title : "Long Description to Description"
tell application "iTunes"
set sel to selection
if sel is not {} then
set opt to (display dialog "This script will copy the contents of each selected track's \"Description\" tag to its \"Long Description\" tag." & return & return & "(The \"Description\" tag can only be 255 characters. Purchased/protected media cannot be modified.)" buttons {"Cancel", "Proceed"} default button 2 with title my_title with icon 1 giving up after 30)
if gave up of opt is true then return
repeat with thisTrack in sel
tell thisTrack to copy_description(it) of me
end repeat
else
display dialog return & "Select some tracks first..." buttons {"Cancel"} default button 1 with icon 0 giving up after 15 with title my_title
return
end if
end tell
to copy_description(t)
tell application "iTunes"
if my is_purchased(get t's location) then return
set ld to (t's description) as text
if ld is "" then return
if (length of ld) ≥ 253 then
set ld to (my list_to_text((items 1 thru -2 of (my text_to_list((text 1 thru 253 of ld), " "))), " ") & "...") as text
end if
try
tell t to set its long description to ld
end try
end tell
end copy_description
to is_purchased(loc)
set n to ""
try
set n to (do shell script "head " & quoted form of POSIX path of loc & "|strings -n 5 |grep name.|sed -e 's/name//'")
end try
return (n is not "")
end is_purchased
on text_to_list(txt, delim)
set saveD to text item delimiters
try
set text item delimiters to {delim}
set theList to every text item of txt
on error errStr number errNum
set text item delimiters to saveD
error errStr number errNum
end try
set text item delimiters to saveD
return (theList)
end text_to_list
on list_to_text(theList, delim)
set saveD to text item delimiters
try
set text item delimiters to {delim}
set txt to theList as text
on error errStr number errNum
set text item delimiters to saveD
error errStr number errNum
end try
set text item delimiters to saveD
return (txt)
end list_to_text