Seitenhistorie
Anker | ||||
---|---|---|---|---|
|
...
Beschreibung
Auszug |
---|
Funktion für die Handbibliotheksverwaltung der elektronischen Publikationen. |
Der Titeldatensatz muss sich in der Vollanzeige befinden. Das EP-HB-Werk wird editiert, die Felder |
5301, 7109 und 4083 werden ergänzt |
und in Feld 7001 wird |
Zeile 4445 - 4466
Code in WinIBW2 (Makro/VBScript)
Codeblock |
---|
Sub EP1()
Dim K4083, K5301, K7109, SearchK5301, SearchK7001, co7001
'K4083 = vbcr & "4083 Zugriff auf Publikation im MMB: =A http://mmb.ddb.de/"
K4083 = vbcr & application.LatinToPica("4083 Zugriff auf Publikation über das Bereitstellungssystem: =A http://mmb.ddb.de/")
'K5301 = vbcr & "5301 "
K5301 = vbcr & application.LatinToPica("5301 ")
'K7109 = vbcr & "7109 !!MLS!! ; "
K7109 = vbcr & application.LatinToPica("7109 !!MLS!! ; ")
On error resume next
'Vollanzeige des Ausgangsdatensatzes erzwingen
Set WinA = Application.ActiveWindow
if not WinA.Variable("scr") = "8A" then
Fehler "Es liegt kein Datensatz in Vollanzeige vor!"
exit sub
end if
WinA.Command "k", False
SearchK7001 = WinA.Title.StartOfBuffer
SearchK7001 = WinA.Title.FindTag ("7001", 0, True, True)
'msgbox SearchK7001
if SearchK7001 <> "" then
WinA.Title.WordRight 3
WinA.Title.EndOfField true
co7001 = WinA.Title.GetSelection
'msgbox co7001
if co7001 = "x" then
WinA.Title.DeleteSelection
WinA.Title.InsertText "xxp" & K7109 & K4083
else
WinA.Title.EndOfField
WinA.Title.InsertText K7109 & K4083
end if
end if
SearchK5301 = WinA.Title.StartOfBuffer
SearchK5301 = WinA.Title.FindTag ("5301", 0, True, True)
if SearchK5301 <> "" then
'WinA.Title.FindTag "5301", 0, True, True
WinA.Title.EndOfField
Else
WinA.Title.StartOfBuffer
WinA.Title.FindTag "7109", 0, True, True
WinA.Title.EndOfField
WinA.Title.InsertText K5301
End if
End Sub
|
Code in WinIBW3 (Javascript)
Erforderliche Änderungen / Ergänzungen
der Selektionscode "x" in "xxp" verändert. In Feld 4083 wird der Standardtext "Direktzugriff auf die Publikation an den Lesesaalrechnern: =A http://dnb-hh1.ad.ddb.de/NetManBin/nmwebclt.asp?CONFIGID=###&DT=4&LANGUAGE=German |
Standard-Konfiguration
Die Funktion steht in der Funktionsleiste Benutzung zur Verfügung.
Historie
Datum | geändert von | Beschreibung |
---|---|---|
2011-09-30 | Althaus | neu erstellt |
Scriptdatei(en)
dnb_benutzung.js
Seitenanfangkeine
Überblick
Inhalte