| |
48 |
48 |
} |
| |
49 |
49 |
|
| |
50 |
50 |
{edit_mode_p:text(hidden) |
| |
51 |
51 |
{value $edit_mode_p} |
| |
52 |
52 |
} |
| |
53 |
53 |
|
| |
54 |
54 |
{type:text(select) |
| |
55 |
55 |
{label "Type"} |
| |
56 |
56 |
{options {$type_options}} |
| |
57 |
57 |
{value $type_value} |
| |
58 |
58 |
} |
| |
59 |
59 |
|
| |
60 |
60 |
{proc:text |
| |
61 |
61 |
{label $type_label} |
| |
62 |
62 |
{html {size 40 maxlength 300}} |
| |
63 |
63 |
{value $proc_value} |
| |
64 |
64 |
} |
| |
65 |
65 |
|
| |
66 |
66 |
} -validate { |
| |
67 |
67 |
{proc |
| |
68 |
|
{ [info commands ::${proc} ne ""] } |
| |
|
68 |
{ [info commands ::$proc] ne "" } |
| |
69 |
69 |
{The specified procedure name does not exist. Is the -procs.tcl file loaded?} |
| |
70 |
70 |
} |
| |
71 |
71 |
{proc |
| |
72 |
72 |
{ [apm_callback_has_valid_args -type $type -proc_name $proc] } |
| |
73 |
73 |
{The callback proc $proc must be defined with ad_proc [ad_decode [apm_arg_names_for_callback_type -type $type] "" "and should take no arguments" "and have the following required switches: [apm_arg_names_for_callback_type -type $type]"]} |
| |
74 |
74 |
} |
| |
75 |
75 |
} -on_submit { |
| |
76 |
76 |
|
| |
77 |
77 |
apm_set_callback_proc -type $type -version_id $version_id $proc |
| |
78 |
78 |
|
| |
79 |
79 |
apm_package_install_spec $version_id |
| |
80 |
80 |
|
| |
81 |
81 |
ad_returnredirect $return_url |
| |
82 |
82 |
ad_script_abort |
| |
83 |
83 |
} |
| |
84 |
84 |
|
| |
85 |
85 |
if { $edit_mode_p } { |
| |
86 |
86 |
element set_properties callback type -mode display |
| |
87 |
87 |
} |
| |
88 |
88 |
|
