The document '||h_caption||' dose not exist!');
return;
end if;
total := num;
-- total := cdate%ROWCOUNT;
if (fid=0) then
close cdate;
else
close fcdate;
end if;
if (total > 0 ) then
next := 21;
if ( next<=total) then
if ((next+20)<=total) then
next_str := (next+19);
else
next_str := total;
end if;
next_str := next||'-'||next_str;
curr_str := next - 1;
else
curr_str := total;
end if;
htp.p('
');
next := seed + 20;
if (next<=total) then
if ((next+20)<=total) then
next_str := (next+19);
else
next_str := total;
end if;
next_str := next||'-'||next_str;
curr_str := next - 1;
else
curr_str := total;
end if;
prev := seed - 20;
if (prev >= 1) then
prev_str := prev||'-'||(seed-1);
elsif (seed > 1) then
prev := 1;
prev_str := '1-'|| 20;
end if;
htp.p('');
htp.p('| Total: '||total||' | | ');
htp.p(' | Current: '||seed||'-'||curr_str||' ');
if (next_str IS NOT NULL) then
htp.p(' | | ');
htp.p(htf.url(cgi_bin||'sccs1.more_date?total='||total||
'&seed='||next||'&day1='||day1||'&day2='||day2||
'&stat='||stat||'&fid='||fid,'Next '||next_str));
end if;
if (prev_str IS NOT NULL) then
htp.p(' | | ');
htp.p(htf.url(cgi_bin||'sccs1.more_date?total='||total||
'&seed='||prev||'&day1='||day1||'&day2='||day2||
'&stat='||stat||'&fid='||fid,'Prev '||prev_str));
end if;
htp.p(' |
');
if (fid=0) then
open cdate(day1,day2,stat);
else
open fcdate(day1,day2,stat,fid);
end if;
num := 0;
loop
if (fid=0) then
fetch cdate into two;
exit when cdate%NOTFOUND;
else
fetch fcdate into two;
exit when fcdate%NOTFOUND;
end if;
num := num + 1;
if (num >= seed) then
htp.p('- SCCS-'||two.id||':');
if (two.url IS NOT NULL) then
htp.ap(''||htf.url(two.url,two.title)||'');
else
htp.bp(''||two.title||'');
end if;
htp.p('
- ');
if (two.furl IS NOT NULL) then
htp.p(htf.url(two.furl,'Full HTML'));
htp.p(' ');
end if;
if (two.psurl IS NOT NULL) then
htp.p(htf.url(two.psurl,'PostScript'));
htp.p(' ');
end if;
if (two.pdfurl IS NOT NULL) then
htp.p(htf.url(two.pdfurl,'PDF'));
htp.p(' ');
end if;
if (two.rawurl IS NOT NULL) then
htp.p(htf.url(two.rawurl,'Raw Text'));
end if;
htp.ap('
'||two.author);
htp.p('; '||to_char(two.pub_date,'mm-dd-yy')||'');
if (not ( two.type = 1)) then
htp.p('
');
htp.p(htf.url(cgi_bin||'sccs2.show_info?docid='
||two.id||'&doctype='||
two.type,'Addition Information'));
end if;
/* if (two.abs IS NOT NULL) then
htp.p('
');
htp.ap(two.abs);
htp.p('');
end if;
*/
end if;
if ( num >= (seed + 19) ) then
exit;
end if;
end loop;
if (fid=0) then
close cdate;
else
close fcdate;
end if;
htp.p('
');
htp.p('
');
htp.p('');
htp.p(' p.');
n := ceil(total/20);
if (n > 20) then n := 20; end if;
for i in 1..n loop
iseed := (i-1)*20 + 1;
if (iseed = 0 ) then
htp.p(' '||i);
else
htp.p(' '||htf.url(cgi_bin||'sccs1.more_date?total='||
total||'&seed='||iseed||'&day1='||day1||'&day2='||
day2||'&stat='||stat||'&fid='||fid,i));
end if;
end loop;
if (next_str IS NOT NULL) then
htp.p('['||htf.url(cgi_bin||'sccs1.more_date?total='||total||
'&seed='||next||'&day1='||day1||'&day2='||day2||
'&stat='||stat||'&fid='||fid,'Next')||']');
end if;
htp.p('');
wow.sig;
end;
procedure day(str varchar2,result out date,tag in out char) is
i integer := 1;
one varchar2(8) := null;
two varchar2(8) := null;
three varchar2(8) := null;
n integer;
j integer := 1;
string varchar2(100);
begin
string := str;
while ( string IS NOT NULL and (substr(string,1,1) = '/')) loop
string := substr(string,2);
end loop;
n := length(string);
while ((i <= n) and (substr(string,i,1) != '/')) loop
i := i + 1;
end loop;
one := substr(string,1,i-1);
if (i > n) then
tag := 'y';
else
string := substr(string,i+1);
n := length(string);
i := 1;
while (i <= n and (substr(string,i,1) != '/')) loop
i := i + 1;
end loop;
two := substr(string,1,i-1);
if (i > n) then
tag := 'm';
else
string := substr(string,i+1);
n := length(string);
i := 1;
while (i <= n and (substr(string,i,1) != '/')) loop
i := i + 1;
end loop;
three := substr(string,1,i-1);
tag := 'd';
end if;
end if;
-- check the validated date format
if (tag = 'y') then
i := length(one);
one := substr(one,-2,2);
result := to_date('0101'||one,'ddmmyy');
else
one := lpad(one,2,'0');
if ((to_number(one) < 1) or (to_number(one) > 12)) then
htp.p('Date format error2:
'||str||'');
result := NULL;
else
if (tag = 'm') then
two := substr(two,-2,2);
result := to_date(one||two,'FXFMmmyy');
else
two := lpad(two,2,'0');
if (to_number(two) >
to_char(last_day(to_date(one,'mm')),'dd')) then
htp.p('
Date format error2:
'||str||'');
result := NULL;
return;
end if;
i := length(three);
if (i <= 4) then
three := substr(three,-2,2);
result := to_date(one||two||three,'FXFMmmddyy');
end if;
end if;
end if;
end if;
end;
end sccs1;
');
htp.p('
'));
htp.p(' ');
htp.p(' ');
htp.p(help_page);
--htp.p('
');
htp.p('
');
htp.p('