version 1.12.2.1, 2006/06/02 21:39:02
|
version 1.13, 2006/06/02 21:36:21
|
Line 30 $|=1;
|
Line 30 $|=1;
|
use strict; |
use strict; |
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
|
use LONCAPA; |
use HTTP::Headers; |
use HTTP::Headers; |
use IO::File; |
use IO::File; |
|
|
Line 211 sub showact {
|
Line 211 sub showact {
|
print("</tr></table>\n"); |
print("</tr></table>\n"); |
} |
} |
|
|
# -------------------------------------------------------- Escape Special Chars |
|
|
|
sub escape { |
|
my $str=shift; |
|
$str =~ s/(\W)/"%".unpack('H2',$1)/eg; |
|
return $str; |
|
} |
|
|
|
# ----------------------------------------------------- Un-Escape Special Chars |
|
|
|
sub unescape { |
|
my $str=shift; |
|
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
return $str; |
|
} |
|