zcc 0.0.2 → 0.0.3

data/examples/zebra/tab/usmarc.mar

@@ -0,0 +1,3 @@
+# $Id: usmarc.mar,v 1.1 2002/10/22 12:51:09 adam Exp $
+name usmarc
+reference USmarc

data/examples/zebra/tab/word-phrase-utf.chr

@@ -0,0 +1,41 @@
+# Generic character map.
+#
+# $Id: word-phrase-utf.chr,v 1.1.2.1 2006/07/03 21:56:45 kados Exp $
+
+# Define the basic value-set. *Beware* of changing this without re-indexing
+# your databases.
+lowercase {0-9}{a-y}�z�����
+uppercase {0-9}{A-Y}�Z�����
+
+# Breaking characters
+
+space {\001-\040}!"#$%&'\()*+,-./:;<=>?@\[\\]^_`\{|}~
+
+# Characters to be considered equivalent for searching purposes.
+
+# equivalent ��(ae)
+# equivalent ��(oe)
+# equivalent �(aa)
+# equivalent u�
+
+# Supplemental mappings
+
+#map (&auml;)       �
+#map (&aelig;)      �
+#map (&oslash;)     �
+#map (&aring;)      �
+#map (&ouml;)       �
+#map (&Auml;)       �
+#map (&Aelig;)      �
+#map (&Oslash;)     �
+#map (&Aring;)      �
+#map (&Ouml;)       �
+
+#map ��		e
+#map �		a
+#map �		o
+#map �		i
+
+#map (Aa)	(AA)
+
+#map (aa)        a

data/examples/zebra/tmp/empty

@@ -0,0 +1 @@
+

data/examples/zebra/zebra.cfg

@@ -0,0 +1,39 @@
+# ZCC
+# Simple Zebra configuration file that defines
+# MARC21 records
+#
+# Where are the config files located?
+profilePath:/home/jason/.zcc/zebra/tab:/usr/share/idzebra-2.0/tab
+# modulePath - where to look for loadable zebra modules
+modulePath: /usr/lib/idzebra-2.0/modules
+
+encoding: UTF-8
+# Files that describe the attribute sets supported.
+attset: bib1.att
+attset: explain.att
+attset: gils.att
+
+# systag sysno rank
+# Specify record type
+recordId: file
+recordType: grs.xml
+storeKeys: 1
+
+#added for public server
+database: zcc
+
+
+# Lock File Area
+lockDir: /home/jason/.zcc/zebra/lock
+perm.anonymous:r
+register: /home/jason/.zcc/zebra/register:1G
+
+# Temp File area for result sets
+setTmpDir: /home/jason/.zcc/zebra/tmp
+
+# Temp File area for index program
+keyTmpDir: /home/jason/.zcc/zebra/key
+
+# Approx. Memory usage during indexing
+memMax: 50M
+rank:rank-1

data/lib/zcc/marcadditions.rb

@@ -1,6 +1,6 @@
 #MARCAdditions are some useful additions made for processing MARC records.
-module MARCAdditions
-
+module MARC
+  class Record
   # linter depends on Perl's MARC::Lint and hence Perl's MARC::Record
   # Use cpan to install them.
   def linter
@@ -21,7 +21,7 @@ module MARCAdditions
     #STDIN.gets
     #puts
     #contents = `perl linter.pl "#{self}"`
-    contents = `perl linter.pl "#{xml_rec}"`
+    contents = `perl "#{File.expand_path("~")}"/.zcc/linter.pl "#{xml_rec}"`
 
 
     #aFile = File.new("temp_lint.mrc","w")
@@ -47,7 +47,7 @@ module MARCAdditions
   
   def blank_field_prompt(field, subfield)
     #puts "subfield: #{subfield}"
-    puts "There is no valid value in your MARC record.\nPlease enter the intended value for #{field}#{subfield} or Enter to leave blank"
+    print "\nYour MARC record does not contain #{field}#{subfield}.\nEnter the intended value for #{field}#{subfield} or hit ENTER to leave blank\n#{field}#{subfield} > "
     value = STDIN.gets.chomp
     value
   end
@@ -57,9 +57,8 @@ module MARCAdditions
   # See the main script for turning this feature on.
   def marc_to_csv(template)
     values = []
-    puts "label making time!"
-
-  #  blank_field_prompt = 'puts "subfield: #{subfield}"; puts "There is no valid value in your MARC record.\n Please enter the intended value for #{field}#{subfield} or Enter to leave blank"; value = STDIN.gets.chomp'
+    
+    #  blank_field_prompt = 'puts "subfield: #{subfield}"; print "There is no valid value in your MARC record.\n Please enter the intended value for #{field}#{subfield} or Enter to leave blank\n#{field}#{subfield}> "; value = STDIN.gets.chomp'
 
     template.each do |template|
       field, subfield, leng = template
@@ -74,7 +73,7 @@ module MARCAdditions
         fields = self.find_all { | f |  f.tag =~ Regexp.new( field.gsub('X','.'))}
         value = ''
         if fields.empty?
-          puts "oh, no!"
+          #puts "oh, no!"
           value = blank_field_prompt(field, subfield)
           #eval(blank_field_prompt)
         else
@@ -96,7 +95,7 @@ module MARCAdditions
         puts "this is not a valid value for marc_to_csv"
       end
     end
-    puts values
+    #puts values
     values[-1].sub!(/\,$/, '')
     values = values.to_s
     values += "\n"
@@ -104,11 +103,12 @@ module MARCAdditions
 
   #++ The local_script method is for automating changes to the record before saving it. See the main script to turn on this feature. See zoomer.yaml for instructions on creating a script for your purposes.
   def local_script(script)
+    #print $clear_code
     record = self
 
     #--creating my procs for creating fields and appending subfields
     # these two should probably be moved to methods
-    create_datafield = proc{|record, field, i1, i2| puts "in create datafield!"; record.append(MARC::DataField.new(field.to_s, i1.to_s, i2.to_s)); puts "****", record, "***" if $testing;}
+    create_datafield = proc{|record, field, i1, i2| puts "Creating datafield: #{field}"; record.append(MARC::DataField.new(field.to_s, i1.to_s, i2.to_s)); puts "****", record, "***" if $testing;}
 
     append_subfield = proc{|record, field, subfield, val| 
       field = field.to_s
@@ -196,4 +196,26 @@ module MARCAdditions
       fields_rec2.each {|f| puts "- #{f}"} if fields_rec2
     end
   end
+  end
+end
+
+module ZCC
+def ZCC.lccn_conversion lccn
+  split_lccn = lccn.split('-')
+  year_len = split_lccn[0].length
+  serial_len = split_lccn[1].length
+  start_length = year_len + serial_len
+  if year_len == 2
+    final_lccn = lccn.gsub('-', "#{'0' * (8 - start_length)}")
+  elsif year_len == 4
+    final_lccn = lccn.gsub('-', "#{'0' * (10 - start_length)}")
+  end
+  final_lccn
 end
+end
+
+#class String
+#  def to_proc
+#    eval "Proc.new  #{self} " # or "Proc.new #{self}" in my case
+#  end
+#end

data/lib/zcc/pickers.rb

@@ -1,32 +1,103 @@
-module Pickers
-  def select_good_marc(take_how_many)
+module ZCC
+  def ZCC.display_menu(rec_copy, index)
+    field_width = $term_width - 8
+    say("<%= color(\"#{index}\", :index) %> ")
+    ['245', '260', '300'].each do |field|
+      string = rec_copy[index][field].to_s
+      string.rstrip!
+      string.lstrip!
+      if string.length < field_width
+        say("\t#{ZCC.zcc_marc_str_bold(string, field)}")
+      else
+        better_string = ZCC.wrap_field(string, field_width)
+        #puts better_string
+        say("\t#{ZCC.zcc_marc_str_bold(better_string, field)}")
+        
+      end 
+    end        
+  end
+  
+  #currently this goes word by word. how difficult to go field by subfield?
+  def ZCC.wrap_field(s, width)
+    lines = []
+    line = ""
+    smaller_width = width - 7
+    s.split(/\s+/).each do |word|
+	    if (line.size + word.size) >= (width - 3)
+        lines << line 
+        line = word
+        width = smaller_width
+	    elsif line.empty?
+        line = word
+	    else
+        line << " " << word
+      end
+	  end
+	  lines << line if line
+    return lines.join "\n\t\t"
+  end
+  
+  
+  def ZCC.zcc_marc_str_bold(string, field)
+    #puts field
+    string.gsub!("'", "\'")
+    #string.gsub!("(", "\(")
+    #string.gsub!(")", "\)")
+    if field == '245'
+      string.gsub!(/(\$a\s)(.*?)(\$.)/, "\\1<%= color(\"\\2\", :field_hilite) %>\\3")
+    elsif field == '260'
+      #puts 'gets here'
+      string.gsub!(/(\$c\s)([\[0-9A-Za-z\]]*)(.|$)/,  "\\1<%= color(\"\\2\", :field_hilite) %>\\3")
+      
+      #string.gsub!(/(\$c)(.*)(\$\s)/,  "\\1<%= color(\"\\2\", :field_hilite) %>\\3")
+      #string.gsub!(/(\$c)(.*)(\.|$)/,  "\\1<%= color(\"\\2\", :field_hilite) %>\\3")
+    elsif field == '300'
+      string.gsub!(/(\$a)(.*?)(\$|$)/, "\\1<%= color(\"\\2\", :field_hilite) %>\\3")
+    elsif field == 'record'
+      string.sub!(/(LEADER.{19})(.{1})/, "\\1<%= color(\"\\2\", :headline) %>") #colorizes the value of the standard (AACR2, ISBD, or none)
+    end
+    
+    string.gsub!( /\$(.)/, "<%= color('$\\1', :marc_tag) %>" )
+    string.gsub!( /^(\d\d\d)\s/, "<%= color('\\1 ', :marc_tag) %>")
+    string
+  end
+  
+  def ZCC.not_valid_value
+    print $clear_code
+    say("\a<%= color(\"That's not a valid value. Try again.\", :headline) %> ")
+    sleep 1
+    print "\a"
+  end
+  
+  
+end
+
+
+class Array
+  def zcc_select_good_marc(take_how_many)
     #puts self[0]
     unless self[0].is_a? MARC::Record
       raise ArgumentError, "This Array doesn't have a MARC::Record!" end
-
     #puts self
-    rec_copy = self.dup     
-    #print "rec_copy.length: ", rec_copy.length     
-    #print "rec_copy.class: ", rec_copy.class       
-    #puts rec_copy[3] #if it chokes on a record uncomment and include the record number
-    #i = 0
+    rec_copy = self.dup
+    rec_copy = rec_copy.sort_by {|rec| rec['245']['a']}
+    
     recs_to_return = []
     loop {
-      rec_copy.each_index do #This block lists
-      |index|
-      puts "#{index}\t#{rec_copy[index]['245']}"  
-      puts "\t#{rec_copy[index]['260']}" if rec_copy[index]['260']
-      puts "\t#{rec_copy[index]['300']}" if rec_copy[index]['300']
-      puts "\n\n"
+      print $clear_code
+      rec_copy.each_index do |index|
+        ZCC.display_menu(rec_copy, index)
+        puts "\n\n"
       end
-
+      
+      
+      whichrec = ''
     if take_how_many =='one'
-      print "\nEnter # | s# | c#-# | l# | none : "
+      whichrec = ask("\n<%= color('Enter # | s# | c#-# | l# | none :', UNDERLINE) %>  ", String){ |q| q.readline = true }
     else
-      print "\nEnter # | n | s# | c#-# | l# | d : "
+      whichrec = ask("\n<%= color('Enter # | n | s# | c#-# | l# | d :', UNDERLINE) %>  ", String){ |q| q.readline = true }
     end
-    whichrec = STDIN.gets.chomp!
-
+    
     #puts "whichrec #{whichrec[0,1]}"
     #puts whichrec.class
     #whichrec = whichrec.to_i unless whichrec.respond_to?(:upcase)
@@ -34,31 +105,33 @@ module Pickers
     puts "whichrec is an Integer" if whichrec.is_a?(Integer)
     see_num = whichrec[1,9].to_i
     if first_bit == 's'
-      puts rec_copy[see_num]
-      print "\n\nHit enter to continue."
-      STDIN.gets.chomp  
+      print $clear_code
+      print "\a"
+      say("#{ZCC.zcc_marc_str_bold(rec_copy[see_num].to_s, 'record')}")
+      ask("<%= color('Hit ENTER to continue...', :headline) %> ") 
+      #STDIN.gets  
       next
     elsif first_bit == 'c'
-      puts "comparison time!"
+      say("<%= color('comparison:', :headline) %> ")
       comparison = whichrec[1,99]
       compare_nums = comparison.split('-')
       rec_copy[compare_nums[0].to_i].compare_marc(rec_copy[compare_nums[1].to_i])
-      puts "\nHit enter to continue."
-      STDIN.gets
+      ask("<%= color('Hit ENTER to continue...', :headline) %> ")
+      #STDIN.gets
       next
     elsif first_bit == 'l'
       #puts rec_copy[whichrec[1,99].to_i]
       #gets
       rec_copy[whichrec[1,99].to_i].linter
-      puts "\nHit enter to continue."
-      STDIN.gets
+      ask("<%= color('Hit ENTER to continue...', :headline) %> ")
+      #STDIN.gets
       next
     elsif take_how_many == 'one'
       if ( whichrec == 'none' )
         puts "Since you cannot decide on a good record, please refer the book to a cataloger."
         return "none"	
       elsif	( first_bit =~ /[a-z]/i or whichrec == '' )
-        puts "that's not a valid value. try again."
+        ZCC.not_valid_value
         next
       else
         if whichrec.to_i > (rec_copy.length - 1)
@@ -76,7 +149,7 @@ module Pickers
         puts "recs that will be returned #{recs_to_return.length}"      
         return recs_to_return
       elsif whichrec[0,1] =~ /[a-z]/i
-        puts "that's not a valid value. try again."
+        ZCC.not_valid_value
         next
       else
         if whichrec.to_i > (rec_copy.length - 1)
@@ -98,3 +171,6 @@ module Pickers
   end
 
 end
+
+
+

data/lib/zcc/subfieldeditor.rb

@@ -0,0 +1,70 @@
+module MARC
+
+  #edit is a wrapper method to loop until done
+  class Record
+
+
+    def edit
+      puts "Subfield Editing"
+      puts "To denote which subfield you want to edit put it in the form of 245a.\nIn the case of repeating fields or subfields you will be prompted\nto choose the one you wish to edit. "
+      continue = true
+      while continue
+	      fs = ask("What field and subfield would you like to edit (in form 245a) or quit?\n>   "){|q| q.readline = true}
+        if fs == 'q' || fs == 'quit'
+          continue = false
+        next
+        end
+        if !(fs =~/\d\d\d\w/ )
+          puts "That's not a valid value"
+          next
+        end
+        self.change_subfield(fs)
+      end
+    end
+
+    #edit_subfield is passed to a MARC::Record object and give a subfield
+    def change_subfield(fs)
+      field_subfield = subfield_parse(fs)
+      field = field_subfield[0]
+      subfield = field_subfield[1]
+
+      fields = self.find_all {|f| f.tag == field}
+      subfields = []
+      for field in fields
+	      subfields << field.find_all {|s| s.code == subfield}
+      end
+      subfields.flatten!
+      if subfields.length > 1
+        i = 0
+        for subfield in subfields
+	        puts "#{i}\t#{subfield}"
+          i += 1
+        end
+	      num_to_change = ask("Which subfield do you want to change?"){|q| q.readline = true}
+	      subfield_to_change = subfields[num_to_change.to_i]
+      elsif subfields.length == 1
+        subfield_to_change = subfields[0]
+      elsif subfields.empty?
+        puts "No such subfield!"
+	      return nil
+      end
+      
+
+      puts self; puts
+
+      print "Currently:\t"
+      puts subfield_to_change.value 
+      edit = ask("Your edit:\t"){|q| q.readline = true}
+      subfield_to_change.value = edit
+      puts; puts self; puts
+
+    end
+
+    #subfield_parse method for getting from '245a' to ['245','a']
+    def subfield_parse(combined)
+      field_subfield = []
+      field_subfield << combined[0, 3]
+      field_subfield << combined[3,1]
+    end
+  end
+end

data/lib/zcc/version.rb

@@ -2,7 +2,7 @@ module Zcc #:nodoc:
   module VERSION #:nodoc:
     MAJOR = 0
     MINOR = 0
-    TINY  = 2
+    TINY  = 3
 
     STRING = [MAJOR, MINOR, TINY].join('.')
   end