version 1.60, 2001/08/20 14:24:12
|
version 1.64, 2001/08/20 19:27:26
|
Line 98 sub start_problem {
|
Line 98 sub start_problem {
|
my $token=$Apache::lonhomework::history{"resource.0.outtoken"}; |
my $token=$Apache::lonhomework::history{"resource.0.outtoken"}; |
if (($ENV{'form.doescheckout'}) && (!$token)) { |
if (($ENV{'form.doescheckout'}) && (!$token)) { |
$token=&Apache::lonxml::maketoken(); |
$token=&Apache::lonxml::maketoken(); |
|
$Apache::lonhomework::history{"resource.0.outtoken"}=$token; |
} |
} |
$body_tag_start.=&Apache::lonxml::printtokenheader($target,$token); |
$body_tag_start.=&Apache::lonxml::printtokenheader($target,$token); |
} |
} |
if ($target eq 'meta') { |
|
|
|
return (<<ENDSTORES); |
|
<stores part="0" name="outtoken" type="string" |
|
display="Document ID checked out"></stores> |
|
<stores part="0" name="checkouttime" type="date" |
|
display="Time checked out"></stores> |
|
<stores part="0" name="outremote" type="string" |
|
display="Client IP checked out from"></stores> |
|
|
|
<stores part="0" name="intoken" type="string" |
|
display="Document ID checked in"></stores> |
|
<stores part="0" name="checkintime" type="date" |
|
display="Time checked in"></stores> |
|
<stores part="0" name="inremote" type="string" |
|
display="Client IP checked in from"></stores> |
|
ENDSTORES |
|
} |
|
} |
} |
if ($target eq 'web' || $target eq 'grade') { |
if ($target eq 'web' || $target eq 'grade') { |
($status,$accessmsg) = &Apache::lonhomework::check_access('0'); |
($status,$accessmsg) = &Apache::lonhomework::check_access('0'); |