Tired of always having to copy and paste URLs when modifying/viewing links from the admin interface? Try this mod to make links active:
In db_utils.pl
CHANGE (under build_html_record):
<tr><td align=right valign=top width=20%><$font>$field:</font></td>
<td width=80%><$font>$rec{$field}</font></td></tr>
~;
TO:
if ($field eq "URL" && $rec{$field} ne "") {
$output .= qq~
<tr><td align=right valign=top width=20%><$font>$field:</font></td>
<td width=80%><$font><a href="$rec{$field}" target="_blank">$rec{$field}</a></font></td></tr>
~;
}
else {
$output .= qq~
<tr><td align=right valign=top width=20%><$font>$field:</font></td>
<td width=80%><$font>$rec{$field}</font></td></tr>
~;
}
CHANGE (under build_html_record_form):
TO:
if ($field eq "URL" && $rec{$field} ne "") {
$output .= qq~<tr><td align=right valign=top width=20%><$font><a href="$rec{$field}" target="_blank">$field</a>:</font></td><td width=80%><input type=text name="$name" value="$rec{$field}" size="$db_form_len{$field}" maxlength="$db_lengths{$field}"></td></tr>\n~;
}
else {
$output .= qq~<tr><td align=right valign=top width=20%><$font>$field:</font></td><td width=80%><input type=text name="$name" value="$rec{$field}" size="$db_form_len{$field}" maxlength="$db_lengths{$field}"></td></tr>\n~; }
}
That's all!
(Did you know why you go to edit, the code segments disappear?)
Owen
[This message has been edited by Owen (edited April 08, 2000).]
In db_utils.pl
CHANGE (under build_html_record):
Code:
$output .= qq~ <tr><td align=right valign=top width=20%><$font>$field:</font></td>
<td width=80%><$font>$rec{$field}</font></td></tr>
~;
TO:
Code:
if ($field eq "URL" && $rec{$field} ne "") {
$output .= qq~
<tr><td align=right valign=top width=20%><$font>$field:</font></td>
<td width=80%><$font><a href="$rec{$field}" target="_blank">$rec{$field}</a></font></td></tr>
~;
}
else {
$output .= qq~
<tr><td align=right valign=top width=20%><$font>$field:</font></td>
<td width=80%><$font>$rec{$field}</font></td></tr>
~;
}
CHANGE (under build_html_record_form):
Quote:
else { $output .= qq~<tr><td align=right valign=top width=20%><$font>$field:</font></td><td width=80%><input type=text name="$name" value="$rec{$field}" size="$db_form_len{$field}" maxlength="$db_lengths{$field}"></td></tr>\n~; }TO:
Quote:
else { if ($field eq "URL" && $rec{$field} ne "") {
$output .= qq~<tr><td align=right valign=top width=20%><$font><a href="$rec{$field}" target="_blank">$field</a>:</font></td><td width=80%><input type=text name="$name" value="$rec{$field}" size="$db_form_len{$field}" maxlength="$db_lengths{$field}"></td></tr>\n~;
}
else {
$output .= qq~<tr><td align=right valign=top width=20%><$font>$field:</font></td><td width=80%><input type=text name="$name" value="$rec{$field}" size="$db_form_len{$field}" maxlength="$db_lengths{$field}"></td></tr>\n~; }
}
That's all!
(Did you know why you go to edit, the code segments disappear?)
Owen
[This message has been edited by Owen (edited April 08, 2000).]