version 1.381, 2005/08/12 21:33:41
|
version 1.381.2.3, 2005/09/16 21:59:56
|
Line 42 use Apache::lonratedt;
|
Line 42 use Apache::lonratedt;
|
use POSIX qw(strftime); |
use POSIX qw(strftime); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
|
my $resources_printed = ''; |
|
|
|
# Compare two students by name. The students are in the form |
# Compare two students by name. The students are in the form |
# returned by the helper: |
# returned by the helper: |
# user:domain:section:last, first:status |
# user:domain:section:last, first:status |
Line 390 sub character_chart {
|
Line 388 sub character_chart {
|
$result =~ s/&(prod|\#8719);/\\ensuremath\{\\prod\}/g; |
$result =~ s/&(prod|\#8719);/\\ensuremath\{\\prod\}/g; |
$result =~ s/&(sum|\#8721);/\\ensuremath\{\\sum\}/g; |
$result =~ s/&(sum|\#8721);/\\ensuremath\{\\sum\}/g; |
$result =~ s/&(minus|\#8722);/\\ensuremath\{-\}/g; |
$result =~ s/&(minus|\#8722);/\\ensuremath\{-\}/g; |
|
$result =~ s/–/\\ensuremath\{-\}/g; |
$result =~ s/&(lowast|\#8727);/\\ensuremath\{*\}/g; |
$result =~ s/&(lowast|\#8727);/\\ensuremath\{*\}/g; |
$result =~ s/&(radic|\#8730);/\\ensuremath\{\\surd\}/g; |
$result =~ s/&(radic|\#8730);/\\ensuremath\{\\surd\}/g; |
$result =~ s/&(prop|\#8733);/\\ensuremath\{\\propto\}/g; |
$result =~ s/&(prop|\#8733);/\\ensuremath\{\\propto\}/g; |
Line 808 sub get_page_breaks {
|
Line 807 sub get_page_breaks {
|
sub output_data { |
sub output_data { |
my ($r,$helper,$rparmhash) = @_; |
my ($r,$helper,$rparmhash) = @_; |
my %parmhash = %$rparmhash; |
my %parmhash = %$rparmhash; |
|
my $resources_printed = ''; |
my $html=&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
my $bodytag=&Apache::loncommon::bodytag('Preparing Printout'); |
my $bodytag=&Apache::loncommon::bodytag('Preparing Printout'); |
$r->print(<<ENDPART); |
$r->print(<<ENDPART); |
Line 1505 sub get_CODE {
|
Line 1505 sub get_CODE {
|
my $max='1'.'0'x$size; |
my $max='1'.'0'x$size; |
my $newcode; |
my $newcode; |
while(1) { |
while(1) { |
$newcode=sprintf("%06d",int(rand($max))); |
$newcode=sprintf("%0".$size."d",int(rand($max))); |
if (!exists($$all_codes{$newcode})) { |
if (!exists($$all_codes{$newcode})) { |
$$all_codes{$newcode}=1; |
$$all_codes{$newcode}=1; |
if ($type eq 'number' ) { |
if ($type eq 'number' ) { |