oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding more default content, and changing the add content menu to be more powerful

Browse source
This commit is contained in:
JT Smith 2004-02-16 04:57:58 +00:00
parent 5a70267ee8
commit 069b21dea0
10 changed files with 83 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/Operation/Package.pm
View file

@ -20,7 +20,7 @@ use WebGUI::SQL;
use WebGUI::URL;
our @ISA = qw(Exporter);
our @EXPORT = qw(&www_deployPackage &www_selectPackageToDeploy);
our @EXPORT = qw(&www_deployPackage );
#-------------------------------------------------------------------
sub _duplicateWobjects {
@ -112,30 +112,6 @@ sub _recursePageTree {
$a->finish;
}
#-------------------------------------------------------------------
sub www_selectPackageToDeploy {
my ($output, %data, $sth, $flag);
$session{page}{useAdminStyle} = 1;
if (WebGUI::Privilege::canEditPage()) {
tie %data,'Tie::CPHash';
$output = helpIcon(30);
$output .= '<h1>'.WebGUI::International::get(375).'</h1>';
$output .= '<ul>';
$sth = WebGUI::SQL->read("select * from page where parentId=5");
while (%data = $sth->hash) {
$output .= '<li> <a href="'.WebGUI::URL::page('op=deployPackage&pid='.$data{pageId})
.'">'.$data{title}.'</a>';
$flag = 1;
}
$sth->finish;
$output .= WebGUI::International::get(377) unless $flag;
$output .= '</ul>';
return $output;
} else {
return WebGUI::Privilege::insufficient();
}
}
#-------------------------------------------------------------------
sub www_deployPackage {
if (WebGUI::Privilege::canEditPage()) {