Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

fixed stylesheet bugs introduced in 2.94

  • Loading branch information...
commit fa7191d1f0339644673b97ad771b93845c11cd80 1 parent 529e529
authored

Showing 2 changed files with 13 additions and 6 deletions. Show diff stats Hide diff stats

  1. 10  CGI.pm
  2. 9  cgi_docs.html
10  CGI.pm
@@ -18,8 +18,8 @@ use Carp 'croak';
18 18
 # The most recent version and complete docs are available at:
19 19
 #   http://stein.cshl.org/WWW/software/CGI/
20 20
 
21  
-$CGI::revision = '$Id: CGI.pm,v 1.121 2003-06-06 19:25:22 lstein Exp $';
22  
-$CGI::VERSION='2.94';
  21
+$CGI::revision = '$Id: CGI.pm,v 1.122 2003-06-13 02:32:42 lstein Exp $';
  22
+$CGI::VERSION='2.95';
23 23
 
24 24
 # HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
25 25
 # UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING.
@@ -1530,10 +1530,12 @@ sub _style {
1530 1530
       }
1531 1531
       if ($verbatim) {
1532 1532
          push(@result, "<style type=\"text/css\">\n$verbatim\n</style>");
1533  
-    }      
  1533
+    }
1534 1534
       push(@result,style({'type'=>$type},"$cdata_start\n$code\n$cdata_end")) if $code;
1535 1535
     } else {
1536  
-     push(@result,style({'type'=>$type},"$cdata_start\n$style\n$cdata_end"));
  1536
+         my $src = $style;
  1537
+         push(@result,$XHTML ? qq(<link rel="stylesheet" type="$type" href="$src" @other/>)
  1538
+                             : qq(<link rel="stylesheet" type="$type" href="$src"@other>));
1537 1539
     }
1538 1540
     @result;
1539 1541
 }
9  cgi_docs.html
@@ -7,7 +7,7 @@
7 7
 <BODY bgcolor="#FFFFFF">
8 8
 <H1><IMG SRC="examples/dna.small.gif" ALT="[logo]">
9 9
 CGI.pm - a Perl5 CGI Library</H1>
10  
-Version 2.94, 6/1/2003, L. Stein
  10
+Version 2.95, 6/11/2003, L. Stein
11 11
 <p>
12 12
 
13 13
 <H2>Abstract</H2> This perl 5 library uses objects to create Web
@@ -4802,6 +4802,11 @@
4802 4802
 <HR>
4803 4803
 
4804 4804
 <H2><A NAME="new">Revision History</A></H2>
  4805
+<h3>Version 2.95</h3>
  4806
+<ol>
  4807
+  <li>Fixed bugs in start_html(-style=&gt;...) support introduced
  4808
+      in 2.94.
  4809
+</ol>
4805 4810
 <h3>Version 2.94</h3>
4806 4811
 <ol>
4807 4812
   <li>Removed warning from reset() method.
@@ -5869,6 +5874,6 @@
5869 5874
 <a href="http://www.cshl.org/">Cold Spring Harbor Laboratory</a></ADDRESS>
5870 5875
 <P>
5871 5876
 <!-- hhmts start -->
5872  
-Last modified: Fri Jun  6 15:23:02 EDT 2003
  5877
+Last modified: Thu Jun 12 22:32:01 EDT 2003
5873 5878
 <!-- hhmts end -->
5874 5879
 </BODY> </HTML>

0 notes on commit fa7191d

Please sign in to comment.
Something went wrong with that request. Please try again.