loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.219, 2004/10/12 23:26:48
+version 1.221, 2004/10/21 09:53:44
  Line 3293  sub DrawBarGraph {
      }
      #
      my ($height,$width,$xskip,$bar_width) = (200,120,1,15);
-     if ($NumBars < 10) {
+     if ($NumBars < 5) {
+         $width = 120+$NumBars*25;
+         $xskip = 1;
+         $bar_width = 25;
+     } elsif ($NumBars < 10) {
          $width = 120+$NumBars*15;
          $xskip = 1;
          $bar_width = 15;
- Line 3728  sub connection_aborted {
+ Line 3732  sub connection_aborted {
      return $c->aborted();
  }
+ #
+ #    Escapes strings that may have embedded 's that will be put into
+ #    javascript strings as 'strings'.
+ #    The assumptions are:
+ #       There has been no effort to escape ' with \'
+ #       Any \'s in the string are intended to be there as part of the URL
+ #        and must also be escaped.
+ # Parameters:
+ #     input     - The string to escape.
+ # Returns:
+ #     The escaped string (' replaced by \' and \ replaced by \\).
+ #
+ sub javascript_escape {
+     my ($input) = @_;
+     #  I imagine a regexp wizard could combine the two expressions below.
+     #  If you do you might want to comment the result.
+     $input =~ s/\\/\\\\/g;	# Escape the /'s..(must be first)>
+     $input =~ s/\'/\\\'/g;	# Esacpe the 's....
+     return $input;
+ }
  =pod
  =back