mfgpn-map.csv
filter.csv
{
#_print("in fetch::execute::minqty");
my $minqty;
my $qty;
foreach my $pb ($tag->children('data[@class="pricebreak"]')) {
#_print($pb->sprint);
$qty = $pb->first_child('data[@name="qty"]');
$qty = $qty->text;
#_print($qty);
#_print($minqty);
if(!defined($minqty) || ($qty < $minqty)) { $minqty = $qty;}
}
_print("minqty: setting minqty to $minqty");
my %ret;
$ret{'minqty'} = $minqty;
return %ret;
}
{
#_print("in fetch::execute::copy-if-empty");
#_print($context->sprint);
#_print(to_xpath($args));
#_print($tag->text);
my $args = scalar($atts('args'));
my %ret;
my ($dest) = $context->get_xpath(to_xpath($args));
if(!($dest->text =~ /^\s*$/)) {
_print("copy-if-empty: destination $args not empty, with value from " . $dest->att('pulled_from') . " will not copy " . $tag->text);
} else {
#_print("copy-if-empty: setting $args to " . $tag->text);
$ret{'value'} = scalar($tag->text);
}
return %ret;
}
{
#_print("in fetch::execute::copy-with-override");
#_print($context->sprint);
my %aliases = eval($atts{'aliases'});
#_print($aliases{'digikey'});
#_print($aliases{'mouser'});
my @keylist = eval($atts{'key'});
#_print("@keylist");
my $prefpath = $atts{'pref'};
#_print("$prefpath");
my %ret;
my $dest;
my $pref_idx;
my ($pref) = $context->get_xpath(to_xpath($prefpath));
#if(defined($pref)) { _print($pref->text); }
if(defined($pref) && !($pref->text =~ /^\s*$/)) {
# _print("pref " . $pref->text);
$pref_idx = $aliases{$pref->text}-1;
# _print("$pref_idx");
($dest) = $context->get_xpath(to_xpath($keylist[$pref_idx]));
if(defined($dest) && !($dest->text =~ /^\s*$/)) {
# _print("set dest override");
$ret{'value'} = scalar($dest->text);
return %ret;
}
}
foreach my $key (@keylist) {
#_print($key);
($dest) = $context->get_xpath(to_xpath($key));
#if(defined($dest)) { _print($dest->sprint); }
if(defined($dest) && !($dest->text =~ /^\s*$/)) {
# _print("set dest");
$ret{'value'} = scalar($dest->text);
last;
}
}
return %ret;
}
{
#_print("in fetch::execute::copy");
#_print($context->sprint);
my @keylist = eval($atts{'key'});
#_print("@keylist");
my %ret;
foreach my $key (@keylist) {
#_print($key);
my ($dest) = $context->get_xpath(to_xpath($key));
#if(defined($dest)) { _print($dest->sprint); }
if(defined($dest) && !($dest->text =~ /^\s*$/)) {
# _print("set dest");
$ret{'value'} = scalar($dest->text);
# _print($ret{'value'});
# _print($dest->sprint);
last;
}
}
return %ret;
}