Pasteinformation

[burkert]

Bin heute auf die Lösung mit der Pasteinformation DB gestossen und finde das echt genial.
Jetzt hätte ich mal noch eine Frage zum Einbinden der DB. Kann man die DB auch zentral auf dem Server ablegen.
In dem Script:
database := "pasteinformation.nsf" ;
choicelist := @DbColumn("" : "ReCache" ; "" : database ; "($All)" ; 0 );
dockey := @Prompt([OkCancelList] ; "Add text..." ; "Please choose the document title containing the content you wish to paste at the current cursor position." ; "" ; choicelist) ;
@PostedCommand([FileOpenDatabase]; "" : database  ; "($All)" ; dockey ; 1 ; 1 ) ;
@PostedCommand([EditDocument]) ;
@PostedCommand([EditGotoField] ; "Body" ) ;
@PostedCommand([EditSelectAll]) ;
@PostedCommand([EditCopy]) ;
@PostedCommand([FileCloseWindow]) ;
@PostedCommand([FileCloseWindow]) ;
@PostedCommand([EditPaste])

ist die DB ja lokal, was heisst ich muss bei jedem Mitarbeiter die DB lokal pflegen. Replik wäre natürlich auch möglich. diese müsste man dann aber erst auf jeder Workstation erstellen.


Vielen Dank für alle Antworten

[eknori]

Brauchst doch nur in der Zeile

Code

choicelist := @DbColumn("" : "ReCache" ; "" : database ; "($All)" ; 0 );

deinen Server an die richtige Stelle einzutragen.

[Peter Klett]

Allerdings würde ich den Server konfigurierbar machen, z.B. durch einen notes.ini-Eintrag (den Dateinamen der DB auch, ist aber nicht so wichtig, wie der Servername, der ändert sich häufiger).

_server := @Environment ("PasteServer")

choicelist := @DbColumn("" : "ReCache" ; _server : database ; "($All)" ; 0 );
und
@PostedCommand([FileOpenDatabase]; _server : database  ; "($All)" ; dockey ; 1 ; 1 ) ;

[eknori]

Dann kann man auch noch gleich die Möglichkeit "Offline" berücksichtigen. Ist die Serverdatenbank nicht erreichbar, da keine Verbindung besteht, dann wird die lokale Replik gezogen.

[burkert]

Perfekt,
genau so, wie ich das wollte!

Danke!!