Add problem owner and author

diff --git a/lib/Gruntmaster/Data.pm b/lib/Gruntmaster/Data.pm
index 77d78c02c05f61d3708a8d90fc1f7af225e3a6f5..aac9ad1f77e3932adc23c7d1ee9e384f1a2ad5ee 100644 (file)
--- a/lib/Gruntmaster/Data.pm
+++ b/lib/Gruntmaster/Data.pm
@@ -69,7 +69,7 @@ sub defhash{
        };
 }
 
-defhash problem => qw/name level statement/;
+defhash problem => qw/name level statement owner author/;
 defhash contest => qw/start end name owner/;
 defhash job => qw/date extension filesize private problem result result_text user/;
 defhash user => qw/name email town university level/;

diff --git a/lib/Gruntmaster/Page/Pb/Entry.pm b/lib/Gruntmaster/Page/Pb/Entry.pm
index dbf66b47457f419d8dbc4403468f2f00650cabad..0516053f7db69bcdeed547bd9e4c4f432a68f90e 100644 (file)
--- a/lib/Gruntmaster/Page/Pb/Entry.pm
+++ b/lib/Gruntmaster/Page/Pb/Entry.pm
@@ -44,6 +44,8 @@ sub _generate{
        $htc->param(id => $id);
        local $Gruntmaster::Data::contest = $contest if $contest;
        $htc->param(name => problem_name $id);
+       $htc->param(author => problem_author $id);
+       $htc->param(owner => problem_owner $id);
        $htc->param(statement => problem_statement $id);
 }