i love this one and thanks for sharing! i changed it a little because i still want to see confirmation of my modification success. so instead of:
$in{'callback'}=~ s/~~/\?/g; # Change ? delimiter to ~~ symbol.
$in{'callback'}=~ s/\|/\&/g; # Change & delimiter to '' symbol.
$in{'callback'}=$db_host_url . $in{'callback'};
# print "Location: $in{'callback'}\n\n";
}
my $message = shift;
my (%rec) = &get_record($in{$db_key});
$page_title = "Record Modified";
&html_page_top;
# < -- Start page text -- >
i have:
my (%rec) = &get_record($in{$db_key});
$page_title = "Record Modified";
&html_page_top;
# < -- Start page text -- >
if ($in{'callback'}){ # 03/04/2012
$in{'callback'}=~ s/~~/\?/g; # Change ? delimiter to ~~ symbol.
$in{'callback'}=~ s/\|/\&/g; # Change & delimiter to '' symbol.
$in{'callback'}=$db_host_url . $in{'callback'};
}
print qq|<p><a href="$in{'callback'}">return to list</a></p>|;
mine prints a link at top of success page to go back to the list. for some reason the double quote didn't work for me so i used a split vertical bar everywhere instead in the line that changed the &. (and yes, i tried double quote not two single quotes)
Code:
if ($in{'callback'}){ # 03/04/2012 $in{'callback'}=~ s/~~/\?/g; # Change ? delimiter to ~~ symbol.
$in{'callback'}=~ s/\|/\&/g; # Change & delimiter to '' symbol.
$in{'callback'}=$db_host_url . $in{'callback'};
# print "Location: $in{'callback'}\n\n";
}
my $message = shift;
my (%rec) = &get_record($in{$db_key});
$page_title = "Record Modified";
&html_page_top;
# < -- Start page text -- >
i have:
Code:
my $message = shift; my (%rec) = &get_record($in{$db_key});
$page_title = "Record Modified";
&html_page_top;
# < -- Start page text -- >
if ($in{'callback'}){ # 03/04/2012
$in{'callback'}=~ s/~~/\?/g; # Change ? delimiter to ~~ symbol.
$in{'callback'}=~ s/\|/\&/g; # Change & delimiter to '' symbol.
$in{'callback'}=$db_host_url . $in{'callback'};
}
print qq|<p><a href="$in{'callback'}">return to list</a></p>|;
mine prints a link at top of success page to go back to the list. for some reason the double quote didn't work for me so i used a split vertical bar everywhere instead in the line that changed the &. (and yes, i tried double quote not two single quotes)