marc 0.0.3 → 0.0.4

data/lib/marc/marc21.rb

@@ -57,7 +57,7 @@ module MARC
             marc[0..4] = sprintf("%05i", marc.length())
             
             # store updated leader in the record that was passed in
-            record.leader = marc[0..LEADER_LENGTH]
+            record.leader = marc[0..LEADER_LENGTH-1]
 
             # return encoded marc
             return marc 
@@ -68,7 +68,7 @@ module MARC
 
         def decode(marc, params={})
             record = Record.new()
-            record.leader = marc[0..LEADER_LENGTH]
+            record.leader = marc[0..LEADER_LENGTH-1]
 
             # where the field data starts
             base_address = record.leader[12..16].to_i

data/lib/marc/record.rb

@@ -19,7 +19,7 @@ module MARC
             # leader defaults:
             # http://www.loc.gov/marc/bibliographic/ecbdldrd.html
             @leader[10..11] = '22'
-            @leader[20..23] = '4500';        
+            @leader[20..23] = '4500'
         end
 
         # add a field to the record

data/test/tc_record.rb

@@ -24,17 +24,17 @@ class TestRecord < Test::Unit::TestCase
         raw = IO.read('test/one.dat')
         r = MARC::Record::new_from_marc(raw)
         assert_equal(r.class, MARC::Record)
-        assert_equal(r.leader,'00755cam  22002414a 45000')
+        assert_equal(r.leader,'00755cam  22002414a 4500')
         assert_equal(r.fields.length(), 18)
         assert_equal(r.find {|f| f.tag == '245'}.to_s,
             '245 10 $aActivePerl with ASP and ADO /$cTobias Martinsson.')
     end
 
-    def test_decode_loose
+    def test_decode_forgiving
         raw = IO.read('test/one.dat')
-        r = MARC::Record::new_from_marc(raw, :loose => true)
+        r = MARC::Record::new_from_marc(raw, :forgiving => true)
         assert_equal(r.class, MARC::Record)
-        assert_equal(r.leader,'00755cam  22002414a 45000')
+        assert_equal(r.leader,'00755cam  22002414a 4500')
         assert_equal(r.fields.length(), 18)
         assert_equal(r.find {|f| f.tag == '245'}.to_s,
             '245 10 $aActivePerl with ASP and ADO /$cTobias Martinsson.')

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.8.11
 specification_version: 1
 name: marc
 version: !ruby/object:Gem::Version 
-  version: 0.0.3
-date: 2005-10-17 00:00:00 -05:00
+  version: 0.0.4
+date: 2005-10-18 00:00:00 -05:00
 summary: A ruby library for working with Machine Readable Cataloging
 require_paths: 
   - lib