[librecat-dev] Ind 2 in 245 field

Tiago Murakami trmurakami at gmail.com
Fri May 26 22:48:20 CEST 2023


Hi,

I wrote an script to count number of nonfiling characters in 245 field:

marc_map('245a', my.title)
marc_map('245a', my.titletrim)
trim(my.titletrim)
marc_map('245b', my.subtitle)
marc_map('245c', my.titleresponsability)
trim(my.title)
parse_text(my.title,'^([\w\-]+)')
copy_field(my.title.0, my.article)
lookup(my.article, "fixes/artigos.csv", sep_char:",")
marc_remove(245)
if is_number(my.article)
    if all_equal(my.article, 2)
        marc_add('245', 'ind1', 0, 'ind2', 2, 'a', $.my.titletrim, 'b',
$.my.subtitle, 'c', $.my.titleresponsability)
    end
    if all_equal(my.article, 3)
        marc_add('245', 'ind1', 0, 'ind2', 3, 'a', $.my.titletrim, 'b',
$.my.subtitle, 'c', $.my.titleresponsability)
    end
    if all_equal(my.article, 4)
        marc_add('245', 'ind1', 0, 'ind2', 4, 'a', $.my.titletrim, 'b',
$.my.subtitle, 'c', $.my.titleresponsability)
    end
    if all_equal(my.article, 5)
        marc_add('245', 'ind1', 0, 'ind2', 5, 'a', $.my.titletrim, 'b',
$.my.subtitle, 'c', $.my.titleresponsability)
    end
    if all_equal(my.article, 6)
        marc_add('245', 'ind1', 0, 'ind2', 6, 'a', $.my.titletrim, 'b',
$.my.subtitle, 'c', $.my.titleresponsability)
    end
else
    marc_add('245', 'ind1', 0, 'ind2', 0, 'a', $.my.titletrim, 'b',
$.my.subtitle, 'c', $.my.titleresponsability)
end


My question is why this script works and this one doesn't:

if is_number(my.article)
    marc_add('245', 'ind1', 0, 'ind2',  $.my. article, 'a', $.my.titletrim,
'b', $.my.subtitle, 'c', $.my.titleresponsability)
end


My fixes/artigos.csv file example:

O,2
Os,3
A,2
As,3
Um,3
Uns,4
Uma,4
Umas,5
Ao,3
Aos,4


If you can help me I will be grateful

Thanks in advance,


-- 
Tiago Murakami
Bibliotecário
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.uni-bielefeld.de/mailman2/unibi/public/librecat-dev/attachments/20230526/37622e28/attachment.html>


More information about the librecat-dev mailing list