Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv14912/UI
Modified Files:
HTML.pm
Log Message:
Merge kinematics patch that updates the UI for priority 2 accessibility requirements
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.72
retrieving revision 1.73
diff -C2 -d -r1.72 -r1.73
*** HTML.pm 18 Feb 2003 14:46:34 -0000 1.72
--- HTML.pm 19 Feb 2003 17:30:32 -0000 1.73
***************
*** 384,389 ****
$result .= "\"http://www.w3.org/TR/html4/loose.dtd\">\n" ;
$result .= "<html>\n<head>\n<title>$self->{language}{Header_Title}</title>\n" ;
!
! # If we are handling the shutdown page, then send the CSS along with the
# page to avoid a request back from the browser _after_ we've shutdown,
# otherwise, send the link to the CSS file so it is cached by the browser.
--- 384,389 ----
$result .= "\"http://www.w3.org/TR/html4/loose.dtd\">\n" ;
$result .= "<html>\n<head>\n<title>$self->{language}{Header_Title}</title>\n" ;
!
[...1304 lines suppressed...]
# Force a history_reload if we did not find this file in the history cache
! # but we do find it on disk using perl's -e file test operator (returns
# true if the file exists).
! $self->{history_invalid} = 1 if ( !$found && ( -e ("$self->{configuration}->{configuration}{msgdir}$file") ) );
$self->http_redirect( $client, "/history?session=$self->{session_key}&start_message=0&view=$self->{form}{view}#$self->{form}{view}" );
***************
*** 3202,3206 ****
my ( $self, $from, $to_dir, $to_name ) = @_;
if ( open( FROM, "<$from") ) {
! if ( open( TO, ">$to_dir\/$to_name") ) {
binmode FROM;
while (<FROM>) {
--- 3204,3208 ----
my ( $self, $from, $to_dir, $to_name ) = @_;
if ( open( FROM, "<$from") ) {
! if ( open( TO, ">$to_dir\/$to_name") ) {
binmode FROM;
while (<FROM>) {
|
