- Timestamp:
- 2003-11-25T15:17:09+13:00 (21 years ago)
- Location:
- trunk/gsdl/cgi-bin
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/cgi-bin/perl.cgi
r4158 r5976 42 42 $fileoutloc .= "etc/usability.txt"; 43 43 44 if( !(-e $fileoutloc)){44 if(-e $fileoutloc){ 45 45 open FILEOUT, (">>$fileoutloc"); 46 46 } -
trunk/gsdl/cgi-bin/readresults.cgi
r4131 r5976 24 24 25 25 print "<h2>The following technical information was automatically collected about your problem:</h2>\n"; 26 print "<table ><width=\"100%\">\n";26 print "<table width=\"100%\">\n"; 27 27 28 28 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"; 44 44 45 print"<table >\n";45 print"<table width=\"100%\">\n"; 46 46 make_table_entry("How bad the problem was","severity"); 47 47 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"; 52 52 53 print"<table >\n";53 print"<table width=\"100%\">\n"; 54 54 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"; 55 55 … … 57 57 if($key ne "update"){ 58 58 $key=~/-/; 59 print "<tr><td >$`</td><td>$'</td><td>$reportvals{$key}</td></tr>\n";59 print "<tr><td width=\"33%\">$`</td><td width=\"33%\">$'</td><td width=\"34%\">$reportvals{$key}</td></tr>\n"; 60 60 } 61 61 } … … 71 71 local ($desc, $entry) = @_; 72 72 print "<tr><td class=\"sans\" width=\"50%\"><strong>$desc:</strong></td>"; 73 print "<td >$reportvals{$entry}</td></tr>\n";73 print "<td width=\"50%\">$reportvals{$entry}</td></tr>\n"; 74 74 delete $reportvals{$entry}; 75 75 -
trunk/gsdl/cgi-bin/usabcgi.pm
r4820 r5976 94 94 foreach $pair (@pairs) { 95 95 ($name, $value)= split(/ := /,$pair); 96 96 97 #this splits long values up for display purposes 97 98 99 100 101 102 103 104 105 106 107 108 } 98 @tmplist = split(/ /,$value); 99 foreach $item (@tmplist){ 100 if(length $item > 60){ 101 $tmp=""; 102 while(length $item > 60){ 103 $tmp.= substr $item, 0, 60; 104 $tmp.=" "; 105 $item = substr $item, 60; 106 } 107 $tmp.=$item; 108 $item=$tmp; 109 } 109 110 } 110 $value = join( / /,@tmplist);111 111 $value = join(' ',@tmplist); 112 112 113 #this adds html tags for breaks 113 114 $value =~ s/\n/\<br\>\n/g;
Note:
See TracChangeset
for help on using the changeset viewer.