version 1.190, 2004/12/22 22:05:40
|
version 1.192, 2005/01/11 19:38:53
|
Line 116 sub get_target {
|
Line 116 sub get_target {
|
return ('web','answer'); |
return ('web','answer'); |
} |
} |
} elsif ( $ENV{'form.problemmode'} eq &mt('Edit') || |
} elsif ( $ENV{'form.problemmode'} eq &mt('Edit') || |
$ENV{'form.problemmode'} ee 'Edit') { |
$ENV{'form.problemmode'} eq 'Edit') { |
if ( $ENV{'form.submitted'} eq 'edit' ) { |
if ( $ENV{'form.submitted'} eq 'edit' ) { |
if ( $ENV{'form.submit'} eq &mt('Submit Changes and View') ) { |
if ( $ENV{'form.submit'} eq &mt('Submit Changes and View') ) { |
return ('modified','web','answer'); |
return ('modified','web','answer'); |
Line 320 sub check_access {
|
Line 320 sub check_access {
|
&Apache::lonxml::debug("looking for accesstime $first_access"); |
&Apache::lonxml::debug("looking for accesstime $first_access"); |
if (!$first_access) { |
if (!$first_access) { |
$status='NOT_YET_VIEWED'; |
$status='NOT_YET_VIEWED'; |
$datemsg=' '.$interval.' seconds'; |
$datemsg=&seconds_to_human_length($interval); |
} else { |
} else { |
my $newdate=localtime($first_access+$interval); |
my $newdate=localtime($first_access+$interval); |
if (time > ($first_access+$interval)) { |
if (time > ($first_access+$interval)) { |
Line 348 sub check_access {
|
Line 348 sub check_access {
|
return ($status,$datemsg); |
return ($status,$datemsg); |
} |
} |
|
|
|
sub seconds_to_human_length { |
|
my ($length)=@_; |
|
|
|
my $seconds=$length%60; $length=int($length/60); |
|
my $minutes=$length%60; $length=int($length/60); |
|
my $hours=$length%24; $length=int($length/24); |
|
my $days=$length; |
|
|
|
my $timestr; |
|
if ($days > 0) { $timestr.=&mt('[quant,_1,day]',$days); } |
|
if ($hours > 0) { $timestr.=($timestr?", ":""). |
|
&mt('[quant,_1,hour]',$hours); } |
|
if ($minutes > 0) { $timestr.=($timestr?", ":""). |
|
&mt('[quant,_1,minute]',$minutes); } |
|
if ($seconds > 0) { $timestr.=($timestr?", ":""). |
|
&mt('[quant,_1,second]',$seconds); } |
|
return $timestr; |
|
} |
|
|
sub showhash { |
sub showhash { |
my (%hash) = @_; |
my (%hash) = @_; |
&showhashsubset(\%hash,'.'); |
&showhashsubset(\%hash,'.'); |
Line 849 sub handler {
|
Line 868 sub handler {
|
$ENV{'form.problemmode'}='View'; |
$ENV{'form.problemmode'}='View'; |
&renderpage($request,$file); |
&renderpage($request,$file); |
} elsif ($ENV{'form.problemmode'} eq &mt('EditXML') || |
} elsif ($ENV{'form.problemmode'} eq &mt('EditXML') || |
$ENV{'form.problemmode'} eq 'EditXML' { |
$ENV{'form.problemmode'} eq 'EditXML') { |
&editxmlmode($request,$file); |
&editxmlmode($request,$file); |
} elsif ($ENV{'form.problemmode'} eq &mt('Calculate answers')) { |
} elsif ($ENV{'form.problemmode'} eq &mt('Calculate answers')) { |
&analyze($request,$file); |
&analyze($request,$file); |