# This file is auto generated and contains a perl hash of
# your template globals for 'default' template set.
# Generated on: Tue Nov  5 11:17:24 2002

my $dump = {


'Call' => 'sub { return ucfirst($CFG->{call}); }',
'Calls' => 'sub { return ucfirst($CFG->{calls}); }',
'emerg_check' => 'sub {
my $check;
if ($USER->{adm_emergency_limit} eq "0"){
$check = "No";
}
elsif (!$USER->{adm_emergency_limit} or lc($USER->{adm_emergency_limit}) eq "unlimited") {
$check = ""; }
else { $check = $USER->{adm_emergency_limit}; }
return $check;
}',
	'lang_tag' => 'sub { return wd_language($_[0],$_[1]);}',
	'language' => 'sub {
my $value = $IN->param(\'l\') || "english";
return $value;
}',
	'format' => 'sub { 
my $data = shift;
if ($data =~ /contains_html/) { 
$data =~ s/contains_html//g; }
else {	$data =~ s/\n/<br>/g;	}
return $data;
}',
	'rec2' => 'sub { 
# get info from another table
# pass 4 parameters: Tablename, knownfieldname, $knownvalue, whatyouwant
my $id1 = shift;
my $id2 = shift;
my $id3 = shift;
my $id4 = shift;
return $DB->table($id1)->select( { $id2 => $id3}, $id4 )->fetchrow;
}',
	'staff' => 'sub {
($USER->{adm_tech_p} or $USER->{adm_supervisor_p} or $USER->{adm_admin_p}) and return 1;
}',
	'string_minus' => 'sub { 
# Retrieves the query string minus xx=yyyy (defined by the in xx param)
use GT::CGI; 
my $in = new GT::CGI; 
my $url = $ENV{"QUERY_STRING"};
my $minus = shift;
my $minus2 = shift;
my $i;
my $string;
$url =~ s/\;/\&/g;
my @list = split(/\&/, $url);
foreach $i (@list) {
 unless ($i =~ /$minus\=/ or ($minus2 && $i =~ /$minus2\=/)) {
  	$string.= $i . \'&\';
  }
}
chop($string);
if ($string) { $string = \'&\' . $string;}
return $string;
}',
	'sb_image' => 'sub {
# returns the sort by image

my $column = shift;
my $sb = $IN->param(\'sb\');
my $so = $IN->param(\'so\');
my $results; 


if ($column eq $sb && $so ne "DESC") {
$results = qq|<img src="$CFG->{\'path_images_url\'}/sbdown.gif" border="0" alt="Change sort order" width="10" height="8"></a>|;
}
elsif ($column eq $sb && $so ne "ASC") {
$results = qq|<img src="$CFG->{\'path_images_url\'}/sbup.gif" border="0" alt="Change sort order" width="10" height="8"></a>|;}
else { $results = qq|</a>&nbsp;&nbsp;&nbsp;|;}
return $results;
}',
	'sb_so' => 'sub {
# Retrieves the query string minus &sb=x &so=x
# then calculates how to display &sb=x &so=x

use GT::CGI; 
my $in = new GT::CGI; 
my $url = $ENV{"QUERY_STRING"};
my $column = shift;
my $sb = $IN->param(\'sb\');
my $so = $IN->param(\'so\');
my $results; 
$url =~ s/\;/\&/g;
$url=~ s/\&sb=.*\&so=ASC//;
$url=~ s/\&sb=.*\&so=DESC//;
$url=~ s/\&sb=help_priority\,help_datetime//; 
$url=~ s/\&sb=//;
$url=~ s/\&so=//;
if ($column eq $sb && $so ne "DESC") {
$results = qq|$url&sb=$column&so=DESC|;
}
else {
$results = qq|$url&sb=$column&so=ASC|;
}

return $results;
}'

};