Stop prepending urn:uuid: to guids that look like UUIDs

master
Simon McVittie 2008-07-12 17:34:40 +01:00
parent b269835a7f
commit 9a184badf5
1 changed files with 1 additions and 7 deletions

View File

@ -85,13 +85,7 @@ sub preprocess (@) { #{{{
# fallthrough
}
elsif ($key eq 'guid') {
my $abs = $value;
if ($abs =~ m/^[[:xdigit:]]{8}-[[:xdigit:]]{4}-[[:xdigit]]{4}-[[:xdigit:]]{4}-[[:xdigit:]]{12}$/) {
$abs = lc "urn:uuid:$abs";
}
$pagestate{$page}{meta}{guid}=HTML::Entities::encode_numeric($abs);
$pagestate{$page}{meta}{guid}=HTML::Entities::encode_numeric($value);
# fallthrough
}
elsif ($key eq 'license') {