+ elsif ($code ne "" && ($lang eq "python" or $lang eq "shell")) {
+ $code =~ s/"/"/g;
+ if($lang eq "python") {
+ open(fi, ">$nr.py");print fi $code;close(fi);
+ $nr = $nr + 1;
+ }
+ print "<td bgcolor=\"#ffffff\" width=\"$width\">";
+ print $embed;
+ print "</td>";
+ $code="";
+ print;
+ }