getPackageExtras

func(NullVar)
begin
local theOut := "<table class=\"list\" border=\"0\" cellspacing=\"0\" cellpadding=\"5\">\n
     <tr class=\"listrow\">
          <td><b>Name</b>'</td>
          <td align=\"right\"><b>Size</b> (Bytes)</td>
    <!--  <td align=\"right\"><b>ID</b></td>  -->
    <!--  <td align=\"right\"><b>Version</b></td>  -->
          <td align=\"right\"><b>Created</b></td>
          <td align=\"right\"><b>Installed</b></td>
          <td><b>Copyright</b></td></tr>\n";
     foreach pkgFrame in GetPackages() do
          begin
               // Skip packages built-in in the ROM.
               if pkgFrame.store then
                    theOut := StrConcat(theOut,"<tr class=\"listrow\"><td>" & pkgFrame.title & "</td>
                    <td align=\"right\">" & pkgFrame.size & "</td>
              <!--  <td align=\"right\">" & pkgFrame.id & "</td>   -->
              <!--  <td align=\"right\">" &GetPkgRefInfo(PidToPkgRef(pkgFrame.id)).version & "</td>   -->
                    <td align=\"right\">" & DateNTime(GetPkgRefInfo(PidToPkgRef(pkgFrame.id)).creationdate) & "</td>
                    <td align=\"right\">" & DateNTime(pkgFrame.timestamp) & "</td>
                    <td>" & GetPkgRefInfo(PidToPkgRef(pkgFrame.id)).copyright & "</td></tr>\n");
          end;
     theOut := StrConcat(theOut,"</table>");
return theOut;
end

| Return Home |

Served By: NewtonOS Personal Data Sharing 2.107

Created: Fri, 15 Nov 2002 02:43:00 GMT
Modified: Fri, 24 Nov 2006 01:07:00 GMT