* Applied epscript fixes from Mark Gregson <mark.gregson@qut.edu.au>

git-svn-id: https://svn.eprints.org/eprints/trunk/system@7824 9491667e-5006-0410-a446-efbe8990b998

perl_lib/EPrints/Script/Compiled.pm

@@ -546,7 +546,7 @@ sub run_doc_size
 
 	if( !defined $doc->[0] || ref($doc->[0]) ne "EPrints::DataObj::Document" )
 	{
-		$self->runtime_error( "Can only call document_size() on document objects not ".
+		$self->runtime_error( "Can only call doc_zie() on document objects not ".
 			ref($doc->[0]) );
 	}
 
@@ -557,7 +557,7 @@ sub run_doc_size
 
 	my %files = $doc->[0]->files;
 
-	return $files{$doc->[0]->get_main} || 0;
+	return [ $files{$doc->[0]->get_main} || 0, "INTEGER" ];
 }
 
 sub run_is_public
@@ -566,7 +566,7 @@ sub run_is_public
 
 	if( !defined $doc->[0] || ref($doc->[0]) ne "EPrints::DataObj::Document" )
 	{
-		$self->runtime_error( "Can only call document_size() on document objects not ".
+		$self->runtime_error( "Can only call is_public() on document objects not ".
 			ref($doc->[0]) );
 	}
 
@@ -630,7 +630,7 @@ sub run_human_filesize
 {
 	my( $self, $state, $size_in_bytes ) = @_;
 
-	return [ EPrints::Utils::human_filesize( $size_in_bytes || 0 ), "INTEGER" ];
+	return [ EPrints::Utils::human_filesize( $size_in_bytes->[0] || 0 ), "INTEGER" ];
 }
 
 sub run_control_url