Last change
on this file since 18319 was 11655, checked in by kjdon, 18 years ago |
changed email address to greenstone instead of dmn
|
-
Property svn:executable
set to
*
-
Property svn:keywords
set to
Author Date Id Revision
|
File size:
1.3 KB
|
Line | |
---|
1 | #!/usr/bin/perl
|
---|
2 |
|
---|
3 | use usabcgi;
|
---|
4 |
|
---|
5 | print "Content-type:text/html\n\n";
|
---|
6 |
|
---|
7 |
|
---|
8 | print "<html><head><title>Greenstone Usability - Track Report</title>\n";
|
---|
9 | usabcgi::printscript;
|
---|
10 | usabcgi::printstyle($ENV{HTTP_USER_AGENT});
|
---|
11 |
|
---|
12 | print "</head><body bgcolor=\"#ffffff\">\n";
|
---|
13 |
|
---|
14 | usabcgi::printbanner("Track Report");
|
---|
15 | usabcgi::printaplinks;
|
---|
16 |
|
---|
17 | usabcgi::checkidno;
|
---|
18 |
|
---|
19 | %reportvals=usabcgi::getusabreportdetails;
|
---|
20 |
|
---|
21 | print "<h2>Your automatically generated report ID number is: $reportvals{\"report-id\"}</h2>\n";
|
---|
22 |
|
---|
23 | print "<p>Thank you very much for helping us improve the usability of the Greenstone software\n<p>We received your report at $reportvals{\"time\"}, any updates are shown below.\n<p>To track this report continue to use the URL <a href=\"http://$ENV{HTTP_HOST}$ENV{SCRIPT_NAME}?$ENV{QUERY_STRING}\">http://$ENV{HTTP_HOST}$ENV{SCRIPT_NAME}?$ENV{QUERY_STRING}</a>.\n";
|
---|
24 |
|
---|
25 | print "<h2>Updates on this report</h2>\n";
|
---|
26 | if(!(defined($reportvals{"update"}))){ print "<p>None at this time.</p>\n"; }
|
---|
27 | else { print $reportvals{"update"}; }
|
---|
28 |
|
---|
29 | print "<br><br><p class=\"sans\"><a href=\"mailto:greenstone@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 ($ENV{QUERY_STRING}) if your query concerns this report specifically.\n";
|
---|
30 |
|
---|
31 |
|
---|
32 |
|
---|
33 | print "</body></html>";
|
---|
34 |
|
---|
35 |
|
---|
36 |
|
---|
37 |
|
---|
38 |
|
---|
39 |
|
---|
40 |
|
---|
41 |
|
---|
42 |
|
---|
43 |
|
---|
44 |
|
---|
45 |
|
---|
46 |
|
---|
47 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.