48c48
< # book flag: 0 no, 1 book, 2 proceedings, 3 manual
---
> # book flag; 0 no, 1 yes
50,52d49
< # location flag: 0 not known, 1 mathbibl, 2 RISC, 3 sysadmin,
< #                4 parlab, 5 pfalzgraf
<     $locflag = 0;
71,77d67
< 	elsif ($field =~ /LOC/) {
< 	    if (($data =~ /isc/i) || ($data =~ /RISC/)) { $locflag = 2; }
< 	    elsif (($data =~ /ath/i) || ($data =~ /tnf/i)) { $locflag = 1; }
<             elsif ($data =~ /sysadmin/) {$locflag = 3; }
<             elsif ($data =~ /parlab/) {$locflag = 4; }
<             elsif ($data =~ /pfalzgraf/) {$locflag = 5; };
< 	}
79,82c69,74
< 	    if ($data =~ /ook/i) { $bookflag = 1; }
<             elsif ($data =~ /roceedings/) { $bookflag = 2; }
< 	    elsif ($data =~ /anual/) { $bookflag = 3; }
< 	    else { $bookflag = 0; };
---
> 	    if(($data =~ /ook/i) || ($data =~ /roceedings/)) {
>               $bookflag = 1;
> 	    }
>             else {
>               $bookflag = 0;
>             };
100c92
<     # 4.2.3. display entry
---
>     # 4.2.3. Store entry
108c100
< # print "\nDone.\n";
---
> print "\nDone.\n";
113c105
< # PrintEntry() prints only books, proceedings, manuals from math library
---
> # PrintEntry() prints only books and proceedings from math library
116,137c108,112
< # display only math library owner, risc~ location, and selected types  
<   if(($flag == 1) && ($locflag != 1) && ($bookflag != 0)) {
< #   display label
<     if (IsEmpty($label)) {
<       print "      :? no label"; }
<     else {
<       $exlabel = sprintf "%6d", $label;
<       if ($exlabel == "     0") {
<         print "      "; }
<       else {
<         print $exlabel; };      
< #      print ":"; print $label;
<     };
<     print ":\t";
< 
< #   display type
<     if    ($bookflag == 1) { print "BOOK        "; }
<     elsif ($bookflag == 2) { print "PROCEEDINGS "; }
<     elsif ($bookflag == 3) { print "MANUAL      "; }
<     else { print "*** INTERNAL ERROR: $bookflag wrong "; print $bookflag; };
< 
< #   display author/title
---
>   if(($flag == 1) && (!IsEmpty($label)) && ($bookflag == 1)) {
>     print $label;
>     print " (";
>     print $year;
>     print ") ";
141,157d115
< 
< #   display year
<     print " (";
<     if (IsEmpty($year)) { print "    "; }
<     else { print $year; };
<     print ") ";
< # location flag: 0 not known, 1 mathbibl, 2 RISC, 3 sysadmin,
< #                4 parlab, 5 pfalzgraf
<     print " [";
<     if ($locflag == 0) { print "unknown"; }
<     elsif ($locflag == 1) { print "math lib"; }
<     elsif ($locflag == 2) { print "RISC"; }
<     elsif ($locflag == 3) { print "sysadmin"; }
<     elsif ($locflag == 4) { print "parlab"; }
<     elsif ($locflag == 5) { print "pfalzgraf"; }
<     else { print "*** INTERNAL ERROR: wrong $locflag "; print $locflag; };
<     print "]";