Changeset 4176

Timestamp:

2003-04-17T13:38:56+12:00 (21 years ago)

Author:

dana

Message:

fixing up long lines

File:

• trunk/gsdl/cgi-bin/usabcgi.pm (modified) (1 diff)

trunk/gsdl/cgi-bin/usabcgi.pm

@@ -94 +94 @@
     foreach $pair (@pairs) {
     ($name, $value)= split(/ := /,$pair);
+    #this splits long values up for display purposes
+        @tmplist = split(/ /,$value);
+        foreach $item (@tmplist){
+            if(length $item > 60){
+                $tmp="";
+                while(length $item > 60){
+                    $tmp.= substr $item, 0, 60;
+                    $tmp.=" ";
+                    $item = substr $item, 60;
+                }
+                $tmp.=$item;
+                $item=$tmp;
+            }        
+    }
     #this adds html tags for breaks
     $value =~ s/\n/\<br\>\n/g;