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

added new webgui 6 style

Browse source
This commit is contained in:
JT Smith 2003-12-07 20:41:34 +00:00
parent a6c0038d4c
commit 6eff2851e1
28 changed files with 14 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/Operation/Collateral.pm
View file

@ -516,7 +516,7 @@ sub _htmlAreaCreateTree {
#-------------------------------------------------------------------
sub www_htmlArealistCollateral {
my (@parents, $sth, $data, $indent);
$session{form}{makePrintable}=1; $session{form}{style}=-10; # Special style for this output
$session{form}{makePrintable}=1; $session{form}{style}=10; # Special style for this output
return "<b>Only Content Managers are allowed to use WebGUI Collateral</b>" unless (WebGUI::Privilege::isInGroup(4));
my $output = '<table border="0" cellspacing="0" cellpadding="0" width="100%">';
@ -570,7 +570,7 @@ sub www_htmlArealistCollateral {
#-------------------------------------------------------------------
sub www_htmlAreaviewCollateral {
my($output, $collateral, $file, $x, $y, $image, $error);
$session{form}{makePrintable}=1; $session{form}{style}=-10; # Special style for this output
$session{form}{makePrintable}=1; $session{form}{style}=10; # Special style for this output
$output .= '<table align="center" border="0" cellspacing="0" cellpadding="2" width="100%" height="100%">';
if($session{form}{cid} == 0 || ! WebGUI::Privilege::isInGroup(4)) {
$output .= '<tr><td align="center" valign="middle" width="100%" height="100%">';
@ -607,7 +607,7 @@ sub www_htmlAreaviewCollateral {
#-------------------------------------------------------------------
sub www_htmlAreaUpload {
$session{form}{makePrintable}=1; $session{form}{style}=-10; # Special style for this output
$session{form}{makePrintable}=1; $session{form}{style}=10; # Special style for this output
return "<b>Only Content Managers are allowed to use WebGUI Collateral</b>" unless (WebGUI::Privilege::isInGroup(4));
return www_htmlArealistCollateral() if ($session{form}{image} eq "");
my($test, $file);
@ -632,7 +632,7 @@ sub www_htmlAreaUpload {
#-------------------------------------------------------------------
sub www_htmlAreaDelete {
$session{form}{makePrintable}=1; $session{form}{style}=-10; # Special style for this output
$session{form}{makePrintable}=1; $session{form}{style}=10; # Special style for this output
return "<b>Only Content Managers are allowed to use WebGUI Collateral</b>" unless (WebGUI::Privilege::isInGroup(4));
if($session{form}{cid}) { # Delete Image
my $collateral = WebGUI::Collateral->new($session{form}{cid});
@ -649,7 +649,7 @@ sub www_htmlAreaDelete {
#-------------------------------------------------------------------
sub www_htmlAreaCreateFolder {
$session{form}{makePrintable}=1; $session{form}{style}=-10; # Special style for this output
$session{form}{makePrintable}=1; $session{form}{style}=10; # Special style for this output
return "<b>Only Content Managers are allowed to use WebGUI Collateral</b>" unless (WebGUI::Privilege::isInGroup(4));
$session{form}{fid} = getNextId("collateralFolderId");
WebGUI::Session::setScratch("collateralFolderId",$session{form}{fid});