Changeset 4084

Timestamp:

2003-04-02T21:56:28+12:00 (21 years ago)

Author:

dana

Message:

added a little functionality for printing stuff used by all cgi scripts

File:

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

trunk/gsdl/cgi-bin/usabcgi.pm

@@ -18 +18 @@
     return ($loc);
 }
+
+sub printscript {
+    
+    print "<script type=\"text/javascript\">\n";
+    print "\tfunction showaboutprivacy(url){\n";
+    print "\t\tinfowin=window.open(url,'infowin','toolbars=0, height=600, width=600')\n";
+    print "\t}\n";
+    print "</script>\n";
+}
+
+sub printaplinks {
+    print "<p class=\"sans\">\n";
+    print "<a href=\"javascript:showaboutprivacy('http://nzdl2.cs.waikato.ac.nz/dana/gsdl/about.html')\">About</a>\n &#8226; <a href=\"javascript:showaboutprivacy('http://nzdl2.cs.waikato.ac.nz/dana/gsdl/privacy.html')\">Privacy</a>\n";
+
+}
+
+sub printstyle {
+    ($browser) = @_;
+    $browser=~/([^\/]*)\/([0-9]+\.[0-9]+)/;
+    if(($1 ne "Netscape")||($2 > 4.77)){
+    print "<style type=\"text/css\">\n";
+    print "\th1 {font-family: sans-serif; font-size: 20px}\n";
+    print "\th2 {font-fanily: sans-serif; font-size: 14px; font-weight: bold; color: #009966}\n";
+    print "\tp.sans {font-family: sans-serif}\n";
+    print "\ttd.sans {font-family: sans-serif; vertical-align:top}\n";
+    print "</style>\n";
+    }
+
+}
+
+
+
 
 1;