Changeset 7547

Timestamp:

2004-06-03T13:09:28+12:00 (20 years ago)

Author:

kjdon

Message:

the text::wrap module is not a standard one apparently, so I have made my own function to wrap the long lines (copied from Michaels stuff)

File:

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

trunk/gsdl/perllib/plugins/MARCPlug.pm

@@ -66 +66 @@
 #use MARC::Record;  
 #use MARC::Batch;
-use Text::Wrap;
 
 sub new {
@@ -251 +250 @@
 
     # line wrapping
-    $Text::Wrap::columns = 80;
-    $$textref = wrap("", "", $$textref);
-
+    $$textref = &wrap_text_in_columns($$textref, 80);
     $$textref = "<pre>\n" . $$textref . "</pre>\n"; # HTML formatting...
 
@@ -261 +258 @@
 }
 
+sub wrap_text_in_columns
+{
+    my ($text, $columnwidth) = @_;
+    my $newtext = "";
+    my $linelength = 0;
+    
+    # Break the text into words, and display one at a time
+    my @words = split(/ /, $text);
+
+    foreach $word (@words) {
+    # If printing this word would exceed the column end, start a new line
+    if (($linelength + length($word)) >= $columnwidth) {
+        $newtext .= "\n";
+        $linelength = 0;
+    }
+    
+    # Write the word
+    $newtext .= " $word";
+    if ($word =~ /\n/) {
+        $linelength = 0;
+    } else {
+        $linelength = $linelength + length(" $word");
+    }
+    }
+
+    $newtext .= "\n";
+    return $newtext;
+}