X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=gruntmaster-problem;h=819b7ef0a4c3f97ed91f282fc92d35f2ef244890;hb=78c794d653161038dd4ef5986d7c7a5b96baff82;hp=5d18b2b7f22223c63f26ec42c70f5ff9ae1398ad;hpb=aaa9eb7d81598848183239016890f3a851082154;p=gruntmaster-data.git diff --git a/gruntmaster-problem b/gruntmaster-problem index 5d18b2b..819b7ef 100755 --- a/gruntmaster-problem +++ b/gruntmaster-problem @@ -93,9 +93,9 @@ sub cmd_add{ sub cmd_set{ my $file; GetOptions ( 'file!' => \$file ); - my ($id, %values) = @_; + my ($id, %values) = @ARGV; %values = map { $_ => scalar read_file $values{$_} } keys %values if $file; - $db->problem($id)->update(\%values) + $db->problem($id)->update(\%values); } sub cmd_get{ @@ -109,7 +109,8 @@ sub cmd_list{ } sub cmd_rm{ - $db->problem(shift)->delete + my ($id) = @_; + $db->problem($id)->delete; } sub cmd_show{