11 lines
729 B
Plaintext
Executable File
11 lines
729 B
Plaintext
Executable File
$multiobj=$in{multi} || "0";
|
|
print " <td valign=top>";
|
|
if ( $multiobj eq "1" ) {
|
|
print "<textarea wrap=auto name=objname rows=5 cols=10>",
|
|
join("\n", split(/,/ , $objname)),"</textarea>\n";
|
|
|
|
} else {
|
|
print "<input type=\"text\" name=\"objname\" size=\"20\" cols=\"20\" value=\"$objname\" align=left>\n";
|
|
}
|
|
print "<input type=button onClick='ifield = document.forms[0].objname; if ( ifield.value == \"$objname\" ) { ifield.value = \"\" } ; chooser = window.open(\"/stta/obj_chooser.cgi?type=objs&multi=$multiobj&obj=\"+escape(ifield.value), \"chooser\", \"toolbar=no,menubar=no,scrollbars=yes,width=700,height=500\"); chooser.ifield = ifield; window.ifield = ifield' value=\"$text{browse}\"></td>\n";
|