/[suikacvs]/okuchuu/blue-oceans/board-t/board.cgi
Suika

Diff of /okuchuu/blue-oceans/board-t/board.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Mon Dec 3 06:23:35 2001 UTC revision 1.2 by wakaba, Sun Feb 10 00:48:06 2002 UTC
# Line 115  if($OPT{'margin'}){ Line 115  if($OPT{'margin'}){
115        
116  $defhead = <<"EOH";  $defhead = <<"EOH";
117    
118    <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
119  <html lang="ja">  <html lang="ja">
120  <head>  <head>
121  <title>$title</title>  <title>$title</title>
122  <link rel="stylesheet" type="text/css" href="/s/simpledoc">  <link rel="stylesheet" href="/s/simpledoc">
123  <link rel="stylesheet" type="text/css" href="../bo-style">  <link rel="stylesheet" href="../bo-style">
124  <link rel="index" href="../top" />  <link rel="index" href="../top" />
125  </head>  </head>
126  <body>  <body>
# Line 183  Content-Language: ja Line 184  Content-Language: ja
184  Content-Style-Type: text/css  Content-Style-Type: text/css
185  Content-Script-Type: text/javascript  Content-Script-Type: text/javascript
186    
187  <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">  <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
188  <html lang="ja">  <html lang="ja">
189  <head>  <head>
190  <link rel="stylesheet" type="text/css" href="/s/simpledoc">  <link rel="stylesheet" href="/s/simpledoc">
191  <link rel="stylesheet" type="text/css" href="../bo-style">  <link rel="stylesheet" href="../bo-style">
192  $link_element  $link_element
193  <title>$title ($sub_title)</title>  <title>$title ($sub_title)</title>
194  _EOF_  _EOF_
195    
196          if($indent eq 'css'){          if($indent eq 'css'){
197                  my($i, $tmp_margin);                  my($i, $tmp_margin);
198                  $s .= '<style type="text/css"><!--';                  $s .= '<style type="text/css">';
199                  for( $i = 1; $i <= $max_depth; $i++ ){                  for( $i = 1; $i <= $max_depth; $i++ ){
200                          $tmp_margin = $margin * $i;                          $tmp_margin = $margin * $i;
201                          print ".lv$i\{margin-left:$tmp_margin\%\}";                          print ".lv$i\{margin-left:$tmp_margin\%\}";
202                  }                  }
203                  $s .= '--></style>';                  $s .= '</style>';
204          }          }
205          $s .= <<"_EOF_";          $s .= <<"_EOF_";
206  </head>  </head>
# Line 224  _EOF_ Line 225  _EOF_
225    
226  sub ichiran {  sub ichiran {
227          &set_cookie;          &set_cookie;
228          local($s) = &html_header('一覧表示');          local($s) = &html_header('記事一覧');
229    
230          #ログ読み出し          #ログ読み出し
231          open(LOG, $logfile) or &Suika::CGI::Error::die('open', file => $logfile);          open(LOG, $logfile) or &Suika::CGI::Error::die('open', file => $logfile);
# Line 242  sub ichiran { Line 243  sub ichiran {
243          }          }
244    
245          print $html_info;          print $html_info;
246          print '<div class="set"><h3>記事一覧</h3>';          print '<div class="set">';
247          print "<p><em class=\"note\">([全]を選択すると関連記事も含めて一括表示できます。)</em></p>\n";          print "<p><em class=\"note\">([全]を選択すると関連記事も含めて一括表示できます。)</em></p>\n";
248          $tree = int($tree/$max_tree) * $max_tree;          $tree = int($tree/$max_tree) * $max_tree;
249          $end_tree = $tree + $max_tree;          $end_tree = $tree + $max_tree;
# Line 279  sub ichiran { Line 280  sub ichiran {
280                                  print "[<a href=\"$this_name?$uri_query;md=set;tn=$tn\">全</a>]";                                  print "[<a href=\"$this_name?$uri_query;md=set;tn=$tn\">全</a>]";
281                          } elsif ($indent eq 'space') {                          } elsif ($indent eq 'space') {
282                                  my($space_width) = $lx * 2 + 2;                                  my($space_width) = $lx * 2 + 2;
283                                  print '　' x $space_width;                                  print '&nbsp;' x $space_width;
284                          }                          }
285                          print "<a href=\"$this_name?$uri_query;md=viw;no=$no;tn=$tn\">";                          print "<a href=\"$this_name?$uri_query;md=viw;no=$no;tn=$tn\">";
286                          if ($no > $count - $new_kiji) {                          if ($no > $count - $new_kiji) {
# Line 336  sub view { Line 337  sub view {
337          if (!$children) { $children = 'コメントは投稿されていません。</p>'; }          if (!$children) { $children = 'コメントは投稿されていません。</p>'; }
338          else{$children = "以下のコメントが投稿されています。</p>\n<ul class=\"comment\">$children</ul>";}          else{$children = "以下のコメントが投稿されています。</p>\n<ul class=\"comment\">$children</ul>";}
339          $s .= <<"_EOF_";          $s .= <<"_EOF_";
340    <hr>
341  <p>$parent  <p>$parent
342  $children  $children
343  <hr></div>  <hr></div>
# Line 1024  Content-Language: ja Line 1026  Content-Language: ja
1026  <html lang="ja">  <html lang="ja">
1027  <head>  <head>
1028  $link_element  $link_element
1029  <link rel="stylesheet" type="text/css" href="/s/simpledoc">  <link rel="stylesheet" href="/s/simpledoc">
1030  <link rel="stylesheet" type="text/css" href="../bo-style">  <link rel="stylesheet" href="../bo-style">
1031  <title>(エラー報告)</title>  <title>(エラー報告)</title>
1032  </head>  </head>
1033  <body>  <body>
# Line 1048  Content-Language: ja Line 1050  Content-Language: ja
1050   "http://www.w3.org/TR/html4/strict.dtd">   "http://www.w3.org/TR/html4/strict.dtd">
1051  <html lang="ja">  <html lang="ja">
1052  <head>  <head>
1053  <link rel="stylesheet" type="text/css" href="/s/simpledoc">  <link rel="stylesheet" href="/s/simpledoc">
1054  <link rel="stylesheet" type="text/css" href="../bo-style">  <link rel="stylesheet" href="../bo-style">
1055  <title>(エラー報告)</title>  <title>(エラー報告)</title>
1056  </head>  </head>
1057  <body>  <body>
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24