Subversion Repositories VORC

Rev

Rev 222 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 222 Rev 226
Line 9... Line 9...
9
use strict;
9
use strict;
10
use cPanelUserConfig;
10
use cPanelUserConfig;
11
use WebDB;
11
use WebDB;
12
use HTML::Tiny;
12
use HTML::Tiny;
13
use RollerCon;
13
use RollerCon;
14
use CGI qw/param header start_html url/;
14
use CGI qw/param header start_html url url_param/;
15
my $h = HTML::Tiny->new( mode => 'html' );
15
my $h = HTML::Tiny->new( mode => 'html' );
Line 16... Line 16...
16
 
16
 
Line 17... Line 17...
17
my %F;
17
my %F;
Line 231... Line 231...
231
}
231
}
Line 232... Line 232...
232
 
232
 
233
my $choice = param ("choice") // "";
233
my $choice = param ("choice") // "";
234
if ($choice =~ /^Save/) {
234
if ($choice =~ /^Save/) {
235
  process_form ($choice);
235
  process_form ($choice);
236
} elsif (defined (param ($primary))) {
236
} elsif (defined (param ($primary) || url_param ($primary))) {
237
  my $thing = param ($primary);
237
  my $thing = param ($primary); $thing //= url_param ($primary);
238
  if ($choice eq "Delete") {
238
  if ($choice eq "Delete") {
239
    delete_item ({ $primary => $thing });
239
    delete_item ({ $primary => $thing });
240
  } else {
240
  } else {
241
    display_form ({ $primary => $thing }, $choice);
241
    display_form ({ $primary => $thing }, $choice);