version 1.4, 2004/03/16 23:35:33
|
version 1.6, 2004/03/21 20:44:58
|
Line 546 sub build_structure {
|
Line 546 sub build_structure {
|
my $title = $$items{$contitem}{title}; |
my $title = $$items{$contitem}{title}; |
$src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom); |
$src = &make_structure($cms,$key,$srcstem,\%flag,\%count,$timestamp,$boardnum,$hrefs,\%pagecontents,$res,$type,$resinfo,$contitem,$uname,$cdom); |
unless ($flag{$key}{page} == 1) { |
unless ($flag{$key}{page} == 1) { |
$seqtext{$key} .= qq|<resource id="$curr_id" src="$src" title="$title"|; |
$seqtext{$key} .= qq|<resource id="$curr_id" src="$src" title="$title" type="start"|; |
unless ($cms eq 'bb5' && $key eq 'Top' && @{$announcements}) { |
|
$seqtext{$key} .= qq| type="start"|; |
|
} |
|
unless ($flag{$key}{seq} || $flag{$key}{board} || $flag{$key}{file}) { |
unless ($flag{$key}{seq} || $flag{$key}{board} || $flag{$key}{file}) { |
$flag{$key}{page} = 1; |
$flag{$key}{page} = 1; |
} |
} |
Line 654 sub build_structure {
|
Line 651 sub build_structure {
|
|
|
my $filestem; |
my $filestem; |
if ($context eq 'DOCS') { |
if ($context eq 'DOCS') { |
$filestem = "/uploaded/$cdom/$crs"; |
$filestem = "/uploaded/$cdom/$crs/$timenow"; |
} elsif ($context eq 'CSTR') { |
} elsif ($context eq 'CSTR') { |
$filestem = "/res/$udom/$uname/$newdir"; |
$filestem = "/res/$udom/$uname/$newdir"; |
} |
} |