Select Code to Download

Select or download this

# set up a schema class using 2 modules that I've written manually (th
+ere are more tables; this is just to make sure it works).
use MG::Schema::Tables;   # *
...
foreach my $country (@all_countries) {
    print "! ".$country->CountryCode." = ".$country->CountryName."<Br>
+";
    }

Select or download this

[Wed Aug 23 18:22:49 2006] mgdb.pl: Attempt to free unreferenced scala
+r: SV 0x1fa7a5c, Perl interpreter: 0x224234 at C:/Perl/site/lib/SQL/A
+bstract/Limit.pm line 325.
[Wed Aug 23 18:22:49 2006] mgdb.pl:  at C:/Perl/site/lib/SQL/Abstract/
+Limit.pm line 325
...
Can't locate object method "CountryCode" via package "MG::Main::Countr
+y" at C:/Information/mgroot/cgi-bin/mgdb.pl line 53.
 at C:/Information/mgroot/cgi-bin/mgdb.pl line 53