version 1.135, 2008/06/10 16:20:29
|
version 1.136, 2008/06/12 00:46:52
|
Line 1024 sub sec {
|
Line 1024 sub sec {
|
return $sec; |
return $sec; |
} |
} |
|
|
|
sub submission { |
|
my ($partid,$responseid,$subnumber)=@_; |
|
my $sub=''; |
|
if ($subnumber) { $sub=$subnumber.':'; } |
|
return &EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission'); |
|
} |
|
|
|
sub currentpart { |
|
return $external::part; |
|
} |
|
|
sub eval_time { |
sub eval_time { |
my ($timestamp)=@_; |
my ($timestamp)=@_; |
unless ($timestamp) { return ''; } |
unless ($timestamp) { return ''; } |
Line 1048 sub answer_date {
|
Line 1059 sub answer_date {
|
return &eval_time(&EXT('resource.'.$partid.'.answerdate')); |
return &eval_time(&EXT('resource.'.$partid.'.answerdate')); |
} |
} |
|
|
|
sub open_date_epoch { |
|
my ($partid)=@_; |
|
unless ($partid) { $partid=0; } |
|
return &EXT('resource.'.$partid.'.opendate'); |
|
} |
|
|
|
sub due_date_epoch { |
|
my ($partid)=@_; |
|
unless ($partid) { $partid=0; } |
|
return &EXT('resource.'.$partid.'.duedate'); |
|
} |
|
|
|
sub answer_date_epoch { |
|
my ($partid)=@_; |
|
unless ($partid) { $partid=0; } |
|
return &EXT('resource.'.$partid.'.answerdate'); |
|
} |
|
|
sub array_moments { |
sub array_moments { |
my @input=@_; |
my @input=@_; |
my (@output,$N); |
my (@output,$N); |