package WebGUI::Operation::RichEdit;

#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2004 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com                     info@plainblack.com
#-------------------------------------------------------------------

use strict;
use WebGUI::Asset;
use WebGUI::HTMLForm;
use WebGUI::Session;

#-------------------------------------------------------------------

sub www_richEditPageTree {
	my $f = WebGUI::HTMLForm->new(-action=>"#");
	$f->text(
		-name=>"url",
		-label=>"URL",
		-extras=>'id="url"'
		);
	$f->yesNo(
		-name=>"newWindow",
		-label=>"Open in new window?"
		);
	$f->button(
		-value=>"Done",
		-extras=>'onclick="window.opener.blah()"'
		);
	my $output = $f->print.'<hr>';
	my $base = WebGUI::Asset->newByUrl || WebGUI::Asset->getRoot;
	my @crumb;
	my $ancestors = $base->getLineage(["self","ancestors"],{returnQuickReadObjects=>1});
	foreach my $ancestor (@{$ancestors}) {
		push(@crumb,'<a href="'.$ancestor->getUrl("op=richEditPageTree").'">'.$ancestor->get("menuTitle").'</a>');
	}	
	$output .= '<p>'.join(" &gt; ", @crumb)."</p>\n";
	my $children = $base->getLineage(["children"],{returnQuickReadObjects=>1});
	foreach my $child (@{$children}) {
		$output .= '<a href="'.$child->getUrl("op=richEditPageTree").'">(&bull;)</a> <a href="#" onclick="document.getElementById(\'url\').value=\''.$child->getUrl.'\'">'.$child->get("menuTitle").'</a>'."<br />\n";	
	}
	$session{page}{useEmptyStyle} = 1;
	return $output;
}


#-------------------------------------------------------------------
sub _htmlAreaCreateTree {
	my ($output);
	my ($name, $description, $url, $image, $indent, $target, $delete) = @_;
	if($delete) {
		$delete  = qq/<a href="javascript:deleteCollateral('$delete')" title="delete $name">/;
		 $delete .= deleteIcon()."</a>";
	}
	$target = ' target="'.$target.'" ' if ($target);
	$output .= '<tr><td align="left" valign="bottom" width="100%">';
	$output .= ('<img src="'.$session{config}{extrasURL}.'/tinymce/images/indent.gif" width="17" heigth="17">') x$indent;
	$output .= '<img src="'.$session{config}{extrasURL}.'/tinymce/images/'.$image.'" align="bottom" alt="'.$name.'">';
	$output .= '<a title="'.$description.'" href="'.$url.'" '.$target.'><b>'.$name.'</b></a></td>';
	$output .= '<td class="delete" align="right" valign="bottom">'.$delete.'</td></tr>';
	return $output;
}

#-------------------------------------------------------------------
sub www_htmlArealistCollateral {
	my (@parents, $sth, $data, $indent);
        $session{page}{makePrintable}=1; $session{page}{printableStyleId}=10;
	return "<b>Only Content Managers are allowed to use WebGUI Collateral</b>" unless (WebGUI::Grouping::isInGroup(4));

	my $output = '<table border="0" cellspacing="0" cellpadding="0" width="100%">';
	my $folderId = $session{form}{fid} || 0;
	my $parent = $folderId;
	# push parent folders in array so it can be reversed
	unshift(@parents, $parent);
	until($parent eq '0') {
		($parent) = WebGUI::SQL->quickArray("select parentId from collateralFolder where collateralFolderId=".quote($parent));
		unshift(@parents, $parent);
	}
	# Build tree for opened parent folders
	foreach $parent (@parents) { 
		my ($name, $description) = WebGUI::SQL->quickArray("select name, description from 
							collateralFolder where collateralFolderId=".quote($parent));
		my ($itemsInFolder) = WebGUI::SQL->quickArray("select count(*) from collateral where collateralFolderId = ".quote($parent));
		my ($foldersInFolder)=WebGUI::SQL->quickArray("select count(*) from collateralFolder where parentId=".quote($parent));
		my $delete = "fid=$parent" unless ($itemsInFolder + $foldersInFolder);
		$output .= _htmlAreaCreateTree($name, $description, 
				WebGUI::URL::page('op=htmlArealistCollateral&fid='.$parent), "opened.gif", 
				$indent++,"" ,$delete);
	}
	# Extend tree with closed folders in current folder
	$sth = WebGUI::SQL->read("select collateralFolderId, name, description from collateralFolder
		                  where parentId=".quote($folderId)." and collateralFolderId <> '0' order by name");
        while ($data = $sth->hashRef) { 
		my ($itemsInFolder) = WebGUI::SQL->quickArray("select count(*) from collateral where 
							collateralFolderId = ".quote($data->{collateralFolderId}));
		my $delete = 'fid='.$data->{collateralFolderId} unless $itemsInFolder;
		$output .= _htmlAreaCreateTree($data->{name}, $data->{description}, 
					WebGUI::URL::page('op=htmlArealistCollateral&fid='.$data->{collateralFolderId}), 
					"closed.gif", $indent, "", $delete);
        }
	# Extend tree with images in current folder
	$sth = WebGUI::SQL->read("select collateralId, name, filename from collateral where collateralType = 'image' ".
                                 "and collateralFolderId = ".quote($folderId));
	while ($data = $sth->hashRef) {
		$data->{filename} =~ /\.([^\.]+)$/; # Get extension
		my $fileType = $1.'.gif';
		$output .= _htmlAreaCreateTree($data->{filename}, $data->{name},
					WebGUI::URL::page('op=htmlAreaviewCollateral&cid='.$data->{collateralId}),
					$fileType, $indent, "viewer", 'cid='.$data->{collateralId}.'&fid='.$folderId);
	}
	$output .= '</table>';
	$output .= '<script language="javascript">'."\n".'actionComplete("","'.$folderId.'","","");';
	$output .= "\n</script>\n";
	$sth->finish;
	return $output;
}

#-------------------------------------------------------------------
sub www_htmlAreaviewCollateral {
	my($output, $collateral, $file, $x, $y, $image, $error);
        $session{page}{makePrintable}=1; $session{page}{printableStyleId}=10;
        $output .= '<table align="center" border="0" cellspacing="0" cellpadding="2" width="100%" height="100%">';
	if($session{form}{cid} eq "" || ! WebGUI::Grouping::isInGroup(4)) {
		$output .= '<tr><td align="center" valign="middle" width="100%" height="100%">';
		$output .= '<p align="center"><br><img src="'.$session{config}{extrasURL}.'/tinymce/images/icon.gif" 
			    border="0"></p>';
		$output .= '<P align=center><STRONG>WebGUI Image Manager<BR>for TinyMCE</STRONG></P>';
		$output .= '</td></tr></table>';
	} else {
		my $c = WebGUI::Collateral->new($session{form}{cid});
		$collateral = $c->get;
		$file = WebGUI::Attachment->new($collateral->{filename},"images",$collateral->{collateralId});
		$output .= '<tr><td class="label" align="center" valign="middle" width="100%">';
		$output .= '<b>'.$file->getFilename.'</b><br>';
	#	if ($hasImageMagick) {
	#		$image = Image::Magick->new;
	#		$error = $image->Read($file->getPath);
	#		($x, $y) = $image->Get('width','height');
	#		$output .= $error ? "Error reading image: $error" : "<i>($x &#215; $y)</i>";
	#	}
		$output .= '</td></tr><tr><td align="center" valign="middle" width="100%" height="100%">';
		$output .= '<img src="'.$file->getThumbnail.'" border="0">';
		$output .= '</td></tr></table>';
		$output .= '<script language="javascript">';
		$output .= "\nvar src = '".$file->getURL."';\n";
		$output .= "if(src.length > 0) {
   				var manager=window.parent;
   				if(manager)		      	
		      		manager.document.getElementById('txtFileName').value = src;
		    		}
		    	    </script>\n";
	}
	return $output;
}

#-------------------------------------------------------------------
sub www_htmlAreaUpload {
        $session{page}{makePrintable}=1; $session{page}{printableStyleId}=10;
	return "<b>Only Content Managers are allowed to use WebGUI Collateral</b>" unless (WebGUI::Grouping::isInGroup(4));
	return www_htmlArealistCollateral() if ($session{form}{image} eq "");
	my($test, $file);
	$session{form}{fid} = $session{form}{collateralFolderId} = $session{form}{path};
        my $collateral = WebGUI::Collateral->new("new");
        $session{form}{thumbnailSize} ||= $session{setting}{thumbnailSize};
        $session{form}{cid} = $collateral->get("collateralId");
        $collateral->save("image", $session{form}{thumbnailSize});
        $session{form}{name} = "untitled" if ($session{form}{name} eq "");
        while (($test) = WebGUI::SQL->quickArray("select name from collateral
                where name=".quote($session{form}{name})." and collateralId<>".quote($collateral->get("collateralId")))) {
                if ($session{form}{name} =~ /(.*)(\d+$)/) {
                        $session{form}{name} = $1.($2+1);
                } elsif ($test ne "") {
                        $session{form}{name} .= "2";
                }
        }
        $collateral->set($session{form});
        $session{form}{collateralType} = "";
        return www_htmlArealistCollateral();
}

#-------------------------------------------------------------------
sub www_htmlAreaDelete {
        $session{page}{makePrintable}=1; $session{page}{printableStyleId}=10;
	return "<b>Only Content Managers are allowed to use WebGUI Collateral</b>" unless (WebGUI::Grouping::isInGroup(4));
	if($session{form}{cid}) { # Delete Image
	        my $collateral = WebGUI::Collateral->new($session{form}{cid});
        	$collateral->delete;
	} elsif($session{form}{fid} and not($session{form}{cid})) {
		return WebGUI::Privilege::vitalComponent() unless ($session{form}{fid} > 999);
	        my ($parent) = WebGUI::SQL->quickArray("select parentId from collateralFolder where collateralFolderId=".quote($session{form}{fid}));
	        WebGUI::SQL->write("delete from collateralFolder where collateralFolderId=".quote($session{form}{fid}));
		$session{form}{fid}=$parent;	
	}	
        return www_htmlArealistCollateral();
}

#-------------------------------------------------------------------
sub www_htmlAreaCreateFolder {
        $session{page}{makePrintable}=1; $session{page}{printableStyleId}=10;
	return "<b>Only Content Managers are allowed to use WebGUI Collateral</b>" unless (WebGUI::Grouping::isInGroup(4));
        $session{form}{fid} = WebGUI::Id::generate();
        WebGUI::Session::setScratch("collateralFolderId",$session{form}{fid});
        WebGUI::SQL->write("insert into collateralFolder (collateralFolderId) values (".quote($session{form}{fid}).")");
        my $folderId = $session{scratch}{collateralFolderId} || 0;
	$session{form}{name} = $session{form}{folder};
        $session{form}{name} = "untitled" if ($session{form}{name} eq "");
        while (my ($test) = WebGUI::SQL->quickArray("select name from collateralFolder
                where name=".quote($session{form}{name})." and collateralFolderId<>".quote($folderId))) {
                if ($session{form}{name} =~ /(.*)(\d+$)/) {
                        $session{form}{name} = $1.($2+1);
                } elsif ($test ne "") {
                        $session{form}{name} .= "2";
                }
        }
        WebGUI::SQL->write("update collateralFolder set parentId=".quote($session{form}{path}).", name=".quote($session{form}{name})
                .", description=".quote($session{form}{description})." where collateralFolderId=".quote($folderId));
	$session{form}{fid} = $session{form}{path};
        return www_htmlArealistCollateral();
}





1;