|
version 1.15, 2008/10/13 14:06:47
|
version 1.17, 2009/05/11 16:51:22
|
|
Line 32 use LONCAPA;
|
Line 32 use LONCAPA;
|
| |
|
| sub deletedata { |
sub deletedata { |
| my ($id)=@_; |
my ($id)=@_; |
| &Apache::lonnet::delenv("imagechoice\\.$id\\.coords"); |
&Apache::lonnet::delenv('imagechoice.'.$id.'.coords'); |
| } |
} |
| |
|
| sub closewindow { |
sub closewindow { |
|
Line 147 sub getcoord {
|
Line 147 sub getcoord {
|
| $r->print(<<"END"); |
$r->print(<<"END"); |
| $start_page |
$start_page |
| <h3>$heading</h3> |
<h3>$heading</h3> |
| <form method="POST" action="/adm/imagechoice?token=$id"> |
<form method="post" action="/adm/imagechoice?token=$id"> |
| $nextstage |
$nextstage |
| <input type="submit" name="cancel" value="$canceltext" /> |
<input type="submit" name="cancel" value="$canceltext" /> |
| <br /> |
<br /> |
![[BACK]](/icons/back.gif){kind=icon}
Return to imagechoice.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework