Return to printout.pl CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.25, 2003/05/28 21:25:33 | version 1.26, 2003/06/04 23:38:14 |
---|---|
Line 13 function LONCAPAstale() { | Line 13 function LONCAPAstale() { |
} | } |
</script> | </script> |
ENDSCRIPT | ENDSCRIPT |
print "<body bgcolor='#FFFFFF' onLoad='LONCAPAreg();' onUnload='LONCAPAstate()'>\n"; | print "<body bgcolor='#FFFFFF' onLoad='LONCAPAreg();' onUnload='LONCAPAstale()'>\n"; |
my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'}); | my ($texfile,$laystyle,$numberofcolumns,$selectionmade) = split(/&/,$ENV{'QUERY_STRING'}); |
my $figfile = $texfile; | my $figfile = $texfile; |
$figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; | $figfile =~ s/^([^\.]+printout)[^t]+\.tex/$1\.dat/; |