Permalink
Browse files

fixed stylesheet bugs introduced in 2.94

  • Loading branch information...
1 parent 529e529 commit fa7191d1f0339644673b97ad771b93845c11cd80 lstein committed Jun 13, 2003
Showing with 13 additions and 6 deletions.
  1. +6 −4 CGI.pm
  2. +7 −2 cgi_docs.html
View
10 CGI.pm
@@ -18,8 +18,8 @@ use Carp 'croak';
# The most recent version and complete docs are available at:
# http://stein.cshl.org/WWW/software/CGI/
-$CGI::revision = '$Id: CGI.pm,v 1.121 2003-06-06 19:25:22 lstein Exp $';
-$CGI::VERSION='2.94';
+$CGI::revision = '$Id: CGI.pm,v 1.122 2003-06-13 02:32:42 lstein Exp $';
+$CGI::VERSION='2.95';
# HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
# UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING.
@@ -1530,10 +1530,12 @@ sub _style {
}
if ($verbatim) {
push(@result, "<style type=\"text/css\">\n$verbatim\n</style>");
- }
+ }
push(@result,style({'type'=>$type},"$cdata_start\n$code\n$cdata_end")) if $code;
} else {
- push(@result,style({'type'=>$type},"$cdata_start\n$style\n$cdata_end"));
+ my $src = $style;
+ push(@result,$XHTML ? qq(<link rel="stylesheet" type="$type" href="$src" @other/>)
+ : qq(<link rel="stylesheet" type="$type" href="$src"@other>));
}
@result;
}
View
@@ -7,7 +7,7 @@
<BODY bgcolor="#FFFFFF">
<H1><IMG SRC="examples/dna.small.gif" ALT="[logo]">
CGI.pm - a Perl5 CGI Library</H1>
-Version 2.94, 6/1/2003, L. Stein
+Version 2.95, 6/11/2003, L. Stein
<p>
<H2>Abstract</H2> This perl 5 library uses objects to create Web
@@ -4802,6 +4802,11 @@
<HR>
<H2><A NAME="new">Revision History</A></H2>
+<h3>Version 2.95</h3>
+<ol>
+ <li>Fixed bugs in start_html(-style=&gt;...) support introduced
+ in 2.94.
+</ol>
<h3>Version 2.94</h3>
<ol>
<li>Removed warning from reset() method.
@@ -5869,6 +5874,6 @@
<a href="http://www.cshl.org/">Cold Spring Harbor Laboratory</a></ADDRESS>
<P>
<!-- hhmts start -->
-Last modified: Fri Jun 6 15:23:02 EDT 2003
+Last modified: Thu Jun 12 22:32:01 EDT 2003
<!-- hhmts end -->
</BODY> </HTML>

0 comments on commit fa7191d

Please sign in to comment.