|
version 1.366, 2003/04/30 21:09:55
|
version 1.367, 2003/05/02 15:26:36
|
|
Line 650 sub comment_access_key {
|
Line 650 sub comment_access_key {
|
| if ($existing{$ckey}) { |
if ($existing{$ckey}) { |
| $existing{$ckey}.='; '.$logentry; |
$existing{$ckey}.='; '.$logentry; |
| # ready to assign |
# ready to assign |
| $logentry=$1.'; '.$logentry; |
if (&put('accesskeys',{$ckey=>$existing{$ckey}}, |
| if (&put('accesskey',{$ckey=>$existing{$ckey}}, |
|
| $cdom,$cnum) eq 'ok') { |
$cdom,$cnum) eq 'ok') { |
| return 'ok'; |
return 'ok'; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl