loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.5, 2001/09/13 19:59:33
+version 1.7, 2001/10/26 17:09:04
  Line 60  sub get_previous_attempt {
    }
  }
+ sub get_unprocessed_cgi {
+   my ($query)= @_;
+   map {
+     my ($name, $value) = split(/=/,$_);
+     $value =~ tr/+/ /;
+     $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
+     if (!defined($ENV{'form.'.$name})) { $ENV{'form.'.$name}=$value; }
+   } (split(/&/,$query));
+ }
+ sub cacheheader {
+   my $date=localtime;
+   my $output .='<meta HTTP-EQUIV="Expires" CONTENT="'.$date.'" />
+                 <meta HTTP-EQUIV="Cache-control" CONTENT="no-cache" />
+                 <meta HTTP-EQUIV="Pragma" CONTENT="no-cache" />';
+   return $output;
+ }
 ;
  __END__;