formats/medium.tcl

   1 # IR toolkit for tcl/tk
   2 # (c) Index Data 1995
   3 # See the file LICENSE for details.
   4 # Sebastian Hammer, Adam Dickmeiss
   5 #
   6 # $Log: medium.tcl,v $
   7 # Revision 1.3  1995-06-13 14:39:06  adam
   8 # Fix: if {$var != ""} doesn't work if var is a large numerical!
   9 # Highlight when line format is used.
  10 #
  11 # Revision 1.2  1995/06/12  15:18:10  adam
  12 # Work on presentation formats. These are used in the main window as well
  13 # as popup windows.
  14 #
  15 #
  16
  17 proc display-medium {sno no w hflag} {
  18     if {$hflag} {
  19         insertWithTags $w "\n$no\n" marc-data
  20     } else {
  21         $w delete 0.0 end
  22     }
  23     set i [z39.$sno getMarc $no field 245 * a]
  24     if {"x$i" != "x"} {
  25         set i [lindex $i 0]
  26         insertWithTags $w "Title:      " marc-tag
  27         insertWithTags $w $i marc-data
  28         set i [z39.$sno getMarc $no field 245 * b]
  29         if {"x$i" != "x"} {
  30             insertWithTags $w [lindex $i 0] marc-data
  31         }
  32         $w insert end "\n"
  33     }
  34     set i [z39.$sno getMarc $no field 700 * a]
  35     if {"x$i" == "x"} {
  36         set i [z39.$sno getMarc $no field 100 * a]
  37     }
  38     if {"x$i" != "x"} {
  39         if {[llength $i] > 1} {
  40             insertWithTags $w "Authors:    " marc-tag
  41         } else {
  42             insertWithTags $w "Author:     " marc-tag
  43         }
  44         foreach x $i {
  45             insertWithTags $w $x marc-data
  46         }
  47         $w insert end "\n"
  48     }
  49     set i [z39.$sno getMarc $no field 110 * *]
  50     if {"x$i" != "x"} {
  51         insertWithTags $w "Co-Author:  " marc-tag
  52         foreach x $i {
  53             insertWithTags $w $x marc-data
  54         }
  55         $w insert end "\n"
  56     }
  57
  58     set i [z39.$sno getMarc $no field 650 * *]
  59     if {"x$i" != "x"} {
  60         set n 0
  61         insertWithTags $w "Keywords:   " marc-tag
  62         foreach x $i {
  63             if {$n > 0} {
  64                 $w insert end ", "
  65             }
  66             insertWithTags $w $x marc-data
  67             incr n
  68         }
  69         $w insert end "\n"
  70     }
  71     set i [concat [z39.$sno getMarc $no field 260 * a] \
  72             [z39.$sno getMarc $no field 260 * b]]
  73     if {"x$i" != "x"} {
  74         insertWithTags $w "Publisher:  " marc-tag
  75         foreach x $i {
  76             insertWithTags $w $x marc-data
  77         }
  78         $w insert end "\n"
  79     }
  80     set i [z39.$sno getMarc $no field 020 * a]
  81     if {"x$i" != "x"} {
  82         insertWithTags $w "ISBN:       " marc-tag
  83         foreach x $i {
  84             insertWithTags $w $x marc-data
  85         }
  86         $w insert end "\n"
  87     }
  88     set i [z39.$sno getMarc $no field 022 * a]
  89     if {"x$i" != "x"} {
  90         insertWithTags $w "ISSN:       " marc-tag
  91         foreach x $i {
  92             insertWithTags $w $x marc-data
  93         }
  94         $w insert end "\n"
  95     }
  96     set i [z39.$sno getMarc $no field 030 * a]
  97     if {"x$i" != "x"} {
  98         insertWithTags $w "CODEN:      " marc-tag
  99         foreach x $i {
 100             insertWithTags $w $x marc-data
 101         }
 102         $w insert end "\n"
 103     }
 104     set i [z39.$sno getMarc $no field 015 * a]
 105     if {"x$i" != "x"} {
 106         insertWithTags $w "Ctl number: " marc-tag
 107         foreach x $i {
 108             insertWithTags $w $x marc-data
 109         }
 110         $w insert end "\n"
 111     }
 112     set i [z39.$sno getMarc $no field 010 * a]
 113     if {"x$i" != "x"} {
 114         insertWithTags $w "LC number:  " marc-tag
 115         foreach x $i {
 116             insertWithTags $w $x marc-data
 117         }
 118         $w insert end "\n"
 119     }
 120 }