Subversion Repositories VORC

Rev

Rev 192 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 192 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 69... Line 69...
69 
]);
 69 
]);
Line 70... Line 70...
70 
 
 70 
 
71 
my $choice = param ("choice") // "";
 71 
my $choice = param ("choice") // "";
72 
if ($choice eq "Save") {
 72 
if ($choice eq "Save") {
73 
  process_form ();
 73 
  process_form ();
74 
} elsif (defined (param ($primary))) {
 74 
} elsif (defined (param ($primary) || url_param ($primary))) {
75 
  my $thing = param ($primary);
 75 
  my $thing = param ($primary); $thing //= url_param ($primary);
76 
  if ($choice eq "Delete") {
 76 
  if ($choice eq "Delete") {
77 
    delete_item ({ $primary => $thing });
 77 
    delete_item ({ $primary => $thing });
78 
  } elsif ($choice eq "Approve") {
 78 
  } elsif ($choice eq "Approve") {
79 
    decide_hours ({ $primary => $thing }, "approved");
 79 
    decide_hours ({ $primary => $thing }, "approved");