[system] / trunk / webwork-modperl / lib / WeBWorK / ContentGenerator.pm Repository:
ViewVC logotype

Diff of /trunk/webwork-modperl/lib/WeBWorK/ContentGenerator.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 424 Revision 425
… …
53 my $r = $self->{r}; 53 my $r = $self->{r};
54 my $courseEnvironment = $self->{courseEnvironment}; 54 my $courseEnvironment = $self->{courseEnvironment};
55 my $html = ""; 55 my $html = "";
56 56
57 foreach $param ("user","effectiveUser","key") { 57 foreach $param ("user","effectiveUser","key") {
58 my $value = $r->param($param);
59 $html .= input({-type=>"hidden",-name=>"$param",-value=>"$value"});
60 }
61 return $html;
62}
63
64#sub hidden_authen_fields($) {
65# my $self = shift;
66# return $self->hidden_fields("user","effectiveUser","key");
67#}
68
69sub hidden_fields($;@) {
70 my $self = shift;
71 my $r = $self->{r};
72 my @fields = @_;
73 @fields or @fields = $r->param;
74 my $courseEnvironment = $self->{courseEnvironment};
75 my $html = "";
76
77 foreach $param (@fields) {
58 my $value = $r->param($param); 78 my $value = $r->param($param);
59 $html .= input({-type=>"hidden",-name=>"$param",-value=>"$value"}); 79 $html .= input({-type=>"hidden",-name=>"$param",-value=>"$value"});
60 } 80 }
61 return $html; 81 return $html;
62} 82}
Legend:
Removed from v.424  
changed lines
  Added in v.425
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9