projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
ffff141
)
XHTML 1.0 Strict
author
Mike Taylor
<mike@indexdata.com>
Thu, 16 Nov 2006 12:15:29 +0000
(12:15 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Thu, 16 Nov 2006 12:15:29 +0000
(12:15 +0000)
web/htdocs/details/check.mc
patch
|
blob
|
history
web/htdocs/details/doc.mc
patch
|
blob
|
history
web/htdocs/details/edit.mc
patch
|
blob
|
history
web/htdocs/details/find.mc
patch
|
blob
|
history
web/htdocs/details/found.mc
patch
|
blob
|
history
diff --git
a/web/htdocs/details/check.mc
b/web/htdocs/details/check.mc
index
ad146bd
..
3924521
100644
(file)
--- a/
web/htdocs/details/check.mc
+++ b/
web/htdocs/details/check.mc
@@
-1,4
+1,4
@@
-%# $Id: check.mc,v 1.11 2006-10-26 17:45:32 mike Exp $
+%# $Id: check.mc,v 1.12 2006-11-16 12:15:29 mike Exp $
<%args>
@id
$test => "Quick"
<%args>
@id
$test => "Quick"
@@
-21,7
+21,7
@@
if ($allTargets && !$really) {
} else {
print "<h2>Testing ...</h2>\n";
} else {
print "<h2>Testing ...</h2>\n";
-print " <ul>\n", join("", map { " <li>$_\n" } @id), "</ul>\n"
+print " <ul>\n", join("", map { " <li>$_</li>\n" } @id), "</ul>\n"
if !$allTargets;
$m->flush_buffer();
if !$allTargets;
$m->flush_buffer();
diff --git
a/web/htdocs/details/doc.mc
b/web/htdocs/details/doc.mc
index
beae59c
..
07d7ad6
100644
(file)
--- a/
web/htdocs/details/doc.mc
+++ b/
web/htdocs/details/doc.mc
@@
-1,4
+1,4
@@
-%# $Id: doc.mc,v 1.2 2006-11-01 10:11:01 mike Exp $
+%# $Id: doc.mc,v 1.3 2006-11-16 12:16:18 mike Exp $
<%once>
use Pod::Html;
use IO::Dir;
<%once>
use Pod::Html;
use IO::Dir;
@@
-31,7
+31,7
@@
sub render_doc_links {
or die "can't open directory handle for '$base/$dir'";
print " " x $level, "<li><b>$dir</b></li>\n";
or die "can't open directory handle for '$base/$dir'";
print " " x $level, "<li><b>$dir</b></li>\n";
- print " " x $level, "<ul>\n";
+ print " " x $level, "<li><ul>\n";
my(@files, @dirs);
while (my $file = $dh->read()) {
my(@files, @dirs);
while (my $file = $dh->read()) {
@@
-53,7
+53,7
@@
sub render_doc_links {
render_doc_links($base, "$dir/$file", $level+1);
}
render_doc_links($base, "$dir/$file", $level+1);
}
- print " " x $level, "</ul>\n";
+ print " " x $level, "</ul></li>\n";
undef $dh;
}
</%perl>
undef $dh;
}
</%perl>
diff --git
a/web/htdocs/details/edit.mc
b/web/htdocs/details/edit.mc
index
96a2948
..
ad724a0
100644
(file)
--- a/
web/htdocs/details/edit.mc
+++ b/
web/htdocs/details/edit.mc
@@
-1,4
+1,4
@@
-%# $Id: edit.mc,v 1.13 2006-11-16 11:53:33 mike Exp $
+%# $Id: edit.mc,v 1.14 2006-11-16 12:16:32 mike Exp $
<%args>
$id => undef
</%args>
<%args>
$id => undef
</%args>
@@
-104,7
+104,7
@@
foreach my $ref (@fields) {
% } elsif ($nlines) {
<textarea name="<% $name %>" rows="<% $nlines %>" cols="55"><% $data %></textarea>
% } else {
% } elsif ($nlines) {
<textarea name="<% $name %>" rows="<% $nlines %>" cols="55"><% $data %></textarea>
% } else {
- <input name="<% $name %>" type="text" size="60" value="<% $data %>">
+ <input name="<% $name %>" type="text" size="60" value="<% $data %>"/>
% }
</td>
</tr>
% }
</td>
</tr>
diff --git
a/web/htdocs/details/find.mc
b/web/htdocs/details/find.mc
index
c76459e
..
b78bf50
100644
(file)
--- a/
web/htdocs/details/find.mc
+++ b/
web/htdocs/details/find.mc
@@
-1,4
+1,4
@@
-%# $Id: find.mc,v 1.5 2006-09-25 15:32:06 mike Exp $
+%# $Id: find.mc,v 1.6 2006-11-16 12:16:46 mike Exp $
% if ($r->param("_search")) {
% $m->comp("found.mc");
% } else {
% if ($r->param("_search")) {
% $m->comp("found.mc");
% } else {
@@
-60,7
+60,6
@@
<th>Author</th>
<td><input type="text" name="dc.creator" size="40"/></td>
</tr>
<th>Author</th>
<td><input type="text" name="dc.creator" size="40"/></td>
</tr>
- </tr>
<tr><td colspan="2"> </td></tr>
<tr>
<th>Sort by</th>
<tr><td colspan="2"> </td></tr>
<tr>
<th>Sort by</th>
diff --git
a/web/htdocs/details/found.mc
b/web/htdocs/details/found.mc
index
5c8993f
..
20e808f
100644
(file)
--- a/
web/htdocs/details/found.mc
+++ b/
web/htdocs/details/found.mc
@@
-1,4
+1,4
@@
-%# $Id: found.mc,v 1.18 2006-11-14 16:23:11 mike Exp $
+%# $Id: found.mc,v 1.19 2006-11-16 12:17:02 mike Exp $
<%once>
sub print_navlink {
my($params, $cond, $caption, $skip) = @_;
<%once>
sub print_navlink {
my($params, $cond, $caption, $skip) = @_;
@@
-77,10
+77,10
@@
my $first = $skip+1;
my $last = $first+$count-1;
$last = $n if $last > $n;
</%perl>
my $last = $first+$count-1;
$last = $n if $last > $n;
</%perl>
- <form method="get" action="">
+ <form method="get" action=""><p>
<input type="text" name="_query" size="60" value="<% xml_encode($query) %>"/>
<input type="submit" name="_search" value="Search"/>
<input type="text" name="_query" size="60" value="<% xml_encode($query) %>"/>
<input type="submit" name="_search" value="Search"/>
- </form>
+ </p></form>
<p>
% if ($n == 0) {
No matches
<p>
% if ($n == 0) {
No matches