Changeset 4085


Ignore:
Timestamp:
2003-04-02T21:58:28+12:00 (21 years ago)
Author:
dana
Message:

tidying up UI for test run, moved some functionality into usabcgi

Location:
trunk/gsdl/cgi-bin
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/cgi-bin/perl.cgi

    r4072 r4085  
    1616print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">\n";
    1717
    18 $ENV{HTTP_USER_AGENT}=~/([^\/]*)\/([0-9]+\.[0-9]+)/;
    19 if(($1 ne "Netscape")||($2 > 4.77)){
    20     print "<style type=\"text/css\">\n";
    21     print "\th1 \{font-family: sans-serif; font-size: 20px}\n";
    22     print "\tp.sans {font-family: sans-serif}\n";
    23     print "\ttd.sans {font-family: sans-serif}\n";
    24     print "</style>\n"
    25 }
    26 
    27 
    28 print "<script type=\"text/javascript\">\n";
     18usabcgi::printstyle($ENV{HTTP_USER_AGENT});
     19usabcgi::printscript;
    2920#print "timeleft=21;\n";
    3021#print "function timerdisplay(){\n";
    … …  
    6152}
    6253
    63 print "<p class=\"sans\"><a href=\"http://nzdl2.cs.waikato.ac.nz/cgi-bin/dana/library?a=p&p=Usability\" target=\"_blank\">About</a> &#8226; <a href=\"http://nzdl2.cs.waikato.ac.nz/cgi-bin/dana/library?a=p&p=Privacy\" target=\"_blank\">Privacy</a>";
    64 print "<p>Your comments have been noted.  Thank you for helping us make Greenstone more usable!";
     54usabcgi::printaplinks;
     55print "<p>Your comments have been noted. <p>Thank you for helping us make Greenstone more usable.";
    6556print "<table width=\"400px\"><tr>\n";
    6657print "<td class=\"sans\"><a href=\"readresults.cgi?$idno\" target=\"_blank\">View report details</a></td>\n";

  • trunk/gsdl/cgi-bin/readresults.cgi

    r4073 r4085  
    77
    88print "<html><head><title>Greenstone Usability - Report Details</title>\n";
    9 $ENV{HTTP_USER_AGENT}=~/([^\/]*)\/([0-9]+\.[0-9]+)/;
    10 if(($1 ne "Netscape")||($2 > 4.77)){
    11     print "<style type=\"text/css\">\n";
    12     print "\th1 \{font-family: sans-serif; font-size: 20px}\n";
    13     print "\th2 \{font-family: sans-serif; font-size: 14px; color: #009966\}\n";     
    14     print "\ttd.sans {font-family:sans-serif; width: 50%; vertical-align:top}\n";   
    15     print "</style>\n"
    16 }
    17 print "</head><body>\n";
     9usabcgi::printscript;
     10usabcgi::printstyle($ENV{HTTP_USER_AGENT});
     11
     12print "</head><body bgcolor=\"#ffffff\">\n";
    1813
    1914($imageloc) = usabcgi::get_config_info("httpimg");
    … …  
    2419if ($imageloc) { print "<img src=\"$imageloc\/usabbanner.gif\" alt=\"Greenstonekoru design\" title=\"Greenstone koru design\">"; }
    2520print "</td>\n</tr></table>";
     21usabcgi::printaplinks;
    2622 
    2723if((!($ENV{QUERY_STRING}=~/\d/)) || ($ENV{QUERY_STRING}=~/\D/) ) {
    … …  
    4137if(!($etcfile=~ /$ENV{QUERY_STRING}/)) {
    4238    print "<h2>Each report sent has an ID number.  This program needs one of those ID numbers to work, and the ID number provided wans't found</h2></body></html>"; 
    43     die;
     39    die;$ENV{HTTP_USER_AGENT}=~/([^\/]*)\/([0-9]+\.[0-9]+)/;
     40if(($1 ne "Netscape")||($2 > 4.77)){
     41    print "<style type=\"text/css\">\n";
     42    print "\th1 \{font-family: sans-serif; font-size: 20px}\n";
     43    print "\th2 \{font-family: sans-serif; font-size: 14px; color: #009966\}\n";     
     44    print "\ttd.sans {font-family:sans-serif; width: 50%; vertical-align:top}\n";   
     45    print "</style>\n"
     46}
    4447}
    4548
    … …  
    6265
    6366print "<p>Your automatically generated report ID number is: <b>$reportvals{\"report-id\"}</b>";
     67$reportid = $reportvals{"report-id"};
    6468delete $reportvals{"report-id"};
    6569
    … …  
    7983make_table_entry("The colour of your screen","screencolour");
    8084make_table_entry("The number of bits per pixel your display uses to represent colour","pixeldepth");
    81 print"</table>";
     85print "</table>";
    8286
    8387print "<h2>You provided us with the following extra information about the problem</h2>\n";
    … …  
    8993print "</table>\n";
    9094
    91 print "<h2>The following data was automatically collected from the form on the greenstone interface</h2>\n";
     95print "<h2>The following data was automatically collected from the form on the Greenstone interface</h2>\n";
    9296
    9397print"<table>\n";
    … …  
    99103}
    100104print "</table>\n";
     105
     106print "<br><br><p class=\"sans\"><a href=\"mailto:dmn&#064;cs.waikato.ac.nz\">Contact us</a> with any queries or if you would like this report to be removed from the database.  Please include your report ID number ($reportid) if your query concerns this report specifically.";
    101107   
    102108print "</body></html>";
Note: See TracChangeset for help on using the changeset viewer.