| … | |
… | |
| 141 | . CGI::td({}, CGI::a({href=>$r->uri.$set->set_id."/users/?".$self->url_authen_args}, $userCountMessage)) |
141 | . CGI::td({}, CGI::a({href=>$r->uri.$set->set_id."/users/?".$self->url_authen_args}, $userCountMessage)) |
| 142 | ) . "\n" |
142 | ) . "\n" |
| 143 | } |
143 | } |
| 144 | $table = CGI::table({"border"=>"1"}, "\n".$table."\n"); |
144 | $table = CGI::table({"border"=>"1"}, "\n".$table."\n"); |
| 145 | |
145 | |
|
|
146 | my $form = join("", |
| 146 | my $form = CGI::start_form({"method"=>"POST", "action"=>$r->uri})."\n" # This form is for deleting sets, and points to itself |
147 | CGI::start_form({"method"=>"POST", "action"=>$r->uri}),"\n", # This form is for deleting sets, and points to itself |
| 147 | . $table."\n" |
148 | $table,"\n", |
| 148 | . CGI::br()."\n" |
149 | CGI::br(),"\n", |
| 149 | . $self->hidden_authen_fields."\n" |
150 | $self->hidden_authen_fields,"\n", |
| 150 | . CGI::submit({"name"=>"deleteSelected", "label"=>"Delete Selected"})."\n" |
151 | CGI::submit({"name"=>"deleteSelected", "label"=>"Delete Selected"}),"\n", |
| 151 | . CGI::end_form()."\n" |
152 | CGI::end_form(),"\n", |
| 152 | . CGI::start_form({"method"=>"POST", "action"=>$r->uri})."\n" |
153 | CGI::start_form({"method"=>"POST", "action"=>$r->uri}),"\n", |
| 153 | . $self->hidden_authen_fields."\n" |
154 | $self->hidden_authen_fields,"\n", |
| 154 | . "New Set Name: " |
155 | "New Set Name: ", |
| 155 | . CGI::input({type=>"text", name=>"newSetName", value=>""}) |
156 | CGI::input({type=>"text", name=>"newSetName", value=>""}), |
| 156 | . CGI::submit({"name"=>"makeNewSet", "label"=>"Create"})."\n" |
157 | CGI::submit({"name"=>"makeNewSet", "label"=>"Create"}),"\n", |
| 157 | . CGI::end_form()."\n" |
158 | CGI::end_form(),"\n", |
| 158 | . CGI::start_form({"method"=>"POST", "action"=>$importURL})."\n" |
159 | CGI::start_form({"method"=>"POST", "action"=>$importURL}),"\n", |
| 159 | . $self->hidden_authen_fields."\n" |
160 | $self->hidden_authen_fields,"\n", |
| 160 | . CGI::submit({"name"=>"importSet", "label"=>"Import"})."\n" |
161 | CGI::submit({"name"=>"importSet", "label"=>"Import"}),"\n", |
| 161 | . CGI::popup_menu(-name=>'set_definition_file', |
162 | CGI::popup_menu(-name=>'set_definition_file', |
| 162 | -values=>\@set_definition_files, |
163 | -values=>\@set_definition_files, |
| 163 | ) |
164 | ),' as set ', |
|
|
165 | CGI::input({type=>"text", name=>"importedSetName", value=>""}), |
| 164 | . CGI::end_form()."\n"; |
166 | CGI::end_form(),"\n" |
|
|
167 | ); |
| 165 | print $form; |
168 | print $form; |
| 166 | |
169 | |
| 167 | return ""; |
170 | return ""; |
| 168 | } |
171 | } |
| 169 | |
172 | |
Parent Directory
| 
Revision Log
| 
Patch