diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2007-01-04 16:10:52 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2007-01-04 16:10:52 +0000 |
commit | e8a43ebe9ed95db045672ecbb90baf481893bbb6 (patch) | |
tree | 38eb64d608a38797f0cc386994a82b6ef778b77f /modules/HTMLWorkspaceCreator.pm | |
parent | 183f68b851ad80860ae773cd249e2d218f3bfb9c (diff) | |
download | MPC-e8a43ebe9ed95db045672ecbb90baf481893bbb6.tar.gz |
ChangeLogTag: Thu Jan 4 16:08:51 UTC 2007 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/HTMLWorkspaceCreator.pm')
-rw-r--r-- | modules/HTMLWorkspaceCreator.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/modules/HTMLWorkspaceCreator.pm b/modules/HTMLWorkspaceCreator.pm index 5bddc3e8..67e895dd 100644 --- a/modules/HTMLWorkspaceCreator.pm +++ b/modules/HTMLWorkspaceCreator.pm @@ -34,11 +34,12 @@ sub pre_workspace { my($crlf) = $self->crlf(); print $fh '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', $crlf, - '<html>', $crlf, + '<html>', $crlf; + $self->print_workspace_comment($fh, '<!-- $Id$ -->', $crlf, '<!-- MPC Command: -->', $crlf, - '<!-- ', $self->create_command_line_string($0, @ARGV),' -->', $crlf, - '<head>', $crlf, + '<!-- ', $self->create_command_line_string($0, @ARGV),' -->', $crlf); + print $fh '<head>', $crlf, '<title>', $self->get_workspace_name(), '</title>', $crlf, ' <style type="text/css">', $crlf, ' a {font: 12pt bold verdana, lucida; color: white; padding: 3px;}', $crlf, |