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

Added new templating mechanism.

Browse source
This commit is contained in:
JT Smith 2002-05-26 21:20:39 +00:00
parent 299995af14
commit 9cda39ef82
13 changed files with 108 additions and 464 deletions
Download patch file Download diff file Expand all files Collapse all files

145
lib/WebGUI/Template.pm
View file

@ -1,15 +1,5 @@
package WebGUI::Template;
#####################################################################
#####################################################################
# NOTICE: Use of this subsystem is depricated and is not recommended.
#####################################################################
#####################################################################
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black Software.
#-------------------------------------------------------------------
@ -20,73 +10,108 @@ package WebGUI::Template;
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict qw(vars subs);
use strict;
use Tie::IxHash;
use WebGUI::ErrorHandler;
use WebGUI::HTMLForm;
use WebGUI::Session;
use WebGUI::SQL;
#-------------------------------------------------------------------
sub loadTemplates {
my ($templateDir, @files, $file, $use, @template, $i);
if ($^O =~ /Win/i) {
$templateDir = "\\lib\\WebGUI\\Template";
} else {
$templateDir = "/lib/WebGUI/Template";
}
opendir (DIR,$session{config}{webguiRoot}.$templateDir) or WebGUI::ErrorHandler::fatalError("Can't open template directory!");
@files = readdir(DIR);
foreach $file (@files) {
if ($file =~ /(.*?)\.pm$/) {
$template[$i] = $1;
$use = "require WebGUI::Template::".$template[$i];
eval($use);
if ($@) {
WebGUI::ErrorHandler::fatalError("Template load failed: ".$@);
}
$i++;
}
}
closedir(DIR);
return @template;
}
#-------------------------------------------------------------------
sub calculatePositions {
my (%positions, $string);
$string = "A";
$positions{A} = "A";
while ($string ne $_[0]) {
$string = ++$string;
$positions{$string} = $string;
}
return %positions;
sub generate {
my ($output, $content, %template);
%template = WebGUI::SQL->quickHash("select * from template where templateId=".$_[1]);
$content = $template{template};
$content =~ s/\^(\d+)\;/${$_[0]}{$1}/g;
return $content;
}
#-------------------------------------------------------------------
sub getList {
my (@templates, $cmd, $template, $namespace, %list);
@templates = loadTemplates();
foreach $template (@templates) {
#$cmd = "WebGUI::Template::".$template."::namespace";
#$namespace = $$cmd;
$cmd = "WebGUI::Template::".$template."::name";
$list{$template} = &$cmd();
}
my (%list);
tie %list, 'Tie::IxHash';
%list = WebGUI::SQL->buildHash("select templateId,name from template order by name");
return %list;
}
#-------------------------------------------------------------------
sub getPositions {
my ($cmd, %hash);
my ($cmd, %hash, $template, $i);
tie %hash, "Tie::IxHash";
$cmd = "use WebGUI::Template::".$_[0];
eval($cmd);
$cmd = "WebGUI::Template::".$_[0]."::getPositions";
%hash = &$cmd;
return %hash;
($template) = WebGUI::SQL->quickArray("select template from template where templateId=".$_[0]);
$i = 0;
while ($template =~ m/\^$i\;/) {
$hash{$i} = $i;
$i++;
}
return \%hash;
}
#-------------------------------------------------------------------
sub selectTemplate {
my ($output, $f, %templates, $key);
tie %templates,'Tie::IxHash';
$f = WebGUI::HTMLForm->new(1);
%templates = WebGUI::SQL->buildHash("select templateId,name from template order by name");
$f->select("templateId",\%templates,'',[$_[0]],'','','onChange="changeTemplatePreview(this.form.templateId.value)"');
%templates = WebGUI::SQL->buildHash("select templateId,template from template");
$output = '
<script language="JavaScript">
function checkBrowser(){
this.ver=navigator.appVersion;
this.dom=document.getElementById?1:0;
this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;
this.ie4=(document.all && !this.dom)?1:0;
this.ns5=(this.dom && parseInt(this.ver) >= 5) ?1:0;
this.ns4=(document.layers && !this.dom)?1:0;
this.bw=(this.ie5 || this.ie4 || this.ns4 || this.ns5 || this.dom);
return this;
}
bw=new checkBrowser();
function makeChangeTextObj(obj){
this.css=bw.dom? document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?document.layers[obj]:0;
this.writeref=bw.dom? document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?document.layers[obj].document:0;
this.writeIt=b_writeIt;
}
function b_writeIt(text){
var obj;
if(bw.ns4) {
if (document.loading) document.loading.visibility = "hidden";
this.writeref.write(text + "&nbsp;&nbsp;&nbsp;");
this.writeref.close();
} else {
if (bw.ie4) {
if (document.all.loading) obj = document.all.loading;
}
if (obj) obj.style.visibility = "hidden";
this.writeref.innerHTML=text;
}
}
function init(){
if(bw.bw){
oMessage=new makeChangeTextObj("templatePreview");
oMessage.css.visibility="visible";
changeTemplatePreview('.$_[0].');
}
}
onload=init
function changeTemplatePreview(value) {
oMessage.writeIt(eval("b"+value));
}
';
foreach $key (keys %templates) {
$templates{$key} =~ s/\n//g;
$templates{$key} =~ s/\r//g;
$templates{$key} =~ s/\'/\\\'/g;
$templates{$key} =~ s/\<table.*?\>/\<table\ border\=1>/ig;
$templates{$key} =~ s/\^(\d+)\;/$1/g;
$output .= " var b".$key." = '".$templates{$key}."';\n";
}
$output .= '</script>';
$output .= $f->printRowsOnly;
$output .= '<div id="templatePreview"></div>';
return $output;
}
1;