; $VER: Install Opus5 Magellan Norsk (26.6.97)
; Script to install the Norsk catalog translation for Opus 5.61 Magellan.
; Adapted from Edmund Vermeulen's Dutch version
; by Dr Greg Perry (GPSoftware)
; Again adapted by Eirik Bogsnes for Magellan norsk version

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

(if (not (exists "DOpus5:DirectoryOpus" (noreq)))
    (abort "Directory Opus 5 Magellan må installeres først.")
)

(set @default-dest "")

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

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

;=============================================================================
; install norsk version of buttons banks

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

;=============================================================================
; make norsk lister menu the default

(if
   (askbool
      (prompt "En norsk versjon av den standard lister Hopp-Opp menyen "
              "er tilgjengelig.\n\n"
              "Ønsker du å installere denne og omdøpe den gamle som\n"
              "'lister menu_old'?"
      )
      (help "Installerer den norske versjonen av den standard lister Hopp-Opp menyen ")
   )
   (
      (rename "DOpus5:Buttons/lister menu" "DOpus5:Buttons/lister menu_old")
      (copyfiles
         (source "DOpus5:Buttons/lister menu_norsk")
         (dest "DOpus5:Buttons")
         (newname "lister menu")
      )
   )
)
;=============================================================================
; make norsk user menu the default

(if
   (askbool
      (prompt "En norsk versjon av den standard bruker menyen "
              "er tilgjengelig.\n\n"
              "Ønsker du å installere denne og omdøpe den gamle som\n"
              "'user menu_old'?"
      )
      (help "Installerer den norske versjonen av den standard bruker menyen ")
   )
   (
      (rename "DOpus5:Buttons/user menu" "DOpus5:Buttons/user menu_old")
      (copyfiles
         (source "DOpus5:Buttons/user menu_norsk")
         (dest "DOpus5:Buttons")
         (newname "user menu")
      )
   )
)

(exit "\nDet er også innstallert noen norske eksempler på andre knapperader. Du finner dem i 'DOpus5:Buttons/'.\n\n\nDirectory Opus er oversatt til norsk av\nEirik Bogsnes\n\nHvis du finner noen skrivefiel eller er uenig med noen av\n de oversatte ordene kan du skrive til:\n\n'bogsnes@mindless.com'")