Help for this page

Select Code to Download


  1. 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>
    +";
        }
    
  2. 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