|
version 1.102, 2011/05/27 14:39:53
|
version 1.103, 2011/09/01 02:32:50
|
|
Line 1061 ENDSCRIPT
|
Line 1061 ENDSCRIPT
|
| } else { |
} else { |
| my ($name_code,$type_code); |
my ($name_code,$type_code); |
| if ($env{'form.cnameelement'} ne '') { |
if ($env{'form.cnameelement'} ne '') { |
| $name_code = 'opener.document.'.$env{'form.form'}.'.'. |
$name_code = <<ENDNAMECODE; |
| $env{'form.cnameelement'}.'.value=cdesc;'; |
var showcdesc = cdesc; |
| |
if (cdesc.length > 25) { |
| |
showcdesc = cdesc.substr(0,25)+' ...'; |
| |
} |
| |
opener.document.$env{'form.form'}.$env{'form.cnameelement'}.value=showcdesc; |
| |
ENDNAMECODE |
| } |
} |
| if ($env{'form.typeelement'} ne '') { |
if ($env{'form.typeelement'} ne '') { |
| $type_code = 'opener.document.'.$env{'form.form'}.'.'. |
$type_code = 'opener.document.'.$env{'form.form'}.'.'. |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpickcourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface