|
version 1.118, 2001/08/18 15:49:28
|
version 1.119, 2001/08/20 14:53:12
|
|
Line 13
|
Line 13
|
| # 6/12,6/13 H. K. Ng |
# 6/12,6/13 H. K. Ng |
| # 6/16 Gerd Kortemeyer |
# 6/16 Gerd Kortemeyer |
| # 7/27 H. K. Ng |
# 7/27 H. K. Ng |
| # 8/7,8/9,8/10,8/11,8/15,8/16,8/17,8/18 Gerd Kortemeyer |
# 8/7,8/9,8/10,8/11,8/15,8/16,8/17,8/18,8/20 Gerd Kortemeyer |
| |
|
| package Apache::lonxml; |
package Apache::lonxml; |
| use vars |
use vars |
|
Line 152 sub xmlend {
|
Line 152 sub xmlend {
|
| return $discussion.'</html>'; |
return $discussion.'</html>'; |
| } |
} |
| |
|
| |
sub tokeninputfield { |
| |
my $defhost=$Apache::lonnet::perlvar{'lonhostID'}; |
| |
return (<<ENDINPUTFIELD) |
| |
<form method="post"> |
| |
<table border="2" bgcolor="#FFFFBB"> |
| |
<tr><th>DocID Checkin</th></tr> |
| |
<tr><td> |
| |
<table> |
| |
<tr> |
| |
<td>Scan in Barcode</td> |
| |
<td><input type="text" size="22" name="barcode" /></td> |
| |
</tr> |
| |
<tr><td><i>or</i> Type in DocID</td> |
| |
<td> |
| |
<input type="text" size="5" name="codeone" /> |
| |
<b><font size+"+2"*</font></b> |
| |
<input type="text" size="5" name="codetwo" /> |
| |
<b><font size+"+2"*</font></b> |
| |
<input type="text" size="10" name="codethree" value="$defhost" /> |
| |
</td></tr> |
| |
</table> |
| |
</td></tr> |
| |
<tr><td><input type="submit" value="Check in DocID" /></td></tr> |
| |
</table> |
| |
</form> |
| |
ENDINPUTFIELD |
| |
} |
| |
|
| sub maketoken { |
sub maketoken { |
| my ($symb,$tuname,$tudom,$tcrsid)=@_; |
my ($symb,$tuname,$tudom,$tcrsid)=@_; |
| unless ($symb) { |
unless ($symb) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml