Changeset 5976

Timestamp:

2003-11-25T15:17:09+13:00 (20 years ago)

Author:

nzdl

Message:

puka and cvs version were differenet and dana said that puka version was better, so committing it

Location:

trunk/gsdl/cgi-bin

Files:

• perl.cgi (modified) (1 diff)
• readresults.cgi (modified) (5 diffs)
• usabcgi.pm (modified) (1 diff)

trunk/gsdl/cgi-bin/perl.cgi

@@ -42 +42 @@
 $fileoutloc .= "etc/usability.txt";
 
-if(!(-e $fileoutloc)){
+if(-e $fileoutloc){
     open FILEOUT, (">>$fileoutloc");
 }

trunk/gsdl/cgi-bin/readresults.cgi

@@ -24 +24 @@
 
 print "<h2>The following technical information was automatically collected about your problem:</h2>\n";
-print "<table><width=\"100%\">\n";
+print "<table width=\"100%\">\n";
 
 make_table_entry("The URL of the page where you were having problems","URL");
@@ -43 +43 @@
 print "<h2>You provided us with the following extra information about the problem</h2>\n";
 
-print"<table>\n";
+print"<table width=\"100%\">\n";
 make_table_entry("How bad the problem was","severity");
 make_table_entry("What kind of problem it was","probtype");
@@ -51 +51 @@
 print "<h2>The following data was automatically collected from the form on the Greenstone interface</h2>\n";
 
-print"<table>\n";
+print"<table width=\"100%\">\n";
 print "<tr><td class=\"sans\"><b>Type of input</b></td><td class=\"sans\"><b>Name of input</b></td><td class=\"sans\"><b>Value of input</b></td></tr>\n";
 
@@ -57 +57 @@
     if($key ne "update"){
     $key=~/-/;
-    print "<tr><td>$`</td><td>$'</td><td>$reportvals{$key}</td></tr>\n";
+    print "<tr><td width=\"33%\">$`</td><td width=\"33%\">$'</td><td width=\"34%\">$reportvals{$key}</td></tr>\n";
     }
 }
@@ -71 +71 @@
     local ($desc, $entry) = @_;
     print "<tr><td class=\"sans\" width=\"50%\"><strong>$desc:</strong></td>";
-    print "<td>$reportvals{$entry}</td></tr>\n";
+    print "<td width=\"50%\">$reportvals{$entry}</td></tr>\n";
     delete $reportvals{$entry};
 

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;
-            }        
+    @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;
+        }
     }
-    $value = join(/ /,@tmplist);
-
+    $value = join(' ',@tmplist);
+    
     #this adds html tags for breaks
     $value =~ s/\n/\<br\>\n/g;