version 1.119, 2001/08/20 14:53:12
|
version 1.121, 2001/08/20 23:31:08
|
Line 153 sub xmlend {
|
Line 153 sub xmlend {
|
} |
} |
|
|
sub tokeninputfield { |
sub tokeninputfield { |
my $defhost=$Apache::lonnet::perlvar{'lonhostID'}; |
my $defhost=$Apache::lonnet::perlvar{'lonHostID'}; |
|
$defhost=~tr/a-z/A-Z/; |
return (<<ENDINPUTFIELD) |
return (<<ENDINPUTFIELD) |
<form method="post"> |
<script> |
|
function updatetoken() { |
|
var comp=new Array; |
|
var barcode=unescape(document.tokeninput.barcode.value); |
|
comp=barcode.split('*'); |
|
if (typeof(comp[0])!="undefined") { |
|
document.tokeninput.codeone.value=comp[0]; |
|
} |
|
if (typeof(comp[1])!="undefined") { |
|
document.tokeninput.codetwo.value=comp[1]; |
|
} |
|
if (typeof(comp[2])!="undefined") { |
|
comp[2]=comp[2].toUpperCase(); |
|
document.tokeninput.codethree.value=comp[2]; |
|
} |
|
document.tokeninput.barcode.value=''; |
|
} |
|
</script> |
|
<form method="post" name="tokeninput"> |
<table border="2" bgcolor="#FFFFBB"> |
<table border="2" bgcolor="#FFFFBB"> |
<tr><th>DocID Checkin</th></tr> |
<tr><th>DocID Checkin</th></tr> |
<tr><td> |
<tr><td> |
<table> |
<table> |
<tr> |
<tr> |
<td>Scan in Barcode</td> |
<td>Scan in Barcode</td> |
<td><input type="text" size="22" name="barcode" /></td> |
<td><input type="text" size="22" name="barcode" |
|
onChange="updatetoken()"/></td> |
</tr> |
</tr> |
<tr><td><i>or</i> Type in DocID</td> |
<tr><td><i>or</i> Type in DocID</td> |
<td> |
<td> |
<input type="text" size="5" name="codeone" /> |
<input type="text" size="5" name="codeone" /> |
<b><font size+"+2"*</font></b> |
<b><font size="+2">*</font></b> |
<input type="text" size="5" name="codetwo" /> |
<input type="text" size="5" name="codetwo" /> |
<b><font size+"+2"*</font></b> |
<b><font size="+2">*</font></b> |
<input type="text" size="10" name="codethree" value="$defhost" /> |
<input type="text" size="10" name="codethree" value="$defhost" |
|
onChange="this.value=this.value.toUpperCase()" /> |
</td></tr> |
</td></tr> |
</table> |
</table> |
</td></tr> |
</td></tr> |
Line 224 sub printtokenheader {
|
Line 245 sub printtokenheader {
|
'<br />DocID: '.$token. |
'<br />DocID: '.$token. |
'<br />Time: '.localtime().'<hr />'; |
'<br />Time: '.localtime().'<hr />'; |
} else { |
} else { |
return $token; |
return $token; |
} |
} |
} |
} |
|
|
Line 414 sub htmlclean {
|
Line 435 sub htmlclean {
|
|
|
sub inner_xmlparse { |
sub inner_xmlparse { |
my ($target,$stack,$parstack,$pars,$safeeval,$style_for_target)=@_; |
my ($target,$stack,$parstack,$pars,$safeeval,$style_for_target)=@_; |
&Apache::lonxml::debug('Reentrant parser starting, again?'); |
|
my $finaloutput = ''; |
my $finaloutput = ''; |
my $result; |
my $result; |
my $token; |
my $token; |
Line 717 sub init_safespace {
|
Line 737 sub init_safespace {
|
#need to inspect this class of ops |
#need to inspect this class of ops |
# $safeeval->deny(":base_orig"); |
# $safeeval->deny(":base_orig"); |
$safeinit .= ';$external::target="'.$target.'";'; |
$safeinit .= ';$external::target="'.$target.'";'; |
$safeinit .= ';$external::randomseed='.&Apache::lonnet::rndseed().';'; |
my $rndseed; |
|
if (exists(&Apache::lonhomework::whichuser)) { |
|
my ($symb,$courseid,$domain,$name) = &Apache::lonhomework::whichuser(); |
|
$rndseed=&Apache::lonnet::rndseed($symb,$courseid,$domain,$name); |
|
} else { |
|
$rndseed=&Apache::lonnet::rndseed(); |
|
} |
|
$safeinit .= ';$external::randomseed='.$rndseed.';'; |
&Apache::run::run($safeinit,$safeeval); |
&Apache::run::run($safeinit,$safeeval); |
} |
} |
|
|