projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
communigate, RT#7083
[freeside.git]
/
FS
/
FS
/
part_virtual_field.pm
diff --git
a/FS/FS/part_virtual_field.pm
b/FS/FS/part_virtual_field.pm
index
03c34cc
..
f5a4161
100755
(executable)
--- a/
FS/FS/part_virtual_field.pm
+++ b/
FS/FS/part_virtual_field.pm
@@
-2,7
+2,9
@@
package FS::part_virtual_field;
use strict;
use vars qw( @ISA );
use strict;
use vars qw( @ISA );
-use FS::Record qw( qsearchs qsearch dbdef );
+use FS::Record;
+use FS::Schema qw( dbdef );
+use CGI qw(escapeHTML);
@ISA = qw( FS::Record );
@ISA = qw( FS::Record );
@@
-161,7
+163,7
@@
sub check {
# Make sure it's a real table with a numeric primary key
my ($table, $pkey);
# Make sure it's a real table with a numeric primary key
my ($table, $pkey);
- if($table =
$FS::Record::
dbdef->table($self->dbtable)) {
+ if($table = dbdef->table($self->dbtable)) {
if($pkey = $table->primary_key) {
if($table->column($pkey)->type =~ /int/i) {
# this is what it should be
if($pkey = $table->primary_key) {
if($table->column($pkey)->type =~ /int/i) {
# this is what it should be
@@
-243,7
+245,7
@@
sub widget {
}
} else {
$text .= q!<INPUT NAME="! . $self->name .
}
} else {
$text .= q!<INPUT NAME="! . $self->name .
- q!" VALUE="! .
$value
. q!"!;
+ q!" VALUE="! .
escapeHTML($value)
. q!"!;
if ($self->length) {
$text .= q! SIZE="! . $self->length . q!"!;
}
if ($self->length) {
$text .= q! SIZE="! . $self->length . q!"!;
}
@@
-259,10
+261,6
@@
sub widget {
return $text;
}
return $text;
}
-=head1 VERSION
-
-$Id: part_virtual_field.pm,v 1.2 2003-08-05 00:20:45 khoff Exp $
-
=head1 NOTES
=head2 Semantics of check_block:
=head1 NOTES
=head2 Semantics of check_block: