version 1.5, 2005/03/28 21:49:31
|
version 1.8, 2005/03/31 21:24:29
|
Line 61 sub proctor_check_auth {
|
Line 61 sub proctor_check_auth {
|
return 0; |
return 0; |
} |
} |
|
|
|
sub add_previous_version_button { |
|
my $result; |
|
$result.=' Show a previously done version: <select name="previousversion"> |
|
<option>Pick one</option> |
|
</select>'; |
|
return $result; |
|
} |
|
|
sub start_Task { |
sub start_Task { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
|
Line 73 sub start_Task {
|
Line 81 sub start_Task {
|
my ($result,$head_tag_start,$body_tag_start,$form_tag_start)= |
my ($result,$head_tag_start,$body_tag_start,$form_tag_start)= |
&Apache::structuretags::page_start($target,$token,$tagstack,$parstack,$parser,$safeeval); |
&Apache::structuretags::page_start($target,$token,$tagstack,$parstack,$parser,$safeeval); |
|
|
|
if ($target eq 'web') { |
|
$body_tag_start.=&add_previous_version_button(); |
|
} |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || |
if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || |
$target eq 'tex') { |
$target eq 'tex') { |
($status,$accessmsg,$slot) = |
($status,$accessmsg,$slot) = |
Line 153 sub end_Task {
|
Line 164 sub end_Task {
|
($target eq 'answer') || ($target eq 'tex') |
($target eq 'answer') || ($target eq 'tex') |
) { |
) { |
if ($target eq 'web') { |
if ($target eq 'web') { |
|
$result.='<table border="1">'. |
|
&Apache::inputtags::file_selector("bridge","task","*", |
|
'portfolioonly'). |
|
"</table>"; |
$result.=&Apache::lonxml::xmlend().'</html>'; |
$result.=&Apache::lonxml::xmlend().'</html>'; |
} |
} |
} |
} |
Line 173 sub start_ClosingParagraph {
|
Line 188 sub start_ClosingParagraph {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $result; |
my $result; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$result='<table border="1"><tr><td>Closing</td></tr><tr><td>'; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 182 sub end_ClosingParagraph {
|
Line 196 sub end_ClosingParagraph {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $result; |
my $result; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$result='</td></tr></table>'; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 205 sub end_Dimension {
|
Line 218 sub end_Dimension {
|
#then start repicking |
#then start repicking |
my $instance=$dimension{'instances'}->[0]; |
my $instance=$dimension{'instances'}->[0]; |
$result=$dimension{'intro'}. |
$result=$dimension{'intro'}. |
$dimension{$instance.'.text'}. |
$dimension{$instance.'.text'}; |
'<table border="1"><tr><td>Criteria</td></tr><tr><td>'; |
#FIXME: don't show the criteria yet |
foreach my $id (@{$dimension{$instance.'.criterias'}}) { |
#foreach my $id (@{$dimension{$instance.'.criterias'}}) { |
$result.=$dimension{$instance.'.criteria.'.$id}. |
# $result.=$dimension{$instance.'.criteria.'.$id}; |
'</td></tr><tr><td>'; |
#} |
} |
|
$result=~s/<tr><td>$//; |
|
$result.='</table>'; |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 223 sub start_IntroParagraph {
|
Line 233 sub start_IntroParagraph {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
if ($tagstack->[-2] eq 'Dimension') { |
if ($tagstack->[-2] eq 'Dimension') { |
&Apache::lonxml::startredirection(); |
&Apache::lonxml::startredirection(); |
} else { |
|
$result='<table border="1"><tr><td>Intro</td></tr><tr><td>'; |
|
} |
} |
} |
} |
return $result; |
return $result; |
Line 236 sub end_IntroParagraph {
|
Line 244 sub end_IntroParagraph {
|
if ($target eq 'web') { |
if ($target eq 'web') { |
if ($tagstack->[-2] eq 'Dimension') { |
if ($tagstack->[-2] eq 'Dimension') { |
$dimension{'intro'}=&Apache::lonxml::endredirection(); |
$dimension{'intro'}=&Apache::lonxml::endredirection(); |
} else { |
|
$result='</td></tr></table>'; |
|
} |
} |
} |
} |
return $result; |
return $result; |
Line 295 sub proctor_validation_screen {
|
Line 301 sub proctor_validation_screen {
|
my ($slot) = @_; |
my ($slot) = @_; |
my (undef,undef,$domain,$user) = &Apache::lonxml::whichuser(); |
my (undef,undef,$domain,$user) = &Apache::lonxml::whichuser(); |
my $url=&Apache::lonnet::studentphoto($domain,$user,'jpg'); |
my $url=&Apache::lonnet::studentphoto($domain,$user,'jpg'); |
my $dom=(&Apache::lonxml::whichuser())[2]; |
$user=$ENV{'form.proctorname'}; |
my $user=$ENV{'form.proctorname'}; |
if ($ENV{'form.proctordomain'}) { $domain=$ENV{'form.proctordomain'}; } |
if ($ENV{'form.proctordomain'}) { $dom=$ENV{'form.proctordomain'}; } |
|
my $msg; |
my $msg; |
if ($ENV{'form.proctorpassword'}) { |
if ($ENV{'form.proctorpassword'}) { |
$msg='<p><font color="red">'.&mt("Failed to authenticate the proctor.") |
$msg='<p><font color="red">'.&mt("Failed to authenticate the proctor.") |
Line 313 sub proctor_validation_screen {
|
Line 318 sub proctor_validation_screen {
|
<table> |
<table> |
<tr><td>Proctor's Username:</td><td><input type="string" name="proctorname" value="$user" /></td></tr> |
<tr><td>Proctor's Username:</td><td><input type="string" name="proctorname" value="$user" /></td></tr> |
<tr><td>Password:</td><td><input type="password" name="proctorpassword" value="" /></td></tr> |
<tr><td>Password:</td><td><input type="password" name="proctorpassword" value="" /></td></tr> |
<tr><td>Proctor's Domain:</td><td><input type="string" name="proctordomain" value="$dom" /></td></tr> |
<tr><td>Proctor's Domain:</td><td><input type="string" name="proctordomain" value="$domain" /></td></tr> |
</table> |
</table> |
<input type="submit" name="checkoutbutton" value="Validate" /><br /> |
<input type="submit" name="checkoutbutton" value="Validate" /><br /> |
Student who should be logged in is:<br /> |
Student who should be logged in is:<br /> |