freeside/rt/lib/RT/URI/freeside Internal.pm,1.2,1.3

[ivan]

Update of /home/cvs/cvsroot/freeside/rt/lib/RT/URI/freeside
In directory pouncequick:/tmp/cvs-serv11711/rt/lib/RT/URI/freeside

Modified Files:
	Internal.pm 
Log Message:
fixup RT integration grr!

Index: Internal.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/rt/lib/RT/URI/freeside/Internal.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- Internal.pm	12 Mar 2005 16:07:29 -0000	1.2
+++ Internal.pm	14 May 2005 19:57:30 -0000	1.3
@@ -32,7 +32,7 @@
 
 use FS;
 use FS::UID qw(dbh);
-use FS::CGI qw(popurl);
+use FS::CGI qw(popurl small_custview);
 use FS::Conf;
 use FS::Record qw(qsearchs qsearch dbdef);
 use FS::cust_main;
@@ -82,7 +82,7 @@
     return;
   }
 
-  return { $fsrec->hash };
+  return { $fsrec->hash, '_object' => $fsrec };
 
 }
 
@@ -96,7 +96,7 @@
 
   $conf = new FS::Conf unless ref($conf);
 
-  return $conf->config(@_);
+  return scalar($conf->config(@_));
 
 }
 
@@ -109,6 +109,28 @@
 sub small_custview {
 
   return &FS::CGI::small_custview(@_);
+
+}
+
+sub _FreesideURILabelLong {
+
+  my $self = shift;
+
+  my $table = $self->{'fstable'};
+
+  if ( $table eq 'cust_main' ) {
+
+    my $rec = $self->_FreesideGetRecord();
+    return small_custview( $rec->{'_object'},
+                           scalar(FS::Conf->new->config('countrydefault')),
+                           1 #nobalance
+                         );
+
+  } else {
+
+    return $self->_FreesideURILabel();
+
+  }
 
 }