# # Generate one participants data from the 'TB1.csv' # according to key passed by the calling routine # function btrim(s1) {while (substr(s1,1,1)==" ") s1=substr(s1,2) while (substr(s1,length(s1))==" ") s1=substr(s1,1,length(s1)-1); return s1} # BEGIN { FS="|" # jmena poli a["Poskytovatel"]=1 a["Title"]=2 a["ShortTitle"]=3 a["Typ"]=4 a["ISSN"]=5 a["ISBN"]=6 a["URL"]=7 a["Zpusob"]=8 a["Subscriber"]=9 a["Sub_jmeno"]=10 a["Sub_e-mail"]=11 a["Podminky"]=12 a["IP"]=13 a["IdPwd"]=14 a["Remote"]=15 a["Podm_URL"]=16 a["Platnost"]=17 a["Konspekt"]=18 a["Profil"]=19 a["Seznam"]=20 a["Info_o_zdroji"]=21 a["Pristupnost"]=22 a["Retrospektiva"]=23 a["Charakteristika"]=24 a["Poznamky"]=25 a["Stats"]=26 a["Stats_URL"]=27 a["Vyplnil"]=28 a["E-mail"]=29 a["key"]=30 # } ($(a["key"]) == par) { print "" print "" print $(a["Title"]) "" print "" print "
 " print "
\n
" $(a["Title"]) "
" if (btrim($ a["ShortTitle"]) != "") print "(" $(a["ShortTitle"]) ")" if (btrim($(a["URL"])) != "http://") print "     " $(a["URL"]) "" print "
" print "
" print "
Typ báze dat: " $(a["Typ"]) print "
Producent: " $(a["Poskytovatel"]) print "
Způsob zpřístupnění: " $(a["Zpusob"]) print "
" print "
Nositel licence: " $(a["Subscriber"]) "" print "
                  " $(a["Sub_jmeno"]) "" print "
Licence je určena: " $(a["Podminky"]) if (($(a["Podm_URL"]))&&(btrim($(a["Podm_URL"]))!="http://")) print "Více..." if (($(a["IP"])=="IP adresa")||($(a["IdPwd"])=="Id+pwd")) print "
Přístup je kontrolován: " if (($(a["IP"])=="IP adresa")) print " IP adresou" if (($(a["IdPwd"])=="Id+pwd")) print " jménem a heslem" if (($(a["Remote"])=="remote")) print " Přístup je umožněn i z adres mimo mateřskou instituci nositele/ů licence" print "
Licenční smlouva je uzavřena na období: " $(a["Platnost"]) print "
Věcný profil báze dat: " $(a["Profil"]) print "
Seznam titulů v bázi: " $(a["Seznam"]) print "
Retrospektiva: " $(a["Retrospektiva"]) print "
Charakteristika báze dat: " $(a["Charakteristika"]) print "
Přístupnost: " $(a["Pristupnost"]) if (btrim($ a["Poznamky"]) != "")print "
Poznámky: " $(a["Poznamky"]) print "
\n" # print "
Opravit? | Zrušit akci? | Záznam akce odstranit?
" } END { "date +'%a %d %b %Y %H:%M:%S'" | getline timestamp print "
   Zobrazeno " timestamp " CET\n
\n" }