Mercurial > judyates

comparison perl/pets.pl @ 15:b6ba604307fc judyates

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r16] changed the menus to a parenthesized form. Final tests for live site completed.
author rlm
date Mon, 12 Apr 2010 05:20:34 -0400
parents 60668cf4f443
children 903b91a97990
comparison
equal deleted inserted replaced
14:34fdec47b0a0 15:b6ba604307fc
188 188
189 <table cellpadding="0" cellspacing="0" width="640"> 189 <table cellpadding="0" cellspacing="0" width="640">
190 190
191 HERE 191 HERE
192 192
193 $menux = '<div class = "menu"><ul class = "menu"><li class = "menu"><a class = "menu" href = "./pets1.html">Cats</a></li><li class = "menu"><a class = "menu" href = "./pets2.html">Dogs</a></li><li class = "menu"><a class = "menu" href = "./pets3.html">Horses</a></li></ul></div>'; 193 $menux = '<div class = "menu"><ul class = "menu"><li class = "menu"><a class = "menu" href = "./pets1.html">( Cats</a></li><li class = "menu"><a class = "menu" href = "./pets2.html">Dogs</a></li><li class = "menu"><a class = "menu" href = "./pets3.html">Horses )</a></li></ul></div>';
194 print "<tr><td>$menux</td></tr></table>"; 194 print "<tr><td>$menux</td></tr></table>";
195 195
196 196
197 $start = 0; 197 $start = 0;
198 $end = $#namess; 198 $end = $#namess;