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 /> |