[LON-CAPA-cvs] cvs: loncom /interface loncommon.pm

[raeburn]

raeburn		Wed Mar 29 14:39:55 2006 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  Typo in &start_page(), 'redirect' arg was being ignored.  Also $time was not being used. Perhaps $time should default to 2, if undefined.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.323 loncom/interface/loncommon.pm:1.324
--- loncom/interface/loncommon.pm:1.323	Mon Mar 27 14:38:53 2006
+++ loncom/interface/loncommon.pm	Wed Mar 29 14:39:55 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.323 2006/03/27 19:38:53 albertel Exp $
+# $Id: loncommon.pm,v 1.324 2006/03/29 19:39:55 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3007,7 +3007,7 @@
 	$env{'internal.head.redirect'} = $url;
 	$result.=<<ADDMETA
 <meta http-equiv="pragma" content="no-cache" />
-<meta HTTP-EQUIV="Refresh" CONTENT="2; url=$url" />
+<meta HTTP-EQUIV="Refresh" CONTENT="$time; url=$url" />
 ADDMETA
     }
     if (!defined($title)) {
@@ -3015,7 +3015,6 @@
     }
     
     $result .= '<title> LON-CAPA '.&mt($title).'</title>'.$head_extra;
-    
     return $result;
 }
 
@@ -3094,7 +3093,7 @@
     my %head_args;
     foreach my $arg ('redirect','force_register') {
 	if (defined($args->{$arg})) {
-	    $head_args{$arg} = $args->{$args};
+	    $head_args{$arg} = $args->{$arg};
 	}
     }