; $VER: Install Opus5.65 Spanish (29.08.97)
; Script to install the Spanish catalog translation for Opus 5.65.
; Adapted Dr Greg Perry's Norsk version

(set #install-msg
(cat 
     "Localización española del Directory Opus 5.65\n\n"
     "DOpus 5.65  ©1997 Jonathan Potter & GP Software\n"
     "Traducción de Santiago Hernández Blasco\n\n"
     " Para cualquier sugerencia o corrección de la traducción\n"
     "envíe un e-mail a:\n"
     "a11315803@abonados.cplus.es    Santiniki@geocities.com"
))

(message #install-msg)

;=============================================================================
; check if Directory Opus 5 is already installed

(if (not (exists "DOpus5:DirectoryOpus" (noreq)))
    (abort "Primero instalar Directory Opus 5.65")
)

(set @default-dest "")

;=============================================================================
; install catalogs

(copyfiles
   (source "Catalogs")
   (dest "DOpus5:Catalogs")
   (pattern "#?")
)

;=============================================================================
; install Spanish version of buttons banks

(copyfiles
   (source "Buttons")
   (dest "DOpus5:Buttons")
   (pattern "#?")
)


(if
   (askbool
      (prompt "La versión española del menú lister pop-up "
              "está disponible.\n\n"
              "¿Quiere instalarle y renombrar el anterior como\n"
              "'lister menu_old'?"
      )
      (help "Instala la versión española del lister pop-up standard ")
   )
   (
      (rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
      (copyfiles
         (source "DOpus5:Buttons/lister menu_SP")
         (dest "DOpus5:Buttons")
         (newname "lister menu")
      )
   )
)

(exit)