| version 1.10, 2002/11/22 18:01:45 |
version 1.11, 2002/11/22 18:33:44 |
| Line 907 if (-d $fullname) { |
|
| Line 907 if (-d $fullname) { |
|
| |
|
| if ($filesexists && !$filesfound) { |
if ($filesexists && !$filesfound) { |
| print |
print |
| "<p><b>", _("NOTE:"), "</b> ", |
"<p><b>", _("NOTE"), ":</b> ", |
| sprintf( _("There are %s files, but none matches the current tag (%s)."), |
sprintf( _("There are %s files, but none matches the current tag (%s)."), |
| $filesexists, |
$filesexists, |
| $input{only_with_tag}), |
$input{only_with_tag}), |
| Line 952 if (-d $fullname) { |
|
| Line 952 if (-d $fullname) { |
|
| } |
} |
| print "</select>\n"; |
print "</select>\n"; |
| print " <label for=\"path\" accesskey=\"P\">"; |
print " <label for=\"path\" accesskey=\"P\">"; |
| print _("Module path or alias:"), "</label>\n"; |
print _("Module path or alias"), ":</label>\n"; |
| printf "<input type=\"text\" id=\"path\" name=\"path\" value=\"%s\" size=\"15\">\n", htmlquote($where); |
printf "<input type=\"text\" id=\"path\" name=\"path\" value=\"%s\" size=\"15\">\n", htmlquote($where); |
| print "<input type=\"submit\" value=\"", _("Go"), "\" accesskey=\"G\"></p>\n"; |
print "<input type=\"submit\" value=\"", _("Go"), "\" accesskey=\"G\"></p>\n"; |
| print "</form>\n"; |
print "</form>\n"; |
| Line 993 if (-d $fullname) { |
|
| Line 993 if (-d $fullname) { |
|
| print "\n<tr class=\"dir-header\">\n"; |
print "\n<tr class=\"dir-header\">\n"; |
| print "<th style=\"text-align: center\" colspan=\"2\">", _("Preferences"), "</th>\n</tr>\n"; |
print "<th style=\"text-align: center\" colspan=\"2\">", _("Preferences"), "</th>\n</tr>\n"; |
| print "<tr>\n<td>"; |
print "<tr>\n<td>"; |
| print "<label for=\"sortby\" accesskey=\"F\">", _("Sort files by "); |
print "<label for=\"sortby\" accesskey=\"F\">", _("Sort files by"); |
| print "</label><select id=\"sortby\" name=\"sortby\">\n"; |
print " </label><select id=\"sortby\" name=\"sortby\">\n"; |
| print "<option value=\"\">", _("File"), "</option>\n"; |
print "<option value=\"\">", _("File"), "</option>\n"; |
| print "<option", $bydate ? " selected" : "", |
print "<option", $bydate ? " selected" : "", |
| " value=\"date\">", _("Age"), "</option>\n"; |
" value=\"date\">", _("Age"), "</option>\n"; |
| Line 1007 if (-d $fullname) { |
|
| Line 1007 if (-d $fullname) { |
|
| " value=\"log\">", _("Log message"), "</option>\n"; |
" value=\"log\">", _("Log message"), "</option>\n"; |
| print "</select>\n</td>\n"; |
print "</select>\n</td>\n"; |
| print "<td><label for=\"logsort\" accesskey=\"L\">"; |
print "<td><label for=\"logsort\" accesskey=\"L\">"; |
| print _("Sort log by: "), "</label>"; |
print _("Sort log by"), ": </label>"; |
| printLogSortSelect(0); |
printLogSortSelect(0); |
| print "</td>\n</tr>\n"; |
print "</td>\n</tr>\n"; |
| print "<tr>\n<td><label for=\"f\" accesskey=\"D\">"; |
print "<tr>\n<td><label for=\"f\" accesskey=\"D\">"; |
| print _("Diff format: "), "</label>"; |
print _("Diff format"), ": </label>"; |
| printDiffSelect(0); |
printDiffSelect(0); |
| print "</td>\n"; |
print "</td>\n"; |
| print "<td><label for=\"hideattic\" accesskey=\"A\">"; |
print "<td><label for=\"hideattic\" accesskey=\"A\">"; |
| print _("Show Attic files: "), "</label>"; |
print _("Show Attic files"), ": </label>"; |
| print "<input id=\"hideattic\" name=\"hideattic\" type=\"checkbox\"", |
print "<input id=\"hideattic\" name=\"hideattic\" type=\"checkbox\"", |
| $input{'hideattic'} ? " checked" : "", "></td>\n</tr>\n"; |
$input{'hideattic'} ? " checked" : "", "></td>\n</tr>\n"; |
| print "<tr>\n<td align=\"center\" colspan=\"2\">"; |
print "<tr>\n<td align=\"center\" colspan=\"2\">"; |
|
|
| print "Status: $errcode\r\n"; |
print "Status: $errcode\r\n"; |
| } |
} |
| html_header('Error'); |
html_header('Error'); |
| print "<p>", _("Error: "), sprintf($format, map(htmlquote($_), @args)), "</p>\n"; |
print "<p>", _("Error"), ": ", sprintf($format, map(htmlquote($_), @args)), "</p>\n"; |
| html_footer(); |
html_footer(); |
| exit(1); |
exit(1); |
| } |
} |
| Line 1623 sub doAnnotate($) |
|
| Line 1623 sub doAnnotate($) |
|
| # OK, we've sent our command to the server. Thing to do is to |
# OK, we've sent our command to the server. Thing to do is to |
| # close the writer side and get all the responses. If "cvs server" |
# close the writer side and get all the responses. If "cvs server" |
| # were nicer about buffering, then we could just leave it open, I think. |
# were nicer about buffering, then we could just leave it open, I think. |
| close($writer) or die _("cannot close:"), " $!"; |
close($writer) or die _("cannot close"), ": $!"; |
| |
|
| navigateHeader($scriptwhere, $pathname, $filename, $rev, 'annotate'); |
navigateHeader($scriptwhere, $pathname, $filename, $rev, 'annotate'); |
| |
|
| Line 1713 sub doAnnotate($) |
|
| Line 1713 sub doAnnotate($) |
|
| } |
} |
| html_footer(); |
html_footer(); |
| |
|
| close($reader) or warn _("cannot close:"), " $!"; |
close($reader) or warn _("cannot close"), ": $!"; |
| wait; |
wait; |
| } |
} |
| |
|