मार्क :: ERRORCHECKS मार्क :: ERRORCHECKS MARC 21 / AACR2 त्रुटि जांच के संग्रह के साथ एक पर्ल मॉड्यूल है।
अब डाउनलोड करो

मार्क :: ERRORCHECKS रैंकिंग और सारांश

मार्क :: ERRORCHECKS टैग

त्रुटि जाँच मार्क 21 त्रुटियों की जांच AACR2 त्रुटि की जांच मार्क 21 एएसीआर 2

मार्क :: ERRORCHECKS विवरण

मार्क :: ERRORCHECKS मार्क 21 / AACR2 त्रुटि जांच के संग्रह के साथ एक पर्ल मॉड्यूल है। मार्क :: ERRORCHECKS मार्क 21 / AACR2 त्रुटि चेक के संग्रह के साथ एक पर्ल मॉड्यूल है। मार्क 21, एएसीआर 2, और एलसीआरआईएस के आधार पर एमआरसी त्रुटि की जांच करने के लिए एमओडीयूएल। इनका उपयोग एमएआरसी :: लिंट और मार्क :: लिंटेडिशन मॉड्यूल द्वारा आसानी से चेक नहीं की गई त्रुटियों को खोजने के लिए किया जाता है, जैसे कि फील्ड सीमाओं को पार करते हैं। प्रत्येक सबराउटिन को आम तौर पर एक मार्क :: रिकॉर्ड ऑब्जेक्ट पारित किया जाना चाहिए। ग्रीटिंग चेतावनी / त्रुटियां उत्पन्न होती हैं निम्नानुसार: @WarningStoreturturn, '', ($ फ़ील्ड-> टैग (), ": टी") में शामिल हों; वापसी @warningstoreturt; सारांश का उपयोग मार्क :: बैच; मार्क :: ERRORCHECKS का उपयोग करें; # ईसीईई भी मार्क :: अधिक चेक के लिए LintAdditions #use मार्क :: Lintadditions; # फ़ाइल नामों को मेरे $ इनपुटफाइल = 'marcfile.mrc' के रूप में वांछित है; मेरा $ ERRORFILENAME = 'ERRORS.TXT'; मेरा $ ERRORCOUNT = 0; खुला (बाहर, "> $ ERRORFILENAME"); # नए एमएआरसी के रूप में $ infileize :: बैच ऑब्जेक्ट मेरे $ बैच = मार्क :: बैच-> नया ('Usmarc', "$ इनपुटफाइल"); मेरा $ ERRORCOUNT = 0; # लूप रिकॉर्ड्स की बैच फ़ाइल के माध्यम से (मेरा $ रिकॉर्ड = $ बैच-> अगला ()) {#IF $ रिकॉर्ड-> फ़ील्ड ('001') # इसे जोड़ें यदि फ़ाइल में कुछ रिकॉर्ड में '001' फ़ील्ड नहीं है मेरा $ controlno = $ रिकॉर्ड-> फ़ील्ड ('001') -> AS_STRING (); #Call मार्क :: ERRORCHECKS SUBROUTINES मेरे @ERRORSTORETURN = (); # सब कुछ जांचें @ERRORStoreturn, (@ {मार्क :: ERRORCHECKS :: CHECK_ALL_SUBS ($ रिकॉर्ड)}); # या केवल कुछ पुश @ERRORStoreturturn, (@ {मार्क :: ERRORCHECKS :: CHECK_010 ($ रिकॉर्ड)}; पुश @ERRORSTORETURN, (@ {मार्क :: ERRORCHECKS :: CHECK_BK008_VS_BIBREFANDINDEX ($ रिकॉर्ड)}); # रिपोर्ट परिणाम यदि (@RERRORSTORETURN) {####################################### प्रिंट आउट ("टी", "$ ControlNo", @ERRORSTORETURN, "TN") में शामिल हों; $ ERRORCOUNT ++; }} #WheleRequirements: · इस रिलीज में Perlwhat नया है: · अतिरिक्त पी की तलाश करने के लिए · चेक_ b 008_vs_300 ($ रिकॉर्ड) अपडेट किया गया। या v। parenthetical क्वालीफायर के बाद। · Subfield 'b' में 'Col' के बाद लापता अवधि की तलाश करने के लिए Updated Check_BK008_VS_300 ($ रिकॉर्ड)। · SECH_NONPUNTANGENDINGFIELDS ($ रिकॉर्ड) में त्रुटि संदेश रिपोर्टिंग में $ टैग के साथ $ FIELD-TAG () । · Check_FieldLength ($ रिकॉर्ड) में 50-फ़ील्ड सीमा चेक बंद कर दिया गया। · 008 को 'बी' को कोडित होने पर केवल 'मानचित्र' के बजाय / मानचित्र / के बजाय / मानचित्र / के बजाय अद्यतन parse008vs300b ($ illcodes, $ forey300subb)। · PARENTETICAL PAGINATION के प्रत्येक पक्ष पर स्पेसिंग को देखने के लिए CHEAKE_BK008_VS_BIBREFANDINDEX ($ रिकॉर्ड)। · कई आंतरिक रिक्त स्थान के प्रत्येक सेट के दोनों तरफ 10 वर्णों की रिपोर्ट करने के लिए Updated Check_Internal_spaces ($ रिकॉर्ड)। · असम्बद्ध स्तर -5 और स्तर -7 नेता स्वीकार्य मूल्य। स्तर -3 अभी भी टिप्पणी की गई है, लेकिन पुस्तकालयों के लिए असंतोषित किया जा सकता है जो इसे अनुमति देते हैं। · एमएआरसी :: लिंट :: कोडाटाटा के संस्करण 1.14 शामिल हैं।

मार्क :: ERRORCHECKS संबंधित सॉफ्टवेयर