| … | |
… | |
| 131 | . CGI::td({}, $userCountMessage) |
131 | . CGI::td({}, $userCountMessage) |
| 132 | ) . "\n" |
132 | ) . "\n" |
| 133 | } |
133 | } |
| 134 | $table = CGI::table({"border"=>"1"}, "\n".$table."\n"); |
134 | $table = CGI::table({"border"=>"1"}, "\n".$table."\n"); |
| 135 | |
135 | |
| 136 | my $form = CGI::start_form({"method"=>"POST", "action"=>""})."\n" # This form is for deleting sets, and points to itself |
136 | my $form = CGI::start_form({"method"=>"POST", "action"=>$r->uri})."\n" # This form is for deleting sets, and points to itself |
| 137 | . $table."\n" |
137 | . $table."\n" |
| 138 | . CGI::br()."\n" |
138 | . CGI::br()."\n" |
| 139 | . $self->hidden_authen_fields."\n" |
139 | . $self->hidden_authen_fields."\n" |
| 140 | . CGI::submit({"name"=>"deleteSelected", "label"=>"Delete Selected"})."\n" |
140 | . CGI::submit({"name"=>"deleteSelected", "label"=>"Delete Selected"})."\n" |
| 141 | . CGI::end_form()."\n" |
141 | . CGI::end_form()."\n" |
| 142 | . CGI::start_form({"method"=>"POST", "action"=>$addURL})."\n" |
142 | . CGI::start_form({"method"=>"POST", "action"=>$r->uri})."\n" |
| 143 | . $self->hidden_authen_fields."\n" |
143 | . $self->hidden_authen_fields."\n" |
|
|
144 | . "New Set Name: " |
|
|
145 | . CGI::input({type=>"text", name=>"newSetName", value=>""}) |
| 144 | . CGI::submit({"name"=>"addSet", "label"=>"New"})."\n" |
146 | . CGI::submit({"name"=>"makeNewSet", "label"=>"Create"})."\n" |
| 145 | . CGI::end_form()."\n" |
147 | . CGI::end_form()."\n" |
| 146 | . CGI::start_form({"method"=>"POST", "action"=>$importURL})."\n" |
148 | . CGI::start_form({"method"=>"POST", "action"=>$importURL})."\n" |
| 147 | . $self->hidden_authen_fields."\n" |
149 | . $self->hidden_authen_fields."\n" |
| 148 | . CGI::submit({"name"=>"importSet", "label"=>"Import"})."\n" |
150 | . CGI::submit({"name"=>"importSet", "label"=>"Import"})."\n" |
| 149 | . CGI::end_form()."\n"; |
151 | . CGI::end_form()."\n"; |
Parent Directory
| 
Revision Log
| 
Patch