![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.6, 2001/10/05 21:35:43 | version 1.7, 2001/10/26 17:09:04 |
|---|---|
| Line 70 sub get_unprocessed_cgi { | Line 70 sub get_unprocessed_cgi { |
| } (split(/&/,$query)); | } (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; | |
| } | |
| 1; | 1; |
| __END__; | __END__; |