Changeset 7533 for trunk/gsdl/perllib/plugins/MARCPlug.pm

Timestamp:

2004-06-02T13:39:05+12:00 (20 years ago)

Author:

kjdon

Message:

wrap the lines of the record at 80 columns

File:

• trunk/gsdl/perllib/plugins/MARCPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/MARCPlug.pm

@@ -66 +66 @@
 #use MARC::Record;  
 #use MARC::Batch;
-
+use Text::Wrap;
 
 sub new {
@@ -250 +250 @@
     if $self->{'verbosity'} > 2;
 
+    # line wrapping
+    $Text::Wrap::columns = 80;
+    $$textref = wrap("", "", $$textref);
+
     $$textref = "<pre>\n" . $$textref . "</pre>\n"; # HTML formatting...