Subversion Repositories VORC

Rev

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

Rev 105 Rev 109
Line 20... Line 20...
20 
my $cookie_string = authenticate (RollerCon::USER) || die;
 20 
my $cookie_string = authenticate (RollerCon::USER) || die;
21 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
 21 
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
22 
my @ERRORS;
 22 
my @ERRORS;
23 
my $DEBUG = 0;
 23 
my $DEBUG = 0;
Line 24... Line 24...
24 
 
 24 
 
25 
my $classid = param ("classid") // "";
 25 
my $classid = param ("classid") // get_query_string_param ("classid");
Line 26... Line 26...
26 
error ("No ClassID.") unless $classid;
 26 
error ("No ClassID.") unless $classid;
27 
 
 27 
 
Line 41... Line 41...
41 
$mode = "edit" if param("submit") eq "Edit";
 41 
$mode = "edit" if param("submit") eq "Edit";
Line 42... Line 42...
42 
 
 42 
 
Line -... Line 43...
- 
 
 43 
display_survey ($classid, $mode, $updated);
- 
 
 44 
 
43 
display_survey ($classid, $mode, $updated);
 45 
 
- 
 
 46 
sub get_query_string_param {
- 
 
 47 
  my $field = shift // "";
- 
 
 48
- 
 
 49 
  foreach (split (/&/, $ENV{'QUERY_STRING'})) {
- 
 
 50 
    my ($name, $value) = split (/=/);
- 
 
 51 
    $value =~ tr/+/ /;
- 
 
 52 
    $value =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex($1))/eg;
- 
 
 53 
    $value =~ s/~!/ ~!/g;
- 
 
 54 
    return $value if $name eq $field;
Line 44... Line 55...
44 
 
 55 
  }
45 
 
 56 
  return "";
46 
 
 57 
}