--- koha-facebook.cgi	2009/06/26 18:45:33	2
+++ koha-facebook.cgi	2009/06/26 21:14:01	3
@@ -20,11 +20,19 @@
 
 # UI elements
 
+my $facebook = WWW::Facebook::API->new(
+	api_key  => $api_key,
+	secret   => $secret,
+	app_path => $app_path,
+	parse    => 1,
+);
+
+warn dump($facebook);
+
 sub dashboard {
 	print qq|
 		<fb:dashboard>
 		<fb:action href=/$app_path/>Search</fb:action>
-		<fb:action href=/$app_path/info>info</fb:action>
 		</fb:dashboard>
 	|;
 	'';
@@ -44,13 +52,7 @@
 	'';
 }
 
-
-my $facebook = WWW::Facebook::API->new(
-	api_key  => $api_key,
-	secret   => $secret,
-	app_path => $app_path,
-	parse    => 1,
-);
+# dispatcher
 
 our %action_map = (
 	''   => \&index_page,
@@ -83,14 +85,16 @@
 
     my ( $action, $param ) = ( $q->path_info =~ m!^/(\w+)/?(.*)! );
 
-    if ( my $s = $action_map{$action} ) {
 	print dashboard;
+
+    if ( my $s = $action_map{$action} ) {
 	print qq|<div style='padding-left: 2em'>|;
         $s->( $q, $params );
 	print qq|</div>|;
     }
     else {
-        div_error("Action unknown");
+        print "Action <tt>$action</tt> unknown";
+	warn "unknown action $action";
     }
 
     # Clear session_key (for if running under FastCGI).
@@ -100,6 +104,8 @@
 sub index_page {
 	my ( $q, $params ) = @_;
 
+warn dump($params);
+
 	form($q);
 
 =for later
@@ -114,12 +120,13 @@
     }
     print "$name ", ( $params ? "have" : "have't" ),
         " added this application. Some <a href='info'>info</a>.";
+=cut
+
     if ( !$params ) {
         print "<a href='", $facebook->get_add_url,
             "'>Add this application</a>.";
     }
 
-=cut
 
 
 }