formats/medium.tcl

   1
   2 proc display-nice {sno no w} {
   3     $w delete 0.0 end
   4     set i [z39.$sno getMarc $no field 245 * a]
   5     if {$i != ""} {
   6         set i [lindex $i 0]
   7         insertWithTags $w "Title:      " marc-tag
   8         insertWithTags $w $i marc-data
   9         set i [z39.$sno getMarc $no field 245 * b]
  10         if {$i != ""} {
  11             insertWithTags $w [lindex $i 0] marc-data
  12         }
  13         $w insert end "\n"
  14     }
  15     set i [z39.$sno getMarc $no field 700 * a]
  16     if {$i == ""} {
  17         set i [z39.$sno getMarc $no field 100 * a]
  18     }
  19     if {$i != ""} {
  20         if {[llength $i] > 1} {
  21             insertWithTags $w "Authors:    " marc-tag
  22         } else {
  23             insertWithTags $w "Author:     " marc-tag
  24         }
  25         foreach x $i {
  26             insertWithTags $w $x marc-data
  27         }
  28         $w insert end "\n"
  29     }
  30     set i [z39.$sno getMarc $no field 110 * *]
  31     if {$i != ""} {
  32         insertWithTags $w "Co-Author:  " marc-tag
  33         foreach x $i {
  34             insertWithTags $w $x marc-data
  35         }
  36         $w insert end "\n"
  37     }
  38
  39     set i [z39.$sno getMarc $no field 650 * *]
  40     if {$i != ""} {
  41         set n 0
  42         insertWithTags $w "Keywords:   " marc-tag
  43         foreach x $i {
  44             if {$n > 0} {
  45                 $w insert end ", "
  46             }
  47             insertWithTags $w $x marc-data
  48             incr n
  49         }
  50         $w insert end "\n"
  51     }
  52     set i [concat [z39.$sno getMarc $no field 260 * a] \
  53             [z39.$sno getMarc $no field 260 * b]]
  54     if {$i != ""} {
  55         insertWithTags $w "Publisher:  " marc-tag
  56         foreach x $i {
  57             insertWithTags $w $x marc-data
  58         }
  59         $w insert end "\n"
  60     }
  61     set i [z39.$sno getMarc $no field 020 * a]
  62     if {$i != ""} {
  63         insertWithTags $w "ISBN:       " marc-tag
  64         foreach x $i {
  65             insertWithTags $w $x marc-data
  66         }
  67         $w insert end "\n"
  68     }
  69     set i [z39.$sno getMarc $no field 022 * a]
  70     if {$i != ""} {
  71         insertWithTags $w "ISSN:       " marc-tag
  72         foreach x $i {
  73             insertWithTags $w $x marc-data
  74         }
  75         $w insert end "\n"
  76     }
  77     set i [z39.$sno getMarc $no field 030 * a]
  78     if {$i != ""} {
  79         insertWithTags $w "CODEN:      " marc-tag
  80         foreach x $i {
  81             insertWithTags $w $x marc-data
  82         }
  83         $w insert end "\n"
  84     }
  85     set i [z39.$sno getMarc $no field 015 * a]
  86     if {$i != ""} {
  87         insertWithTags $w "Ctl number: " marc-tag
  88         foreach x $i {
  89             insertWithTags $w $x marc-data
  90         }
  91         $w insert end "\n"
  92     }
  93     set i [z39.$sno getMarc $no field 010 * a]
  94     if {$i != ""} {
  95         insertWithTags $w "LC number:  " marc-tag
  96         foreach x $i {
  97             insertWithTags $w $x marc-data
  98         }
  99         $w insert end "\n"
 100     }
 101 }